作者chrishappy11 ()
看板Visual_Basic
标题[VB6 ] 在VB6环境下,如何用excel开非excel的资料 ?
时间Mon Aug 22 08:05:44 2011
请问一下...
小弟用VB6写excel的一些命令
要来打开副档名不是.XLS的档
(如: TXT, DAT...等)
CODE:
Dim xlApp1 As Excel.Application
Dim xlBook1 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Set xlApp1 = CreateObject("Excel.Application")
Set xlBook1 = xlApp1.Workbooks.Open("c:\123456.txt")
xlApp1.DisplayAlerts = False
xlApp1.Visible = True
xlBook1.Activate
xlBook1.Parent.Windows(1).Visible = True
Set xlSheet1 = xlBook1.Worksheets(1)
xlSheet1.Activate
但是执行後出现下面错误
执行阶段错误'1004':
找不到'123456.xlsx' ,
请检查档名是否有拼错或是档案位置是否正确
我确定路径跟档名正确,档案也存在
怎麽办?...请问各位高手这怎解决?
(P.S 因为公司原因,我无法更改文字档的副档名为XLS,而且...我不会写VBA)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.195.0.26
1F:推 ClubT:你程式是 c:\123456.txt 为什麽会出现 找不到'123456.xlsx'? 08/22 11:47
抱歉...我应该说详细一点
我是在filelistbox里开
所以语法应该是:
Set oBook = oExcel.Workbooks.Open(File1.FileName)
然後我要开123456.TXT
※ 编辑: chrishappy11 来自: 123.195.0.26 (08/22 18:09)
2F:推 ClubT:oExcel.Workbooks.Open(File1.PathName+"/"+File1.FileName) 08/25 11:01
3F:→ ClubT:应该是这样 08/25 11:01