如图,cells单独使用时可以执行,但是为什么配合range就会报错呢?
报错:子过程或函数未定义
我一直找不到原因,望解答
If DateValue(xlapp.Sheets(1).Cells(c, 1)) >= DTPicker1.Value And DateValue(xlapp.Sheets(1).Cells(c, 1)) <= DTPicker2.Value Then
'此时所选区域日期在选定日期之间
hh = xlapp.Sheets(1).Cells(c, 1).row
Else
End If
If DateValue(xlapp.Sheets(1).Cells(c, 1)) < DTPicker1.Value Then
'此时所选区域日期在选定日期下限
xx = xlapp.Sheets(1).Cells(c, 1).row + 1
End If
Next
xlapp.Sheets(1).Range(Cells(xx, 1), Cells(hh, 12)).ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
App.Path & "\查询结果.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False