exportToExcelPrd 是一个模块，但在运行时，显示错误信息“缺乏过程或变量，不是模块”

[liuyali16888]

Private Sub Command4_Click()
Dim startdate As String
Dim enddate As String
startdate = DTPicker1.Value
enddate = DTPicker2.Value

ExportToExcelPrd ("select ID,opr,recddate,PrdNo,Construction,Spec,YarnCount,Content,Shrink,Color,flexible,Wgtbfwsh,Wgtafwsh,Width,WidthCutable,PcOrYarnDye,currentstock,CareInstr from prdinfo where prdinfo!recddate Between #" & startdate & "# And #" & enddate & "# and order by prdinfo!recddate")

MsgBox "恭喜你，数据导出成功", 48, "祝贺"

End Sub


exportToExcelPrd 是一个模块，但在运行时，显示错误信息“缺乏过程或变量，不是模块”