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

daviee

通过查询导出到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"     '这句能直接保存

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

roych

使用filedialog吧：http://www.office-cn.net/forum.p ... ighlight=filedialog

daviee

研究中。。。
    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


留个印记，下次好找