1

さて、ここに私のコードがあります。エラーは、名前の付け方がばかげていることから来ていると確信しています。私はVBAを学び始めたばかりなので、これにまったく慣れておらず、何が問題なのかわかりません。任意の入力をいただければ幸いです。

Sub test()

Dim wsInput As Worksheet: Set wsInput = ActiveSheet
Dim wsOutput As Worksheet: Set wsOutput = Workbooks.Open("C:\output.xls").Sheets(1)
Dim OutputRowCount As Integer: OutputRowCount = 1

    For i = 1 To 10000
     If wsInput.Range("a12" & i) <> "" Then
         wsInput.Range("D12" & i, "E12" & i).Copy

       wsOutput.Range("A4" & OutputRowCount).PasteSpecial Paste:=xlPasteValues
    End If
    Next

End Sub
4

3 に答える 3

0

エラー: オブジェクト '_Worksheet' のメソッド 'Paste' が失敗しました - 1004

解決策: あるシートから別のシートに図形をコピーする前に、Excel の問題を覚えておく必要があります。1. シートをアクティブにします (コピー元から)。2. シートから形状を選択します。3. シートから形状をコピーします。4.対象のシートに貼り付けて形にする

例: 以前の私のコードは以下のようなものです:

       Sheet1.Shapes(0).Copy
       Targetsheet.Paste

以下のように修正しました。

       Sheet1.Activite
       Sheet1.Shapes(0).Select
       Sheet1.Shapes(0).Copy
       Targetsheet.Paste

現在、正常に動作しています。

于 2013-09-11T06:30:31.563 に答える