Excel VBA質問箱 IV

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

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


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

58587 / 76738

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

▼G-Luck さん：
転記1、転記2は、結果は同じですが
転記2では、やはりコピー元のRange("B2:P14").Selectが、コピー先では
Range("B10:P22").Selectがきてしまうですが、リンク貼り付けだから、
ですかね。

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(Fn).Activate　　
　　ActiveWorkbook.Close True
End Sub

0 hits

▼

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