1

テーブルを同じワークブック内のあるワークシートから別のワークシートにコピーし、"Table2" という名前を付けようとしていますが、エラー コード "実行時エラー '1004': オブジェクト '_Global のメソッド 'Range'' が引き続き表示されます。 ' 失敗した"。

VB:

With Sheets("Sheet1")
    .Range("table1[[#all], [#all]]").Copy Destination:=Sheets("Results").Range("A1")
End With

With Sheets("Results")
    Set copyData = .Range("a1").CurrentRegion 'sets range to that containing data
    .ListObjects.Add(xlSrcRange, Range(copyData), , xlYes).Name = "Table2" 'HERE IS THE PROBLEM LINE
End With

これに本当に苦労しています。どんな助けでも大歓迎です。

4

1 に答える 1

0

インデックス番号を使用してテーブルにアクセスできます。

With Sheets("Sheet1")
    .Range("table1[[#all], [#all]]").Copy Destination:=Sheets("Results").Range("A1")
End With

With Sheets("Results")
    Set copyData = .Range("a1").CurrentRegion 'sets range to that containing data
      .ListObjects(1).Name = "Table2"
End With
于 2013-07-04T18:47:52.433 に答える