作者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