7,714
社区成员
发帖
与我相关
我的任务
分享
Private Sub 导出到excel_Click()
On Error GoTo errit
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim i As Integer
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Me.主查询子窗体.Form.Recordset.MoveFirst
For i = 0 To Me.主查询子窗体.Form.Recordset.Fields.Count - 1
oBook.worksheets(1).Cells(1, i + 1).Value = Me.主查询子窗体.Form.Recordset.Fields(i).Name
Next
'oBook.worksheets(1).colums(1).ColumnWidth = 15
'oBook.worksheets(1).row(1).RowHeight = 13.5
'oBook.worksheets(1).range.ColumnWidth = 15
'oBook.worksheets(1).range.RowHeight = 13.5
oBook.worksheets(1).Range("A2:P2").ColumnWidth = 9
oBook.worksheets(1).Range("Q2:U2").ColumnWidth = 18
oBook.worksheets(1).Range("A2:A1000").RowHeight = 13.5
oBook.worksheets(1).Range("A2").CopyFromRecordset Me.主查询子窗体.Form.Recordset
'oBook.ShowDlgOpenFile = ("d:\人才资料查询.xls")
oBook.SaveAs FileName:="c:\人才资料查询.xls"
MsgBox "查询成功导出为c:\人才资料查询.xls"
errexit:
oBook.Close False
oExcel.Quit
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub
errit:
MsgBox "错误号为" & Err.Number & " 错误说明:" & Err.Description
Resume errexit
End Sub
Private Sub 导出到excel_Click()
On Error GoTo errit
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim i As Integer,j as integer
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Me.主查询子窗体.Form.Recordset.MoveFirst
For i = 0 To Me.主查询子窗体.Form.Recordset.Fields.Count - 1
oBook.worksheets(1).Cells(1, i + 1).Value = Me.主查询子窗体.Form.Recordset.Fields(i).Name
Next
'oBook.worksheets(1).colums(1).ColumnWidth = 15
'oBook.worksheets(1).row(1).RowHeight = 13.5
'oBook.worksheets(1).range.ColumnWidth = 15
'oBook.worksheets(1).range.RowHeight = 13.5
oBook.worksheets(1).Range("A2:P2").ColumnWidth = 9
oBook.worksheets(1).Range("Q2:U2").ColumnWidth = 18
oBook.worksheets(1).Range("A2:A1000").RowHeight = 13.5
'oBook.worksheets(1).Range("A2").CopyFromRecordset Me.主查询子窗体.Form.Recordset
'oBook.ShowDlgOpenFile = ("d:\人才资料查询.xls")
j=2
Me.主查询子窗体.Form.Recordset.movefirst
do while not Me.主查询子窗体.Form.Recordset.eof
For i = 0 To Me.主查询子窗体.Form.Recordset.Fields.Count - 1
oBook.worksheets(1).Cells(j, i + 1).Value = Me.主查询子窗体.Form.Recordset.Fields(i).value
Next
j=j+1
Me.主查询子窗体.Form.Recordset.movenext
loop
oBook.SaveAs FileName:="c:\人才资料查询.xls"
MsgBox "查询成功导出为c:\人才资料查询.xls"
errexit:
oBook.Close False
oExcel.Quit
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub
errit:
MsgBox "错误号为" & Err.Number & " 错误说明:" & Err.Description
Resume errexit
End Sub