Re: [VB6 ] 請問用FileSystemObject來處理Excel檔案

看板Visual_Basic作者hallfive (sigh)時間16年前 (2009/05/09 19:14)推噓2(2推 0噓 2→)

留言4則, 2人參與討論串3/3 (看更多)

不好意思因為看到有前輩推文說不可以用 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)

推

rushcat

05/09 20:34, , 1^F

05/09 20:34, 1^F

→

rushcat

05/09 20:35, , 2^F

05/09 20:35, 2^F

→

hallfive

05/09 20:43, , 3^F

05/09 20:43, 3^F