试试：
Dim wb As Workbook
Dim newname As String
Dim FileName As String
FileName = Application.GetSaveAsFilename("新生成的表.xlsx")
If FileName = "False" Then Exit Sub
Set wb = Workbooks.Add
Dim sqlStr As String
sqlString = "select * into[8.0.Database=wb.sheet1 from accessfile;"
MsgBox sqlStr
DoCmd.RunSQL sqlStr
ActiveWorkbook.SaveAs FileName
Beep
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024