|
▼ケメ子 さん:
こんにちは
>一番効率のよい方法などをご教示いただけると幸いです。
効率の良さはわかりませんが、一般的なサンプルを載せてみます
単純に開いてコピペして保存する。を繰り返すコードです。
Sub test()
Const myPath As String = "D:\test\"
Dim i As Long
Dim shName As Variant
Dim wbA As Workbook, wbB As Workbook
Application.ScreenUpdating = False
For i = 1 To 20
Set wbA = Workbooks.Open(myPath & "元" & i & ".xls")
Set wbB = Workbooks.Open(myPath & "先" & i & ".xls", Password:="abc")
For Each shName In Array("A", "B", "C", "D")
wbA.Worksheets(shName).Range("A1:A50").Copy _
wbB.Worksheets(shName).Range("G5")
Next shName
wbA.Close False
wbB.Close True
Next i
Application.ScreenUpdating = True
End Sub
|
|