Excel VBA質問箱 IV

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

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


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

58592 / 76732

←次へ　｜　前へ→


	【22865】Re:ファイルコピー

よへです - 05/3/5(土) 12:05 -


	引用なし

	パスワード

▼G-Luck さん：
変更してみたのですが
転記1は、ok　何ですが
転記2では、だめですね。
よみこんだファイルが閉じないでマクロが止まりますね
Sub 転記1()
　　a = Application.GetOpenFilename()
　　Workbooks.Open Filename:=a
　　Sheets("総括").Select
　　Range("B2:P14").Select
　　Selection.Copy
　　Windows("総括基本.xls").Activate
　　Range("B2").Select　<-----------ここですB2,B16,B30,B44
　　ActiveSheet.Paste
　　Range("A3").Select
　　Workbooks.Open Filename:=a <----ここでは、ok　何ですが
　　ActiveWorkbook.Close True
End Sub
Sub 転記2()
　　b = Application.GetOpenFilename()
　　Workbooks.Open Filename:=b
　　Sheets("総括").Select
　　Range("B2:P14").Select
　　Selection.Copy
　　Windows("総括基本.xls").Activate
　　Range("B16").Select
　　ActiveSheet.Paste
　　Range("A3").Select
　　Fn = Dir(b)　　　　　　　<--変更
　　Workbooks(b).Activate　　<--デバックとでます
　　ActiveWorkbook.Close True
End Sub

4 hits

▼

【22839】ファイルコピー よへです 05/3/4(金) 17:54