VBA中操作Excel的部分方法代码示例

set objExcelApp = createObject("Excel.Application") 
 2objExcelApp.DisplayAlerts = false 
 3objExcelApp.Application.Visible = false 
 4objExcelApp.WorkBooks.add 
 5set objExcelBook = objExcelApp.ActiveWorkBook 
 6set objExcelSheets = objExcelBook.Worksheets 
 7set objSpreadsheet = objExcelBook.Sheets(1) 
 8
 9Dim objField, iCol, iRow 
10iCol = 1 '取得列号 
11iRow = 1 '取得行号 
12objSpreadsheet.Cells(iRow, iCol).Value = "用ASP将Access中的数据导入到Excel文件——西部e网" '单元格插入数据 
13objSpreadsheet.Columns(iCol).ShrinkToFit=true '设定是否自动适应表格单元大小(单元格宽不变） 
14'设置Excel表里的字体 
15objSpreadsheet.Cells(iRow, iCol).Font.Bold = True '单元格字体加粗 
16objSpreadsheet.Cells(iRow, iCol).Font.Italic = False '单元格字体倾斜 
17objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 '设置单元格字号 
18objSpreadsheet.Cells(iRow, iCol).ParagraphFormat.Alignment=1 '设置单元格对齐格式:居中 
19objspreadsheet.Cells(iRow,iCol).font.name="宋体" '设置单元格字体 
20objspreadsheet.Cells(iRow,iCol).font.ColorIndex=2 '设置单元格文字的颜色，颜色可以查询，2为白色 
21objSpreadsheet.Range("A1:F1").merge '合并单元格(单元区域) 
22objSpreadsheet.Range("A1:F1").Interior.ColorIndex = 1 '设计单元络背景色 
23'objSpreadsheet.Range("A2:F2").WrapText=true '设置字符回卷（自动换行） 
24iRow=iRow+1 
25For Each objField in objRS.Fields 
26'objSpreadsheet.Columns(iCol).ShrinkToFit=true 
27objSpreadsheet.Cells(iRow, iCol).Value = objField.Name 
28'设置Excel表里的字体 
29objSpreadsheet.Cells(iRow, iCol).Font.Bold = True 
30objSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
31objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 
32objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中 
33iCol = iCol + 1