Excel VBA質問箱 IV

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

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


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

47472 / 76732

←次へ　｜　前へ→


	【34216】シートコピー

初心者 - 06/1/28(土) 23:06 -


	引用なし

	パスワード

教えてください

複数ブック（.SLK）をTest.xlsのSheet1以降にコピーしていくのですが、その際
各シートのAA列に各ファイル番号を振りたいのですが・・宜しくお願いします。
＜結果＞
売上げ01の場合
　A　　　　　　　　AA
1　　　　　　　　　1
2　　　　　　　　　1
3　　　　　　　　　1
*　　　　　　　　　*
352　　　　　　　　1

Sub シートコピー()

　　Dim i As Integer
Application.ScreenUpdating = False
　　For i = 1 To 10
　　　　 s = "売上" & Format(i, "00")
　　　　 Workbooks.Open Filename:="G:\集計\" & s & ".SLK", UpdateLinks:=0
　　　　 Worksheets(1).Copy after:=Workbooks("Test.xls").Worksheets(1)

　　　　 Workbooks(s & ".SLK").Close False

　　Next i
Selection.NumberFormatLocal = "G/標準"
Application.ScreenUpdating = True
End Sub

0 hits

▼

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

≪