vba打開文件夾對話框

① vba,怎麼實現通過文件夾對話框選擇想要選擇的文件夾

代碼如下：

SubGetFile()
DimFolderPickerAsObject
DimFilePathAsString
SetFolderPicker=Application.FileDialog(msoFileDialogFilePicker)
WithFolderPicker
.Filters.Clear
.Filters.Add"文本文件","*.txt"
If.Show=-1Then
FilePath=.SelectedItems(1)
Else
ExitSub
EndIf
EndWith
EndSub

② 如何用VBA打開選擇文件和選擇路徑的對話框

'注意引用microsoftoffice 10.0 （或以上）object library
'在文件對話框對中返回選擇一個文件夾的路徑.
Public Function ChooseFolder() As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
With dlgOpen
If .Show = -1 Then
ChooseFolder = .SelectedItems(1)End IfEnd With
Set dlgOpen = Nothing
End Function
'--------------------------------------------------------
'在文件對話框對中，選擇一個文件。
Public Function ChooseOneFile(Optional TitleStr As String
= 選擇你要的文件, Optional TypesDec As String = 所有文件,
Optional Exten As String = *.*) As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
.Title = TitleStr
.Filters.Clear '清除所有的文件類型.
.Filters.Add TypesDec, Exten
.AllowMultiSelect = False '不能多選.
If .Show = -1 Then
' .AllowMultiSelect = True '多個文件
' For Each vrtSelectedItem In .SelectedItems
' MsgBox Path name: & vrtSelectedItem
' Next vrtSelectedItem
ChooseOneFile = .SelectedItems(1) '第一個文件End IfEnd With

③ 如何用VBA打開選擇文件和選擇路徑的對話框

'在文件對話框對中返回選擇一個文件夾的路徑. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) With dlgOpen If .Show = -1 Then ChooseFolder = .SelectedItems(1)End IfEnd With Set dlgOpen = Nothing End Function '-------------------------------------------------------- '在文件對話框對中，選擇一個文件。

④ 如何用VBA打開選擇文件和選擇路徑的對話框

ifilename=Application.GetOpenFilename("Excel表格(*.xls),*.xls",,,,False)

ifilename就是選中文件的帶路徑的文件名，用InStrRev(ifilename, "")，配以left()函數就可以獲得文件所在文件夾。

⑤ Cad 用vba 二次開發 想知道怎麼用打開文件對話框選擇文件或者文件夾，獲

我也想知道，Excel的VBA有一個Application.GetOpenFilename可以用，但是CAD的VBA找不到類似的方法和對象。

⑥ excel vba做出一個打開文件對話框：

Sub SelectFile()
Application.DisplayAlerts = False
fil = ThisWorkbook.Name
Filename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")
If Filename <> False Then
aFile = Split(Filename, "\")
sfilename = aFile(UBound(aFile))
End If
Workbooks.Open (Filename)
Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells
Workbooks(sfilename).Close
Application.DisplayAlerts = True
End Sub

⑦ excel文件打開時 vba滿足條件彈窗提醒

注意工作表名的寫法：

一、用工作表的大名寫：

Private Sub Workbook_Open()

If Application.CountIfs(Sheets("月報表").Columns("B"), ">25", Sheets("月報表").Columns("C"), "否") Then MsgBox "請進行報備", 48

End Sub

三、提示：注意上面的工作表名的兩種寫法。

用工作表的大名，好處是大名不會變化，比如後續更改了工作表名稱，則不用改代碼。

用工作表的小名，如果你後續更改了工作表名稱，則需要同時修改原來寫在代碼里的工作表名稱。

⑧ VBA中怎麼通過打開文件的對話框獲取選擇文件的路徑並在其他模塊中引用該路徑

1.插入一個模塊或在已有的模塊最上面一行定義一個全局變數
比如: Public iFileName As String
2.在這個工作薄的其他模塊中都可以引用這個變數

比如:(先執行一次test1,再執行test2)
Sub test1()
'打開一個選擇文件的對話框
iFileName = Application.GetOpenFilename
End Sub
Sub test2()
If iFileName = "False" Then
MsgBox "沒有選擇文件!"
Else
wz = InStrRev(iFileName, "\")
Path = Left(iFileName, wz)
fname = Right(iFileName, Len(iFileName) - wz)
MsgBox "選擇的文件名為:" & fname & vbCrLf & "路徑為:" & Path
End If
End Sub

⑨ VBA問題，使用filedialog打開文件對話框的時候，怎樣設置其默認打開的文件夾。

Sub aa()
Dim mm
Set mm = Application.FileDialog(msoFileDialogFolderPicker)
With mm
.InitialFileName = "E:\數據文件" '定義「E:\數據文件」為默認路徑
End With
mm.Show
End Sub

⑩ 如何讓excel工作簿打開時出現歡迎到來的對話框：（VBA）

方法如下：

1.打開所需要的excel工作簿,ALT+F11打開 visual basic 編輯器
2.在visual basic 編輯器里,點 "視圖"-"工程資源管理器"(快捷鍵Ctrl+R),雙擊左側的"Thisworkbook",粘貼上代碼
Private Sub Workbook_Open()
MsgBox "歡迎光臨"
End Sub

保存後關閉,重新打開就行了