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保存到指定的文件夹，这种情况下，我们就是在电脑上先建立一个文件夹，然后上传保存就可以了