Excel VBA質問箱 IV

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

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


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

33727 / 76807

←次へ　｜　前へ→


	【48296】Re:同一フォルダ内の複数ブックから、指定範囲のセルの値をコピー

ウッシ - 07/4/12(木) 8:47 -


	引用なし

	パスワード

こんにちは

処理内容は別にして、どのブックのどのシートのどのセルを対象にした処理なのかを
明示的に書くようにして下さい。
（With ステートメント、オブジェクト変数を使用する。）

Sub test1()
　　Dim f As String
　　Dim s As String
　　Dim k As String
　　Dim i As Long
　　Dim w As Workbook
　　Dim b As Worksheet
　　
　　With ThisWorkbook
　　　　f = .Path & "\*L.csv"
　　　　i = 2
　　　　s = Dir(f)
　　　　k = .Path & "\" & s
　　　　Do While s <> ""
　　　　　　.Worksheets("Sheet1").Cells(i, 1) = s
　　　　　　Set w = Workbooks.Open(k)
　　　　　　Set b = w.ActiveSheet
　　　　　　b.UsedRange.Rows("2").Copy .Worksheets("Sheet1").Cells(i, 2)
　　　　　　w.Close False
　　　　　　i = i + 1
　　　　　　s = Dir
　　　　　　k = .Path & "\" & s
　　　　Loop
　　End With
　　Set w = Nothing
　　Set b = Nothing
End Sub

1 hits

▼

【48269】同一フォルダ内の複数ブックから、指定範囲のセルの値をコピー eyes 07/4/10(火) 23:18