vba办公学习打开文件夹选择文件

㈠ 如何用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中怎么通过打开文件的对话框获取选择文件的路径并在其他模块中引用该路径

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,怎么实现通过文件夹对话框选择想要选择的文件夹

代码如下：

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

㈣ excel运用VBA打开文件夹并搜索打开文件：

wb=range("B1")&""&range("C5")&".xls"
workbooks.open(wb)

㈤ 如何实现：编写vba 弹出文件对话框，并打开选中文件

Excel 开发人员参考
Application.Dialogs 属性
返回一个 Dialogs 集合，该集合表示所有内置对话框的。只读。
语法

表达式.Dialogs

表达式 一个代表 Application 对象的变量。

示例

本示例显示“文件”菜单的“打开”对话框。

Visual Basic for Applications
Application.Dialogs(xlDialogOpen).Show

搞一个事件引发Application.Dialogs(xlDialogOpen).Show 就会 弹出文件对话框
至于打开文件，要看你是这么打开的

㈥ Cad 用vba 二次开发 想知道怎么用打开文件对话框选择文件或者文件夹，获

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

㈦ 如何在Excel中用VBA打开指定的文件夹

打开E盘
Shell "explorer.exe " & "E:\", vbNormalFocus

㈧ vba读取指定文件夹的所有文件夹

“当前路径”指的是什么的当前路径？
在Office应用程序（如Word或Excel等）中当前打开的文档所在的路径？还是Office这个应用程序所在的路径。
如果传入一个“”，好象默认是返回“我的文档”中的第一个文档。所以那个.classPath可能就是你机器上“我的文档”中的第一个文件的文件名。

下面这个函数用MsgBox显示给定目录下的所有文件名：

Function EnumAllFiles(strPathName As String)
Dim strFileName As String
strFileName = Dir(strPathName & "*.*")
While strFileName <> ""
If MsgBox("文件名是 " & strFileName & ". 是否继续枚举？", vbDefaultButton1 Or vbYesNoCancel Or vbQuestion) <> vbYes Then Exit Function
strFileName = Dir
Wend
End Function

㈨ vba 查找打开文件夹的文件

以下代码，楼主可以参考，打开文件夹，选择文件后自动打开
Sub text()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Title = "请选择对应文本文件"
.AllowMultiSelect = False
If .Show Then f = .SelectedItems(1) Else Exit Sub '
End With
Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & f, vbMaximizedFocus

End Sub

㈩ EXCEL如何使用VBA打开相对路径下的文件或文件夹急！！！

打开excel以下代码，可以提取其他文件中的表“重量汇总”F520:BV521的数据，其中有选择文件路径的过程，你稍改动也许对你有帮助。。。

Sub 数据提取()
Dim FileName1 As String
Dim FileName As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
FileName1 = Application.ActiveWorkbook.Name
FileName1 = Right(FileName1, Len(FileName1))
FileName = Application.GetOpenFilename(" ( *.xls & *.Steel& *.xlsx),*.xls;*.xls;*.Steel", , " ")
FileName = Right(FileName, Len(FileName))
Windows(FileName1).Activate
Sheets(" Sheet 1").Select
Range("A2").Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Workbooks.Open FileName:=FileName
FileName2 = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Windows(FileName2).Activate
Sheets("重量汇总").Select
Range("F520:BV521").Select
Selection.Copy
Windows(FileName1).Activate
Sheets(" Sheet 1").Select
Range("B2").Select
ActiveSheet.Paste Link:=True
Range("A2").Select
Range("A2") = FileName2
FileName3 = Left(FileName, Len(FileName) - Len(FileName2))
Range("BS2") = FileName3
Windows(FileName2).Close
End Sub查词典
Dict.cn 海词 - 划词释义
已开启划词设置悬停发音即划即查