[英]Excel VBA - Unable to find error causing 'runtime error 91'
我有以下代碼,這導致
運行時錯誤91-未設置對象變量
我已將每個工作簿,工作表和變量調暗,但不能消除錯誤。
Dim r As Long, c As Long
Dim snowq As Workbook, CAQual As Workbook, qsum As Worksheet, CAqsum As Worksheet
For r = 2 To 8
For c = 2 To 4
combinedReports.Worksheets("combinedQualities").Cells(r, c).Value = _
snowq.Worksheets("qsum").Cells(r, c).Value + CAQual.Worksheets("CAqsum").Cells(r, c).Value
Next
Next
注意,第一個工作簿和工作表在代碼的更深處但在同一模塊中。
任何幫助表示贊賞。
編輯:
這是模塊的頂部,其中包括設置實際的工作簿和工作表:
'Create new workbook
Dim combinedReports As Workbook, combinedCsats As Worksheet, combinedQualities As Worksheet, combinedTickets As Worksheet
Set combinedReports = Workbooks.Add
Sheets("Sheet1").name = "Combined CSAT's"
Set combinedCsats = combinedReports.Sheets("Combined CSAT's")
Sheets.Add After:=ActiveSheet
Sheets("Sheet2").name = "Combined Qualities"
Set combinedQualities = combinedReports.Sheets("Combined Qualities")
Sheets.Add After:=ActiveSheet
Sheets("Sheet3").name = "Combined Tickets"
Set combinedTickets = combinedReports.Sheets("Combined Tickets")
在For r = 2 to 8
循環之前插入此代碼,該代碼將在有故障的對象上停止。
Debug.Print combinedReports.Name
Debug.Print combinedReports.Worksheets("combinedQualities").Name
Debug.Print snowq.Name
Debug.Print snowq.Worksheets("qsum").Name
Debug.Print CAQual.Name
Debug.Print CAQual.Worksheets("CAqsum").Name
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.