[VB6 ] 在VB6環境下,如何用excel開非excel的資 …
請問一下...
小弟用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
推
08/22 11:47, , 1F
08/22 11:47, 1F
抱歉...我應該說詳細一點
我是在filelistbox裡開
所以語法應該是:
Set oBook = oExcel.Workbooks.Open(File1.FileName)
然後我要開123456.TXT
※ 編輯: chrishappy11 來自: 123.195.0.26 (08/22 18:09)
推
08/25 11:01, , 2F
08/25 11:01, 2F
→
08/25 11:01, , 3F
08/25 11:01, 3F