如何为DoCmd.TransferText指定当前用户桌面

本文介绍了如何为DoCmd.TransferText指定当前用户桌面的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

这就是我所拥有的:

Private Sub EthosRpt_Click()

    DoCmd.OpenQuery "EthosSessions"

    DoCmd.TransferText acExportDelim, , "EthosSessions", "C:\Users\JDoe\Desktop\EthosRpt.csv", True

End Sub

它与我的用户帐户(其中我的用户帐户= JDoe)一起使用.如何使它适用于任何当前用户?

It works with my user account (where my user account = JDoe). How do I get it to work for ANY current user?

推荐答案

尝试使用:

Private Sub EthosRpt_Click()

    Dim FileName As String

    DoCmd.OpenQuery "EthosSessions"

    FileName =  Environ("UserProfile") & "\Desktop\EthosRpt.csv"
    DoCmd.TransferText acExportDelim, , "EthosSessions", FileName, True

End Sub

这篇关于如何为DoCmd.TransferText指定当前用户桌面的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！