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

34

35