生成Excel文件时出现问题
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim N As Integer
N = 3
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1:G1").Select
oSheet.Range("A1:G1").MergeCells = True
oSheet.Range("A1:G1") = "案卷目录"
With oSheet
.cells(2, 1) = "序号"
.cells(2, 2) = "文件编号"
.cells(2, 3) = "责任者"
.cells(2, 4) = "文件材料题名"
.cells(2, 5) = "日期"
.cells(2, 6) = "页次"
.cells(2, 7) = "备注"
End With
oSheet.Range("D2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
运行时出现错误,它说.HorizontalAlignment = xlCenter要求对象,请问如何解决?
[解决办法]
Rookie_Allen：我试了你的代码，没问题。winxp+excel2002.你可以改成
oSheet.Range("D2").Select
oExcel.visible=true '新加的
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
试试
