[求助]將報表輸出至其他報表格式時,如何更改保存路徑?(已解決)

lzx-shmily

將報表輸出至其他報表格式時,如何更改保存路徑,即可跳出一個"另存為"對話框,例:

DoCmd.OutputTo acOutputReport, "採購通知單-國內", acFormatSNP, "d:\採購通知單-國內.snp"

如上,我如何將"d:\採購通知單-國內.snp"這個更改為"另存為"對話框,可自定義文件名和保存路徑.請高手指點,謝謝!

[此贴子已经被作者于2006-12-8 9:11:51编辑过]

lzx-shmily

各位高手請幫幫忙,真的很急呀!

andymark

用变量代替实际路径和名称

lzx-shmily

不會呀,能否說得詳細一些?

fan0217

dim strFileFullName as string

strFileFullName="d:\採購通知單-國內.snp"    '替换成你实际路径

DoCmd.OutputTo acOutputReport, "採購通知單-國內", acFormatSNP,strFileFullName

lzx-shmily

我是想在運行中彈出\"另存為"對話框,更改路徑和文件名,而不是固定的路徑和文件名

lzx-shmily

以下是引用fan0217在2006-12-7 11:18:00的发言：


dim strFileFullName as string

strFileFullName="d:\採購通知單-國內.snp"    '替换成你实际路径

DoCmd.OutputTo acOutputReport, "採購通知單-國內", acFormatSNP,strFileFullName

  版主这个和我的一样，一旦设定了路径，程序运行时就没办法改了

哪位高手还有什么其他办法吗？帮帮忙吧！谢谢！

lzx-shmily

顶一下

情比金坚

Private Sub Command0_Click()
Dim strFileFullName As String
strFileFullName = FileName()
DoCmd.OutputTo acOutputReport, "採購通知單-國內", acFormatSNP, strFileFullName
End Sub

Function FileName() As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "报表导出到"
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        result = .Show
        FileName = Trim(.SelectedItems.Item(1))
    End With
End Function

lzx-shmily

(msoFileDialogSaveAs)
編譯錯誤:

變量未定義

這是怎麼回事?