|
こんにちは。かみちゃん です。
>複数ブック(.SLK)をTest.xlsのSheet1以降にコピーしていくのですが、その際
>各シートのAA列に各ファイル番号を振りたい
SLKファイルを開いたときに、1行目からA列に入力されている最終行までのAA列に
番号を振りたいということであれば、以下のような感じでできると思います。
Sub シートコピー()
Dim i As Integer
Dim WB As Workbook
Application.ScreenUpdating = False
For i = 1 To 10
s = "売上" & Format(i, "00")
Set WB = Workbooks.Open("G:\集計\" & s & ".SLK", 0)
With Worksheets(1)
.Range("A1", .Range("A65536").End(xlUp)).Offset(, 26).Value = i
.Copy After:=Workbooks("Test.xls").Worksheets(1)
End With
WB.Close False
Next i
Selection.NumberFormatLocal = "G/標準"
Application.ScreenUpdating = True
End Sub
|
|