リストボックスで選択したexcelブックのデータをマクロのあるexcelブックにコピーしたい

Question

リストボックスを作り、そこに開いてるexcelブックを表示させて選択できるようにしてあるのですが、リストを選択してボタンを押したら、選択したブックのsheet1のA1~B80をマクロのあるブックの"処理用"sheetのA列B列にコピーなるようにしたいのですが上手くいきません

マクロ.xlsmの
リストはActiveコントロールのリストボックスを作り
Private Sub ListBox1_GotFocus()
　　　　Dim wbook As Integer
　　　　ListBox1.Clear
　　　　For wbook = 1 To Workbooks.Count
　　　　　　　　ListBox1.AddItem Workbooks(wbook).Name
　　　　Next wbook
End Sub
としてます。

で、別にボタンを作り

Sub ボタン＿Click()
    Dim target As Variant
    Worksheets("マクロ").Select
        target = Worksheets("処理用").ListBox1.Text
    
    Workbooks(target).Activate
        Sheets(1).Select
        Sheets(1).Range(Cells(1, 1), Cells(80,2)).Copy
        ThisWorkbook.Worksheets("処理用").(Cells(1, 1), Cells(80,2)).PasteSpecial
    (以下略）

と続くのですが、実際に作動させると
Workbooks(target).Activateで「型が一致しません」となりエラーとなってしまいます。

"処理用"シートのD1に直接ファイル名を書いて、
target = Cells(4, 1)
Workbooks(target & ".xlsx").Activate
とやってた時はうまくいったのですが…

いろいろ調べてますが直せず困ってます…

くんこば · Accepted Answer

やっぱりtargetの型はstringにすべきですね。
そうすれば、target = Worksheets("処理用").ListBox1.Textの時点で落ちるはずなので問題の切り分けが出来ます。対処も見つかると思います。

WindFaller · Answer

少し割り込み、お邪魔します。
target という変数名は、ちょっと引っかかるけれども、

>Dim target
>
>target = ThisWorkbook.Worksheets("処理用").ListBox1.Text

target のデータ型がVariant であろうが、String 型であろうが、ListBox1 から正しく取れていれば、「型が一致しません」というようなエラーはでません。

このエラーは、Listbox のプロパティの設定の違いによって起きているような気がします。

ListBox のProperty の中の、MultiSelect 0-fmMultiSelectSingle は選んでありますか？

この田中さん、こういうことを書いていますが、
http://officetanaka.net/excel/vba/tips/tips141.htm

私なら、ListBox は以下のように設定しています。私は古い？
以下は、そのままでは、MultiSelect は使えないけれども、すぐに変えられるようにしています。

'//
Private Sub CommandButton1_Click()  'フォーム・コントロールでも可
Dim strTxt ' As String
Dim i As Long
For i = 0 To Me.ListBox1.ListCount
　 If Me.ListBox1.Selected(i) Then
　　　　　 strTxt = Me.ListBox1.List(i)
　　　　　 If strTxt <> "" Then
　　　　　　　 Exit For
　　　　　 End If
　 End If
Next i
With Workbooks(strTxt).Sheets(1)
　　.Range(.Cells(1, 1), .Cells(80, 2)).Copy
End With
Dim LastRow As Long
With ThisWorkbook.Worksheets("処理用")
　　 LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
　　If LastRow > 1 Then LastRow = LastRow + 1
　　.Cells(LastRow, 1).PasteSpecial (xlPasteValues)
　　''上書きモード(二者択一）
　　''.Range("A1").PasteSpecial (xlPasteValues)
End With
'
''(以下略）
Application.CutCopyMode = False
End Sub
'//

こちらの指摘は、当たっていないかもしれません。
ただ、エラーが出た時、そこに「ブレークポイント●」を置いて、ローカルウィンドウで、その変数の値をみれば、ほぼ、100%問題はどこにあるか分かるはずです。ご自分で分からなくても、その入った値は、こんなのでした、だけでも分かるものなのです。

私は、配列が混じりこんだような気がします。

くんこば · Answer

＞Workbooks(target).Activateで「型が一致しません」となりエラーとなってしまいます。
この時、targetにちゃんとブック名が設定されているのは確認しました？

くんこば · Answer

targetの型をstringに変えてみても無理？

リストボックスで選択したexcelブックのデータをマクロのあるexcelブックにコピーしたい

やっぱりtargetの型はstringにすべきですね。

少し割り込み、お邪魔します。

＞Workbooks(target).Activateで「型が一致しません」となりエラーとなってしまいます。

targetの型をstringに変えてみても無理？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング