当运行到下列过程中的这句时:
CNN.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';data source=" & ThisWorkbook.Path & "\订单信息.xls"
出现:运行时错误 -2147467259 Could not find installable ISAM.
请问如何解决??
Private Sub UserForm_Initialize()
XArray = Array("产品类别", "销售区域", "订单类型", "付款方式", "订单日期", "订单号码")
TrvwInit
With TreeView1
.Nodes.Add , , "订单汇总", "订单汇总", 4, 1
.Nodes.Item(1).Expanded = True
.Nodes.Add "订单汇总", tvwChild, "CHIP", "CHIP", 4, 1
.Nodes.Add "订单汇总", tvwChild, "POY", "POY", 4, 1
.Nodes.Add "订单汇总", tvwChild, "FDY", "FDY", 4, 1
.Nodes.Add "订单汇总", tvwChild, "DTY", "DTY", 4, 1
End With
CNN.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';data source=" & ThisWorkbook.Path & "\订单信息.xls"
End Sub |