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 海詞 - 劃詞釋義
已開啟劃詞設置懸停發音即劃即查