|
▼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
|
|