Excel VBA質問箱 IV

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

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


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

2589 / 76734

←次へ　｜　前へ→


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

atori - 18/4/13(金) 11:04 -


	引用なし

	パスワード

▼マナさん：
>▼atori さん：
>
>>wb.Close
>↓
>wb.Close False
>
>としたほうがよいです。
>・保存しないことがわかりやすい
>・保存するかそうかの確認メッセージが出ない
>からです。

確かにメッセージが出ないのは大きいですね…。
「クリップボードに大きな情報があります」のメッセージも出てしまうので、それに関するものも入れてみました。

本当に分かりやすいご説明ありがとうございます！
教えていただいた方法で作ってみたところ、以下のマクロで1~4.xlsxまでは動作しました…！

Sub Exam1()
'
' exam1 Macro
'
　　Dim wb As Workbook
　　Dim ws As Worksheet
　　Dim wsx As Worksheet

　　For k = 1 To 4

　　　　Set wb = Workbooks.Open("C:\Users\user\Desktop\Exam\" & k & ".xlsx")
　　　　Set wsx = ThisWorkbook.Worksheets("Sheet1")
　　　　wb.Worksheets("Sheet1").Columns(2).Copy
　　　　wsx.Columns(k + 1).PasteSpecial Paste:=xlValues
　　　　wb.Application.CutCopyMode = False
　　　　wb.Close False

　　Next k

End Sub

CutCopyModeの前のApplicationや、後ろの=に関しては一回消してみたのですが、エラーメッセージが出てしまいました。

ここから、kをある程度大きな数字にしてエラーメッセージが出たら終了(つまりフォルダに存在するブックの数に達すれば終わり)という形でも良いのですが、自動的にフォルダ内のブック数を判別する方法もあるんですかね…？

9 hits

▼

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