查询结果生成EXCEL的过程中如何增加一个存储路径提示

愉快　发表于：2009-12-20 10:07:08 　

复制

首先，谢谢楼主，上次帮我搞成了将查询结果生成EXCEL。但在，生成的过程中缺少一个存储路径提示，请问如何增加？窗体名为frmchauxn。

Top

愉快发表于：2009-12-20 10:09:57

首先上次andymark的帮助。这是附件。

点击下载此附件

Top

一启软研发表于：2009-12-23 11:01:42

在导出EXCEL单击事件中加入

Dim MyFileSavePath As String
MyFileSavePath = InputBox("请输入保存路径：", "路径提示")

保存文件时路径中加入　MyFileSavePath

Top

愉快发表于：2009-12-24 16:30:51

首先感谢。但是，好像有问题。它出现以下界面。

Top

金矢发表于：2009-12-24 17:11:09

Dim fd As FileDialog
       Set fd = Application.FileDialog(msoFileDialogFolderPicker)
       fd.TITLE = "只需选择保存备份的路径即可"
       Dim vrtSelectedItem As Variant
        If fd.Show = -1 Then
            For Each vrtSelectedItem In fd.SelectedItems
                Debug.Print vrtSelectedItem'看一下,vrtSelectedItem是不是你选的路径

             Next vrtSelectedItem
        Else
        End If
        Set fd = Nothing

Top

金宇发表于：2009-12-24 22:38:54

点击下载此附件

附件已修改,你看看是否符合你的要求.

Top

愉快发表于：2009-12-25 14:54:19

好像还有问题，小金宇的办法有个如下提示，但是好像做不出来。

Top

金宇发表于：2009-12-26 23:01:17

谢谢提醒确实有些问题，导出过程代码我已修改了一下

Private Sub CmdExcel_Click()
Call CreateQury
Dim StrName As String
Dim aa As String

aa = ShowFolderDlg("选择一个存放excel的路径。" & Chr(13) & Chr(10) & Chr(13) & "请设置为不同与后台数据路径的另一驱动器路径。")
If aa = "" Then
     MsgBox "请先选择路径", vbInformation, "提示"
     Exit Sub
Else
    If Len(aa) = 3 Then
        StrName = aa & "重柜客户_" & Format(Now, "yyyymmddHhMmSs")
    Else
        StrName = aa & "\重柜客户_" & Format(Now, "yyyymmddHhMmSs")
    End If
    Out2Excel "临时查询", StrName
End If
End Sub

Top

愉快发表于：2009-12-27 16:14:38

是可以了，谢谢小金宇。

Top

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

Access交流中心

[5分]查询结果生成EXCEL的过程中如何增加一个存储路径提示