消息关闭
    暂无新消息!

access查询数据导出excel文件格式

问题作者 : 乖乖仔2017-06-12发布
Private Sub 导出数据表_Click()
Dim xls As Object
Dim xlsbook As Object
Dim i As Integer
Set xls = CreateObject("excel.application")
Set xlsbook = xls.Workbooks.Add
Me.查询结果.Form.Recordset.MoveFirst
For i = 0 To Me.查询结果.Form.Recordset.Fields.Count - 1
        xlsbook.worksheets(1).Cells(1, i + 1).Value = Me.查询结果.Form.Recordset.Fields(i).Name
Next
On Error Resume Next
xls.worksheets(1).Range("A2").CopyFromRecordset Me.查询结果.Form.Recordset
xlsbook.worksheets(1).Range(xlsbook.worksheets(1).Cells(1, 1), xlsbook.worksheets(1).Cells(200, 40)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .RowHeight = 30
        .ColumnWidth = 50
    End With
    With Selection.Font
        .FontStyle = "宋体"
        .Size = 10
    End With

xlsbook.Application.Dialogs(xlDialogSaveAs).Show
xls.Quit
Set xlsbook = Nothing
Set xls = Nothing
End Sub

0个回答

暂无回答!