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

[笑呵呵123]

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

[笑呵呵123]

当程序运行到红色代码部分，进行不下去，必须在任务管理器里关闭另存为进程，才能将查询数据导出

[笑呵呵123]

求助各位大神，这究竟是怎么一回事啊！

[leetia]

楼主可以直接在代码里制定存储位置，试试。我以前也遇到过这样的问题，要解决需用到句柄。比较麻烦，建议你在代码里指定存储位置试试。