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

保存后关闭,重新打开就行了