如何在导出Excel时能跳出对话框选择路径并以自定义的文件名保存？

daviee　发表于：2019-04-01 13:09:56 　

通过查询导出到Excel，想在导出时能跳出对话框选择保存的文件夹，但是文件名是自己定义好的。因为不同的文件需要保存到不同的文件夹中。

'再写入数据
xlSheet.Range("A2").CopyFromRecordset rs
rs.Close

'调整列宽
xlSheet.Columns.EntireColumn.AutoFit
xlApp.Visible = True
xlBook.Activate
ExportToExcel = True
xlApp.Worksheets(1).Name = Me.Caption & Format(Date, "_yyyymmdd")    'SHEET名称
Dim j As Integer
For j = 1 To 14
      xlSheet.Cells(1, j).Interior.ColorIndex = 33 '填充颜色为浅绿色
Next
' xlApp.Application.Dialogs(5).Show  '这句能跳出对话框
xlBook.SaveAs "C:\Users\Administrator\DeskTop\" & Me.Caption & Format(Now, "yyyymmddhhmmss") & " .xls"    '这句能直接保存

怎么把这二句结合成一个功能，谢谢！

Top

daviee 发表于：2019-04-03 11:56:52

   DoCmd.SetWarnings False
Dim strPath As String
With xlApp.Application.FileDialog(msoFileDialogSaveAs)
.Title = "请保存文件"
.ButtonName = "保存"
.InitialView = msoFileDialogViewDetails
.InitialFileName = "C:\Users\Administrator\DeskTop\" & Me.Caption & Format(Now, "yyyymmddhhmmss") & " .xls"
If .Show = -1 Then
xlBook.SaveAs  Me.Caption & Format(Now, "yyyymmddhhmmss") & " .xls"
Else
Debug.Print "用户取消"
End If
End With

留个印记，下次好找

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

如何在导出Excel时能跳出对话框选择路径并以自定义的文件名保存？