這個是直接匯入的。還有一種方法，就是逐行逐列讀取excel表格，這個方法效率不高，但是有個好處就是excel的資料檔案和資料視窗不要求對應，就相當於excel是一個數據視窗，從這裡取值，賦值到目標資料視窗一樣的操作。如果你需要我也可以幫你寫一個例子。 先傳一個直接匯入的：這種匯入要求excel和資料視窗的欄位對應。 OLEObject ExcelServer long excelok string str_savename string str_filename string named integer value value = GetFileOpenName("開啟檔案",str_filename, named, "DOC", & "文字檔案 (*.TXT),*.TXT," & + "EXCEL 檔案 (*.XLS),*.XLS,"+"EXCEL 檔案 (*.XLSX),*.XLSX") if value = 1 then ExcelServer = CREATE OLEObject ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" ) if excelok < 0 then messagebox("連線excel失敗,檢查你的系統是否安裝了office",string(excelok)) return else dw_1.reset() ExcelServer.Workbooks.Open(str_filename) str_savename="c: emp.txt" excelserver.activeworkbook.saveas(str_savename,3) excelserver.displayalerts=false ExcelServer.quit() ExcelServer.DisconnectObject() DESTROY ExcelServer dw_1.ImportFile(str_savename) filedelete(str_savename) end if end if
這個是直接匯入的。還有一種方法，就是逐行逐列讀取excel表格，這個方法效率不高，但是有個好處就是excel的資料檔案和資料視窗不要求對應，就相當於excel是一個數據視窗，從這裡取值，賦值到目標資料視窗一樣的操作。如果你需要我也可以幫你寫一個例子。 先傳一個直接匯入的：這種匯入要求excel和資料視窗的欄位對應。 OLEObject ExcelServer long excelok string str_savename string str_filename string named integer value value = GetFileOpenName("開啟檔案",str_filename, named, "DOC", & "文字檔案 (*.TXT),*.TXT," & + "EXCEL 檔案 (*.XLS),*.XLS,"+"EXCEL 檔案 (*.XLSX),*.XLSX") if value = 1 then ExcelServer = CREATE OLEObject ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" ) if excelok < 0 then messagebox("連線excel失敗,檢查你的系統是否安裝了office",string(excelok)) return else dw_1.reset() ExcelServer.Workbooks.Open(str_filename) str_savename="c: emp.txt" excelserver.activeworkbook.saveas(str_savename,3) excelserver.displayalerts=false ExcelServer.quit() ExcelServer.DisconnectObject() DESTROY ExcelServer dw_1.ImportFile(str_savename) filedelete(str_savename) end if end if