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