Hi-420 2022-04-30 17:37 采纳率: 80%
浏览 85
已结题

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条回答 默认 最新

报告相同问题?

问题事件

  • 系统已结题 1月24日
  • 已采纳回答 1月16日
  • 创建了问题 4月30日