VFP 愛用者社區

[willy]

從討論區內找到以下的方法可以讀取excel 檔內的資料
但執行到最後一行sh.quit都會出現 messagebox 問我是否要存檔離開
請問是否有辦法讓他自動不存檔離開不要出現messagebox 謝謝!
xx=GETOBJECT("","Excel.Application")
sh=xx.application
sh.Workbooks.Open("C:\TEST.xls")
for k=1 to 1
mname= sh.Sheets(k).Name &&找尋第一個工作表名稱
sh.Sheets(mname).Select
sh2=sh.activesheet &&目前正執行之工作表
sh2.Columns("A:B").NumberFormatLocal = "@" &&文字型態
sh.ActiveCell.SpecialCells(11).Select &&跳至最後一列
jj=sh.ActiveCell.row() &&求最後一列值
for i=jj to 2 step -1 &&(第1列表頭不抓)
ms_name=sh2.Cells(i,'A').value
if type('mpt1no')='N'
ms_name=str(ms_name)
endif
ms_name=alltrim(ms_name)
ms_addr=sh2.Cells(i,'B').value
if type('ms_addr')='N'
ms_addr=alltrim(str(ms_addr))
endif
endfor
endfor
sh.quit &&結束excel

[KKKLYNN]

sh.Workbooks.close
應該還要save
您應該搜尋一下
可以獲得有關100%完整 excel控制方面資料

[小賴]

試試看:
oExcel=GETOBJECT("","Excel.Application")
oExcel.DisplayAlerts = .F.

[willy]

謝謝 KKKLYNN 與 小賴
我有查道方法了
sh.activeworkbook.saved=.t. &&放棄存檔
sh.workbooks.close &&關閉檔案
sh.quit &&結束excel
release xx

謝謝!!