運行時錯誤1004 Microsoft Excel無法將數據粘貼到Excel VBA中

Question

我有兩個Excel工作表。 xlVlookupSheet是一個工作表名稱，而xlShtCmdb是從中復制列數據的另一個工作表。

我收到以下錯誤：

Runtime error 1004 Microsoft excel cannot paste the data-

它在下面的for loop的第二次迭代中出現。 addressCols是一個數組，其中包含要復制的列名。

    For index = UBound(addressCols) To 0 Step -1
        xlVlookupSheet.Columns("A:A").Insert xlToLeft
         xlShtCmdb.Columns(addressCols(index) & ":" & addressCols(index)).Copy
        xlVlookupSheet.Activate
        xlVlookupSheet.Select
        xlVlookupSheet.Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues  
    Next

Answer 1

問題是，從我要復制的Excel工作表中包含33767個樣式。 如果樣式將超過3000，它將不會從源復制到目標。因此，我刪除了樣式並制作了簡單的普通紙即可。

您可以通過以下代碼獲取活動工作簿樣式的數量：-

activeworkbook.styles.count

欲了解更多信息，請點擊以下鏈接：

http://www.think-cell.com/en/support/kb/0156.shtml