誰かがこの問題について私を助けてくれますか:
ワークブック1にマクロがあります。私がすることは
'workbook2.txt を開く
Workbooks.OpenText filename:= _
"workbook2.txt", Origin:=437, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1)), _
TrailingMinusNumbers:=True
' copy a range
Dim test As Range
Set test= Range("G971:M1000")
'close workbook2
Workbooks("workbook2").Close
'copy test in workbook1
Windows("workbook1.xlsm").Activate
Sheets("Sheet1").Select
Range("B3").Select
Selection.PasteSpecial Paste:=test, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
これにより、実行時エラー 1004 が発生します。
助けてくれるのはとても親切な人でしょう。