VBA Excel提示用戶選擇默認文件夾中的文件

Question

我想提示用戶在默認文件夾中打開Excel文件。我不知道如何打開默認文件夾。

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

Answer 1

使用CHDIR：

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

Answer 2

這裏是例如打開Excel文件

Option Explicit 
Sub OpenFile() 
    Dim xlFile  As Variant 

    ChDir "C:\temp" 

    '// Showing Excel Dialog 
    xlFile = Application.GetOpenFilename("All Excel Files (*.xls*)," & _ 
    "*.xls*", 1, "Select Excel File", "Open", False) 

    '// If Cancel then exit 
    If TypeName(xlFile) = "Boolean" Then 
     Exit Sub 
    End If 

    '// Open selected file 
    Workbooks.Open xlFile 
End Sub