1

1つのブックにコードがあります。これにより、別のブックが開き、コードをコピーしてブックに貼り付ける必要があります。データを選択できますが、貼り付けることができません。

エラーが発生するコードのさまざまなバリエーションを試しましたが、何も起こりません。例はtemplate.xlsで実行されます。これは、データを貼り付ける場所です。

Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls")

With dlsheet.Sheets("Data")

    .range("A1:H3").Select.copy
    selection.copy

End With

テンプレートからコピーされるため、選択の使用方法がわかりません。選択の前に終止符を使用してみました。

シート全体をdlsheetから新しいワークブックにコピーできます。誰かが新しいワークブックではなくテンプレートにコピーする方法を教えてくれれば、これでもうまくいきます。

dlsheet.Sheets("Data").Copy
4

2 に答える 2

1 
Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls")
dlsheet.Sheets("Data").range("A1:H3").copy

ThisWorkbook.ActiveSheet.Paste Destination:=ThisWorkbook.ActiveSheet.Range( "A1:H3")
于 2012-06-14T08:56:58.227 に答える
0

これを試して

Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls")

With dlsheet
    .Sheets("Data").Range("A1:H3").Copy

    .Sheets("Data").Range("A1").PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
于 2012-06-14T09:23:48.053 に答える