除錯程式時報以下錯誤：
作業需要，本人剛開始學VFP，還請高手幫忙診斷，謝謝！
代碼如下 ：
Local cFilepath
cFilepath=Thisform.text1.Value
If Empty(cFilepath)
Messagebox("請指定檔案",64,"提示")
Else
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open(cFilepath)
sSheetname=oExcel.Application.activesheet.Name &&獲取當前作業表的名稱
oExcel.worksheets(sSheetname).Activate &&激活作業表
iRowscount=oExcel.worksheets(oExcel.sheets(1).Name).usedrange.Rows.Count &&有資料的總行數
icolumns=oExcel.worksheets(oExcel.sheets(1).Name).usedrange.Columns.Count &&有資料的總列數
oExcel.Range(oExcel.activesheet.cells(1,1),oExcel.activesheet.cells(iRowscount,icolumns)).Select &&選中資料
oExcel.Selection.NumberFormatLocal = "@" &&把被選定的單元格設為文本格式
oExcel.Columns.AutoFit &&讓所有的列寬都自動調整
oExcel.DisplayAlerts=.F. &&不顯示警告
oExcel.ActiveWorkbook.SaveAs('D:\TEST.DBF',8) &&另存為DBF
oExcel.ActiveWorkbook.saved=.T. &&不保存當前EXCEL表
oExcel.Workbooks.Close &&關閉表
Thisform.grid1.Refresh
Endif
uj5u.com熱心網友回復：
oExcel.activesheet.cells.NumberFormat = "@"轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/96624.html
標籤：VFP