展望Vba代码给出了一个错误1004

Question

Set wks = wkb.Worksheets("Calendar") 'active worksheet 
    wks.Cells(NextRow, 1) = ComboBox1.Value 

我有这两行代码与我。这里给我一个error number 1004当我打算将工作表的第一个单元格分配给工作表（wks）的值时。 让我知道，有些分辨率....

先感谢....

Answer 1

可能会出现此问题，如果任一下列条件为真：

• 在Microsoft Visual Basic应用程序（ VBA）宏复制并粘贴Excel 2003工作簿中的整行。
• Microsoft VBA宏在Excel 2003工作簿中复制并粘贴2,516行或更多行的范围。

的运行时错误1004意味着：

Runtime error 1004: Paste method of worksheet class failed. 
Runtime error 1004: Copy method of Range Class Failed. 

参考：http://support.microsoft.com/kb/905164

Answer 2

运行时错误1004通常意味着你所指的对象并不在您的工作簿存在。

与您的情况一样wks.Cells(NextRow, 1) = ComboBox1.Value 检查变量NextRow的值并确保其大于0以避免该问题。

另请检查wks工作簿是否为有效的工作簿对象。