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操作文件夾

Sub 拷貝文件夾()

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

For i = 2 To 100

If Cells(i, 1) = "" Then Exit For

OldString = "路徑說明書"

NewString = "路徑" & Cells(i, 1) & "說明書"

fs.Copyfolder OldString, NewString

Set fs = Nothing

Next

End Sub

㈢ 如何用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,怎麼實現通過文件夾對話框選擇想要選擇的文件夾

代碼如下：

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按關鍵字選擇性的遍歷文件夾搜索文件

Excel怎樣批量提取文件夾和子文件夾所有文件

㈥ EXCEL VBA怎麼選定文件

VBA包含了許多用於文件操作的語句和函數，可以滿足絕大多數情況下的文件操作要求。下面我們按照操作目的進行一一介紹。
（一）文件處理
1.Name
語句
語法：Name
oldpathname
As
newpathname
功能：重命名一個文件、目錄、或文件夾，移動一個文件。
說明：在一個已打開的文件上使用
Name，將會產生錯誤。進行文件操作時，一定要注意錯誤處理。
示例：
On
Error
Resume
Next
'錯誤處理
Name
"f:\TEST.xls"
As
"f:\TEST123.xls"
'重命名
Name
"f:\TEST.xls"
As
"f:\dll\TEST.xls"
'移動文件
Name
"f:\TEST.xls"
As
"d:\TEST123.xls"
'跨驅動器移動並重命名文件
注意：Name不能移動一個目錄或文件夾。
2、FileCopy
語句
語法：FileCopy
source,
destination
功能：復制一個文件。
說明：如果對一個已打開的文件使用
FileCopy
語句，則會產生錯誤。
示例：
FileCopy
"f:\TEST.xls",
"e:\TEST.xls"
'從F盤復制TEST.xls到E盤
3、Kill
語句
語法：Kill
pathname
功能：從磁碟中刪除文件。
說明：Kill
支持多字元
(*)
和單字元
(?)
的統配符來指定多重文件。如果使用
Kill
來刪除一個已打開的文件，則會產生錯誤。
示例：
Kill
"f:\TEST.xls"
』刪除F盤的TEST.xls文件
Kill
"f:\*.xls"
'
刪除F盤所有xls文件

㈦ vba 如何選擇多個文件夾

VBA好像只可以選擇一個文件夾，但可以選擇多個文件
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Show
。。。。。。
End With

詳細可以參考http://blog.sina.com.cn/s/blog_54b09dc90100qbsp.html

㈧ 用VBA如何批量將工作表保存到指定的文件夾

用vba保存到指定的文件夾，這種情況下，我們就是在電腦上先建立一個文件夾，然後上傳保存就可以了