VBA Excel提示用户选择默认文件夹中的文件 [英] VBA Excel prompt user to select a file in a default folder

问题描述

我想提示用户打开默认文件夹中的Excel文件。我不知道如何打开默认文件夹。

Sub Program1()
    DefaultFolder = "C:userdump"
    FName = Application.GetOpenFilename
    If FName <> False Then
        Set WorkB2 = Workbooks.Open(FName)
        ' some codes here
    End If
End Sub                           

推荐答案

使用chdir：

Sub Program1()
  Chdir "C:userdump"
  FName = Application.GetOpenFilename
  If FName <> False Then
    Set WorkB2 = Workbooks.Open(FName)
    ' some codes here
  End If
End Sub

这篇关于VBA Excel提示用户选择默认文件夹中的文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！