Excel VBA質問箱 IV

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

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


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

47469 / 76732

←次へ　｜　前へ→


	【34219】Re:シートコピー

かみちゃん - 06/1/28(土) 23:46 -


	引用なし

	パスワード

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

>複数ブック（.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

0 hits

▼

【34216】シートコピー 初心者 06/1/28(土) 23:06