PB讀取EXCEL文件

string path_name,file_name if GetFileOpenName( "選擇導入的文件... ", path_name, file_name, "XLS ", "Excel Files (*.XLS),*.XLS ") = 1 then else return end if if fileexists(path_name) then else return end if long i,ll_row,i_return oleobject xlapp,xlsub xlapp = CREATE OLEObject i_return = xlapp.ConnectToNewObject( "Excel.Application") if i_return <> 0 then MessageBox( "錯誤！ ", "無法啓動excel程序！ ") return end if xlapp.application.workbooks.open(path_name) xlsub = xlapp.application.activeworkbook.worksheets[2] do while len(string(xlsub.cells(i,9).value)) > 0 goods_code = trim(string(xlsub.cells(i,9).value)) goods_num = double(xlsub.cells(i,5).value) goods_price = double(xlsub.cells(i,6).value) goods_sum_value = round(double(xlsub.cells(i,7).value),2) goods_name = trim(string(xlsub.cells(i,1).value)) i = i + 1 loop xlapp.DisplayAlerts = False xlapp.Workbooks.close xlapp.DisplayAlerts = true xlapp.DisconnectObject() Destroy xlapp

 

以下是凌亂的代碼：

Ole_object.Workbooks.add//新建一個Excel文件 Ole_object.Workbooks.Open( "FileName ")//打開一個已存在Excel文件 Ole_object.ActiveWorkBook.Sheets( "SheetName ").Select//選擇文件中一個工作表 Ole_object.Application.Run( "MacroName ")//運行宏 Ole_object.Application.Visible=TRUE//Excel文件可見 Ole_object.Application.ScreenUpdating=true//設置可見屬性 ②格式設置 Ole_object.ActiveSheet.Columns( "A:U ").AutoFit//列寬自動調整 Ole_object.ActiveSheet.Columns( "A:Z ").ColumnWidth=6.75//列寬 Ole_object.ActiveSheet.Rows( "1:100 ").RowHeight=12//行高 Ole_object.Application.StandardFont= "ArialNarrow ";//設置字體 Ole_object.Application.StandardFontSize= "8 "//設置字號 Ole_object.ActiveSheet.Font.Size= "8 "//設置字號 Ole_object.ActiveSheet.Font.Bold=True//粗體 Ole_object.ActiveSheet.Font.Italic=True//斜體 Ole_object.ActiveSheet.Font.Underline=True//下劃線 Ole_object.ActiveSheet.Font.StrikeThrough=True//刪除線 Ole_object.ActiveSheet.HorizontalAlignment=3//水平：4靠右；3居中；2靠左 Ole_object.ActiveSheet.VerticalAlignment=2//垂直：3靠下；2居中；1靠上 Ole_object.ActiveSheet.cells(2,1).font.name=’黑體’//設置字體 Ole_object.ActiveSheet.cells(2,1).font.size=25//設置字體大小 ③工作區域操作： Ole_object.ActiveSheet.Range( "A1:Z10 ").Property=value//設置一個工作區域內的屬性值 Ole_object.ActiveSheet.Range( "A1:Z10 ").Merge//合併單元格 Ole_object.ActiveSheet.Range( "A1:Z10 ").WrapText=False//自動換行禁止 Ole_object.ActiveSheet.Range( "A1:Z10 ").Borders(b_type).Weight=i_val//b_type:1左邊界；2右邊界；3上邊界；4下邊界；5左上傾斜；6 右上傾斜(以上爲對單元格的操作)7左邊界；8上邊界；9下邊界；10右邊界；11內部垂直邊界；12內部水平邊界（以上爲對區域的操 作）//i_val:0無邊界線；然後1，2，3。。。依次邊界線加粗 Ole_object.ActiveSheet.Range( "A1:Z10 ").Borders(b_type).linestyle=1//1與7—細實、2—細虛、4—點虛、9—雙細實線 ④賦值操作 Ole_object.ActiveSheet.range( "A1:Z10 ").Cells.value=“姓名” Ole_object.ActiveSheet.range( "A1:Z10 ").Cells.value=1 Ole_object.ActiveSheet.range( "A1:Z10 ").Cells.value=“2003-01-01” Ole_object.ActiveSheet.Range( "A1:Z10 ").Cells(1,2).value=“年齡”//區域內一個單元格的賦值 Ole_object.ActiveSheet.Range( "A1:Z1 ").Cells(1,1).value=“SUM(RC[-9]:RC[-1])” ls_filename = "C:/alt_report/wf_alt_report.xls " if FileExists(ls_filename) then FileDelete(ls_filename) OleObject Loo_Excel Loo_Excel=create oleobject if Loo_Excel.ConnectToNewObject( "Excel.Application ") <> 0 then messagebox( '提示 ', '系統未安裝Excel,無法運行此操作! ') return end if Loo_Excel.Application.Workbooks.Add() Loo_Excel.Application.Workbooks(1).worksheets(1) Loo_Excel.Application.Visible = True Loo_Excel.Application.ScreenUpdating = false // '正在處理表頭...... ' Loo_Excel.Range( "A1:AB1 ").Select Loo_Excel.Selection.MergeCells = True Loo_Excel.Selection.HorizontalAlignment = 3 Loo_Excel.Selection.VerticalAlignment = 3 Loo_Excel.Selection.Font.Bold = True Loo_Excel.Selection.Font.Size = 14 Loo_Excel.Selection.RowHeight = 28.50 Loo_Excel.ActiveCell.FormulaR1C1 = dw_3.describe( "ls_title "+ ".text ") ///寫標頭 Loo_Excel.application.workbooks(1).worksheets(1).cells(3, 1 ).value = "排單號碼 " // dw_2.describe( "po_no "+ ".name "+ "_t.text ") Loo_Excel.application.workbooks(1).worksheets(1).cells(3, 2 ).value = "客人款號 " Loo_Excel.application.workbooks(1).worksheets(1).cells(3, 3 ).value = dw_2.describe( "cust_nam_t.text ") ///內容 for i=1 to dw_2.rowcount() Loo_Excel.application.workbooks(1).worksheets(1).cells(3+i, 1).value = string( dw_2.object.po_no[i] ) next Loo_Excel.application.ActiveWorkbook.SaveAs(ls_filename) Loo_Excel.Application.ScreenUpdating = True Loo_Excel.DisconnectObject() ----------------------------------------------------------------- 也可以從Excel提取信息，假設你想知道當前活動Sheet的A1單元(Cell)的值， 你可以使用如下代碼： ANY MyValue MyValue = ExcelServer.ActiveSheet.Cells(1,1).value CHOOSE CASE ClassName(MyValue) CASE 'string ' //assign to string //other data types here ...... END CASE 注意ANY變量的用法。返回的Excel對象的method/property可能是各種各樣的數據 類型，所以除非你絕對確定返回類型(例如一個Cell對象的ColumnWidth屬性一般都 返回的是integer變量)，你一般都要使用ANY變量，然後再用ClassName函數來確定 對應的值。

 

VBA 把excel 另存爲 csv的方法：

workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
其中FileFormat,即代表文件格式,

名稱     值
xlCSV     6