Excel VBA質問箱 IV

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

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


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

50303 / 76738

←次へ　｜　前へ→


	【31325】Re:シートの選択

hisao

- 05/11/17(木) 14:55 -


	引用なし

	パスワード

▼Kein さん：
有り難う御座いました

>シートの削除と丸ごとコピーをする代わりに
>
>Sub Test()
>　 Dim Wb1 As Workboook, Wb2 As Workbook
>　 Dim i As Integer
>
>　 Set Wb1 = Workbooks("BookA.xls")
>　 Set Wb2 = Workbooks("BookB.xls")
>　 For i = 4 To Wb1.Workbooks.Count
>　　　Wb2.Worksheets(i).Cells.Clear
>　　　Wb1.Worksheets(i).Cells _
>　　　.Copy Wb2.Worksheets(i).Range("A1")
>　 Next i
>　 Set Wb1 = Nothing: Set Wb2 = Nothing
>End Sub
>
>などとしても良いか、と思います。
>
>

0 hits

▼

【31310】シートの選択 hisao 05/11/17(木) 10:09