|
▼pepper さん:
ponponです。こんばんは。
手作業でするのをコードにしてみました。
fileが1から9だとloopできるので、こんな風になります。
参考にしてください。
Sub test()
Dim A As Range
Application.ScreenUpdating = False
For i = 1 To 9
Workbooks.Open Filename:="D:\文書\test\0" & i & ".xls" 'ファイルの場所
'Workbooks.Open Filename:="D:\文書\test\10.xls"
With Workbooks("Book1.xls")
Set A = .Sheets("sheet1").Range("A1")
A.Value = "file"
A.Offset(, 1).Value = "H180"
A.Offset(i, 0).Value = "0" & i
A.Offset(i, 0).NumberFormatLocal = "@"
A.Offset(i, 1).Value = Workbooks("0" & i & ".xls").Sheets(1).Range("H180").Value
End With
Workbooks("0" & i & ".xls").Close
Next
Application.ScreenUpdating = True
End Sub
>はじめまして。VBA初心者です。
>複数ファイル間でのやりとりについてわかりません。
>
>質問は01〜10までのファイルがあり、一つのファイルに一つのシートと
>なっています。シート名はファイル名と同じです。
>そこでこれらから セルH180 の値をコピーし Book1に
>
>file H180
> 01 123
> 02 155
> 03 193
> …
>
>としたいのですがさっぱりです。どなたかご教示願います。
|
|