Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58229 / 76738

←次へ　｜　前へ→


	【23241】Re:複数のファイルの作業

かみちゃん - 05/3/17(木) 6:49 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>開いているフォルダと同じファイル内にあるエクセルファイルを
>リストボックスに表示させます。

なぜ、リストボックスに表示させる必要があるのでしょうか？
以下は、リストボックスに表示させない方法です。
ただし、「最初に指定したフォルダにある複数のファイルを指定して、同じ範囲の
データ」を「どこに」抽出するのかが書かれていないので、下の例では、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の何番目のデータを処理しているのかが明示されていないからでは？
と思います。

0 hits

▼

【23197】複数のファイルの作業 あいんすと 05/3/16(水) 0:58