Excel VBA質問箱 IV

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

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


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

2668 / 76807

←次へ　｜　前へ→


	【79781】Re:VBA初心者です。ブック間の列コピーを繰り返す方法について

マナ - 18/4/11(水) 22:11 -


	引用なし

	パスワード

▼atori さん：
　
>　　Set wb =　Application.Workbooks.Open("C:\Users\user\Desktop\Sample\1.xlsx")

１）Application.は省略できます。というか普通は省略します。
他のapplication例えばWordのマクロでExcelを開くとかだと必須ですが
ほとんどの場合、不要です。

>　　Set ws = wb.Worksheets("Sheet1")
>　　Set wsx = ThisWorkbook.Worksheets("Sheet1")
>
>　　ws.Range("B:B").Copy
>　　wsx.Range("B:B").PasteSpecial Paste:=xlValues
>
>　　wb.Save
>　　wb.Close

２）保存する必要がありますか？
保存しないで閉じるだけでよいのではありませんか。

>　　Set wb = Application.Workbooks.Open("C:\Users\user\Desktop\Sample\2.xlsx")
>
>　　ws.Range("B:B").Copy

３）変数wsは、毎回SETしなおす必要があります。
このままだと、wsは、最初のブックのSheet1のままで、
すでにブックは閉じた後なので、エラーになると思います。

>　　wsx.Range("C:C").PasteSpecial Paste:=xlValues

４）B列は、2列めなので、Columns(2)、
C列は、3列めなので、Columns(3)と記述できます。
繰り返し処理したいときには、このほうがよいです。
ｋ回目の貼付け先は、Columns(ｋ+1)と記述できるからです。

以上を踏まえて、修正していただけますか。

2 hits

▼

【79775】VBA初心者です。ブック間の列コピーを繰り返す方法について atori 18/4/10(火) 15:08