作者hallfive (sigh)
看板Visual_Basic
標題Re: [VB6 ] 請問用FileSystemObject來處理Excel檔案
時間Sat May 9 19:14:44 2009
不好意思 因為看到有前輩推文說
不可以用 CommonDialog + FileSystemObject來讀取.xls檔案格式
...我可能表達不夠清楚 我指的讀取是指開啟檔案 然後把資料讀進來
我自己是有看王國榮先生的vb書籍
裡面也是介紹以CommonDialog + FileSystemObject來讀取 存取.txt檔案
我自己有試寫了一下 從結果來看 似乎是只能用CommonDialog 但不能用 FileSystemObject
來開啟.xls檔案 程式碼如下
'以CommonDialog開啟檔案
With CommonDialog1
.CancelError = True
.DialogTitle = "開啟檔案"
.Filter = "Excel格式檔 (*.xls)|*.xls|文書檔 (*.doc;*.txt)|*.doc;*.txt"
.ShowOpen
'用FileSystemObject來開啟.xls檔
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open CommonDialog1.filename
xlApp.Sheets("sheet1").Select
============寫入讀取excel的資料==========
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp = Nothing
End With
不知道有沒有什麼問題？ 謝謝
※ 引述《hallfive (sigh)》之銘言：
: 我目前用CommonDialog + FileSystemObject可以成功的開啟並讀取.txt格式的檔案資料
: 語法如下
: '使用CommonDialog物件
: With CommonDialog1
: .CancelError = True
: .DialogTitle = "開啟檔案"
: .Filter = "Excel格式檔 (*.xls)|*.xls|文書檔 (*.doc;*.txt)|*.doc;*.txt"
: .ShowOpen
: '用FileSystemObject來讀取.txt檔
: Set fs = CreateObject("Scripting.FileSystemObject")
: Set txtf = fs.OpenTextFile(.filename, ForReading)
: Temp = txtf.ReadAll
: txtf.Close
: End With
: 那我想請問各位 是否可以用 CommonDialog + FileSystemObject來讀取.xls
: 等excel的格式呢?
: 我直接用這樣的方法開啟.xls檔案 結果程式只偵測出1個資料
: (但其實.txt檔裡有50個資料) 是檔案格式的問題嗎？
: 請問有沒有比較適合讀取excel檔案的方法 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.195.202.61
※ 編輯: hallfive 來自: 123.195.202.61 (05/09 19:15)
1F：推 rushcat:那不就是Excel的元件 跟FSO有關係嗎@"@ 05/09 20:34
2F：→ rushcat:另外只要給Excel.Application正確路徑檔名 不會有問題的 05/09 20:35
3F：→ hallfive:抱歉 是我搞錯了....恩 感謝指正 05/09 20:43
※ 編輯: hallfive 來自: 123.195.202.61 (05/09 20:44)
4F：推 rushcat:的確不能用FSO讀xls檔案 但本來就有excel元件可以用阿XD 05/09 20:47