set objExcelApp = createObject("Excel.Application")
2
objExcelApp.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