时间戳

首页 > 解决方案 > Excel VBA ChDir 不会更改我的目录

excel - Excel VBA ChDir 不会更改我的目录

问题描述

我试图让一个用户文件选择框自动打开一个目录。

一切正常，但不是打开正确的目录，我仍然需要点击正确的目录。

我的代码如下。

ChDir ("\\file path string")
userFile = Application.GetOpenFilename(fileFilter:="csv Files(*.csv),*.csv", Title:="csv Files")
Workbooks.OpenText Filename:=userFile

我还能够让 ChDrive 之类的东西正常工作。该文件位于网络上。

谢谢

标签： excelvbachdir

解决方案

当我需要将当前目录设置为网络共享时，我会使用它：

Option Explicit

Private Declare Function SetCurrentDirectoryA Lib _
    "kernel32" (ByVal lpPathName As String) As Long

Sub ChDirNet(szPath As String)
    Dim lReturn As Long
    lReturn = SetCurrentDirectoryA(szPath)
    If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub

Sub tester()

    ChDirNet "\\marge\bart\"

End Sub

推荐阅读