vba打开指定文件夹

⑴ vba如何打开文件夹对话框

1.打开一个表格文件；
2.按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【打开文件选择对话框】；
3.定义对话框变量（Dim fd As FileDialog：Set fd = Application.FileDialog(msoFileDialogFilePicker)）；
4.设置文件默认目录及显示对话框;
5.执行宏后就会弹出文件选择对话框。

⑵ 如何用vba代码打开文件夹内的word文档

Sub Read_Word()x0dx0aDim worDoc As objectx0dx0aDim wordappl As objectx0dx0aDim mydoc As Stringx0dx0aDim myappl As Stringx0dx0amydoc = thisworkbook.path & "\" & "文件名.doc"x0dx0a'本文档目录下的doc文件，这里可以直接改成路径＋文件名的形式x0dx0aSet wordappl = CreateObject("Word.application")'设置wordappl对象x0dx0aSet worDoc = wordappl.Documents.Open(mydoc)x0dx0a'打开word文档，mydoc变量指定路径和文件名x0dx0aworDoc.Activate'激活打开的文档x0dx0awordappl.Selection.WholeStory '全选文档x0dx0awordappl.Selection.Copy'复制选择内容到剪贴板x0dx0aworDoc.Application.Quit'关闭word文档x0dx0aSet WordApp = Nothing'释放对象变量的内存x0dx0aWorkbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表x0dx0aActiveSheet.UsedRange.Clear'把当前工作表清空，如果有重要数据，这条删除x0dx0aCells(1, 1).Select'选择A1单元格x0dx0aActiveSheet.Paste'粘贴复制的内容x0dx0awordappl.quitx0dx0aset wordappl =nothingx0dx0aEnd Sub

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

打开文件如下：

Workbooks.Open ("C:对账单对帐单.xlsx")

这里你可以把“C:对账单”换成你的绝对路径，

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" & a & "&" "&对帐单.xlsx")

来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码：

Workbooks.Open ("" & a & "&" A"&b.xlsx")

⑷ 如何用vba代码打开文件夹内的word文档

Sub Read_Word()
Dim worDoc As object
Dim wordappl As object
Dim mydoc As String
Dim myappl As String
mydoc = thisworkbook.path & "\" & "文件名.doc"
'本文档目录下的doc文件，这里可以直接改成路径＋文件名的形式
Set wordappl = CreateObject("Word.application")'设置wordappl对象
Set worDoc = wordappl.Documents.Open(mydoc)
'打开word文档，mydoc变量指定路径和文件名
worDoc.Activate'激活打开的文档
wordappl.Selection.WholeStory '全选文档
wordappl.Selection.Copy'复制选择内容到剪贴板
worDoc.Application.Quit'关闭word文档
Set WordApp = Nothing'释放对象变量的内存
Workbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表
ActiveSheet.UsedRange.Clear'把当前工作表清空，如果有重要数据，这条删除
Cells(1, 1).Select'选择A1单元格
ActiveSheet.Paste'粘贴复制的内容
wordappl.quit
set wordappl =nothing
End Sub

⑸ vba如何打开一个文件夹下所有xls文件

注意神碧此 c:\a 目录下的文件不要太多,免得死机

Sub 打开excel表格()
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = "c:\a\" '游迅把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定慧链路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
End Sub

⑹ VBA 如何显示文件夹，就是只打开文件夹就可以了

直接使用Shell函数，使用explorer.exe来打开文件夹即可。代码如下：

Subshowdir()
Shell"explorer.exeD:dir",vbNormalFocus
EndSub

效果如下：

Shell 函数说明
运行可执行程序并在成功时返回表示程序的任务 ID 的 Variant (Double)，否则返回零。
语法
Shell(pathname[,windowstyle])
Shell 函数语法具有以下命名参数：
组成部分
说明
pathname
必需；Variant (String)。要执行的程序的名称以及任何必需的参数或命令行开关；可能包括目录或文件夹和驱动器。在 Macintosh 中，可以使用 MacID 函数指定应用程序的签名，而不是名称。以下示例使用 Microsoft Word 的签名：
Shell MacID("MSWD")
windowstyle
可选。与要运行程序的窗口的样式对应的 Variant (Integer)。如果省略 windowstyle，程序将启动并最小化，但会获得焦点。在 Macintosh（System 7.0 或更高版本）中，windowstyle 只确定应用程序在运行时是否获得焦点。
windowstyle 命名参数具有以下值：
常量 值 说明
vbHide 0 隐藏窗口并将焦点传递给隐藏的窗口。vbHide 常量在 Macintosh 平台中不适用。
vbNormalFocus 1 窗口获得焦点，并还原到其原始尺寸和位置。
vbMinimizedFocus 2 窗口显示为具有焦点的图标。
vbMaximizedFocus 3 窗口最大化并具有焦点。
vbNormalNoFocus 4 窗口还原到最近的尺寸和位置。当前活动的窗口仍保持活动状态。
vbMinimizedNoFocus 6 窗口显示为图标。当前活动的窗口仍保持活动状态。
注释
如果 Shell 函数成功执行命名文件，它将返回已启动程序的任务 ID。任务 ID 是标识正在运行的程序的唯一编号。如果 Shell 函数无法启动指定的程序，则会发生错误。
在 Macintosh 中，vbNormalFocus、vbMinimizedFocus 和 vbMaximizedFocus 都将应用程序放在前台；vbHide、vbNoFocus、vbMinimizeFocus 都将应用程序放在后台。