Hi-420 2022-04-30 17:37 采纳率: 0%
浏览 84

VB 操作Excel区域选择时报错:子过程或函数未定义

如图,cells单独使用时可以执行,但是为什么配合range就会报错呢?
报错:子过程或函数未定义

我一直找不到原因,望解答

img

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

  • 写回答

1条回答 默认 最新

报告相同问题?

问题事件

  • 创建了问题 4月30日