0

誰かがこの問題について私を助けてくれますか:

ワークブック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 が発生します。

助けてくれるのはとても親切な人でしょう。

4

1 に答える 1

2

貼り付けるには、最初に範囲をコピーする必要があります。必要なのは

test.Copy行の後にSet test= Range("G971:M1000")

についてもPaste:=test。それは正しくありません。

Paste、これらの値のいずれかを取るオプションのパラメーターです。Excel のヘルプを参照することをお勧めします。PasteSpecial

xlPasteAll
xlPasteAllExceptBorders
xlPasteAllMergingConditionalFormats
xlPasteAllUsingSourceTheme
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats

これを使って

bSource.Sheets("Sheet1").Range("B3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
于 2012-08-30T18:59:16.237 に答える