|
\\http://bbs.csdn.net/topics/90363261 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"http://設置字號 Ole_object.ActiveSheet.Font.Size="8"http://設置字號 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])” |
|
|
