錯誤9與VBA

-1

我的代碼有一個小問題。它保持着一個問題錯誤9與VBA

Dim emptyRow As Long 
Dim kSheet As Worksheet 

Set kSheet = ActiveWorkbook.Sheets("customer") 
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 

kSheet.Cells(emptyRow, 2).Value = x.Text 
kSheet.Cells(emptyRow, 3).Value = y.Text

什麼即時試圖做的是簡單的失敗：我有表1 2個鍵時，此片也需要保持積極的所有的時間。通過一個按鈕，它會彈出一個用戶表單，您可以在其中輸入數據。這些數據將被插入到「客戶」表中。

編輯：現在給我一個錯誤9設置kSheet

任何人都可以幫我嗎？

親切的問候

來源

2014-10-08 Adam

BIRDSVIEW：嘗試該'emptyRow = WorksheetFunction.CountA（kSheet.Range（「A：A」））+ 1' – 2014-10-08 10:29:48

謝謝，我忘了發現在該emptyrow它意味着打開。但我有一個新問題：如果我在調試模式下運行它，kSheet將保持「Nothing」狀態。它也會返回錯誤9 – Adam 2014-10-08 10:36:04

您的工作表實際上是否在同一工作簿中名爲「客戶」，是否真的稱爲「客戶」？ – 2014-10-08 10:44:40

的（名字）的片材的客戶，但實際的名字叫Sheet2中。

正確的代碼是：

Set kSheet = ActiveWorkbook.Sheets("Sheet2")

來源

2014-10-08 11:33:12 Adam

回答

相關問題