在Excel中将查询除以0错误

Question

我正在从Excel运行存储过程以将数据输出到电子表格中。我创建的自动化测试工作完美无缺，直到今天我收到“除以0错误”消息。日期在sql中存储为smalldatetime，我无法更改，因为我没有对数据库的访问级别。我收到错误的代码是以Sheet1.Range：

开头的行

curDate = ThisWorkbook.Sheets("Tech_Penetrate_Report_Data").Cells(2,   2).Value


With rsTIP1
.ActiveConnection = cnTIP
.Open "exec usp_RankingReport @Node_Id = 03,@Subsidiary_Cd = '001',@WeekEndDate = '" & curDate & "', @JobType = '1060',@ReportLevel = 1"
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).CopyFromRecordset rsTIP1
.Close

结束