|
こんにちは。かみちゃん です。
>開いているフォルダと同じファイル内にあるエクセルファイルを
>リストボックスに表示させます。
なぜ、リストボックスに表示させる必要があるのでしょうか?
以下は、リストボックスに表示させない方法です。
ただし、「最初に指定したフォルダにある複数のファイルを指定して、同じ範囲の
データ」を「どこに」抽出するのかが書かれていないので、下の例では、A2セルに
ばかり抽出するようにしています。これではまずいと思いますが・・・
Option Explicit
Sub Macro1()
Dim xlname As String
xlname = Dir(ActiveWorkbook.Path & "\*.xls")
Do While xlname <> "" ' ループを開始します。
'値を取得するファイル名を表示
MsgBox ActiveWorkbook.Path & "\" & xlname
'ファイルを開かずにセルの値を取得
'抽出先のセルの指定(どこに抽出するのかわからない)
Range("A2").Select
With Selection
.Formula = "='" & ActiveWorkbook.Path & "\[" & xlname & "]Sheet1'!A2"
.Value = .Value
End With
xlname = Dir
Loop
End Sub
どうしても、リストボックスを使う必要があるのならば、
> Workbooks.Open ActiveWorkbook.Path & ListBox1
ListBox1の何番目のデータを処理しているのかが明示されていないからでは?
と思います。
|
|