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

运行时错误1004 Microsoft Excel无法将数据粘贴到excel vba中

1 个答案: