解釋VBA

Question

Dim fdg As FileDialog 
    Set fdg = Application.FileDialog(msoFileDialogFilePicker) 
    fdg.Filters.Add "Text Documents", "*.dat", 1 

    While fdg.Filters.Count > 1 
     fdg.Filters.Delete 2 
    Wend 

    With fdg 
     .AllowMultiSelect = False 
     .InitialFileName = "c:\" 
     .InitialView = msoFileDialogViewDetails 
     If .Show = -1 Then 
      For Each vrtSelectedItem In .SelectedItems 'onby be 1 
       strSelectedFile = vrtSelectedItem 
      Next vrtSelectedItem 
     Else 
     End If 
    End With 
    Set fd = Nothing 
    If Not IsEmpty(strSelectedFile) Then 
     Filenametxt = strSelectedFile 
    End If 

Answer 1

編碼看來這一段代碼允許用戶打開*.dat文件，並通過對所選擇的文件的路徑分配Filenametxt變量。

但我認爲你應該自己學習，不要只是要求我們向你解釋。