作者abc9gad (乡民爱发呆)
看板Office
标题[算表] 使用VBA开启资料夹问题
时间Thu Nov 7 09:47:09 2019
软体:EXCEL
版本:2010
版上前辈好，我在录制巨集的时候，需要开启以下路径的档案
但因为该档案名称有可能会变动，请问有办法改成开启资料夹位置，
由我自行选择开启的档案吗 谢谢
ChDir "C:\Users\ME\Desktop"
Workbooks.Open Filename:="C:\Users\ME\Desktop\成品综合1107.xlsm"
--
这是我的故乡 我的梦
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 210.242.212.205 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1573091232.A.980.html
1F：→ soyoso: 自行选择开启档案的话 application.filedialog 11/07 09:54
请问是改成这样吗?
Workbooks.Application.FileDialog:="C:\Users\ME\Desktop\"
:=会显示错误，必须为运算式
※ 编辑: abc9gad (210.242.212.205 台湾), 11/07/2019 10:13:39
2F：→ soyoso: 不是 filedialog(..)有参引数可使用 google就有写法 11/07 10:17
3F：→ soyoso: 因要自行选择开启档案..filedialogtype就以..filepicker 11/07 10:20
请问S大，有成功开启档案，不过无法接着执行开启档案後接下来的录制项目
有什麽方法可以将开启档案後的巨集直接继续往下执行吗 谢谢
Sub UseFileDialogOpen()
Dim lngCount As Long
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount
End With
End Sub
※ 编辑: abc9gad (210.242.212.205 台湾), 11/07/2019 11:01:09
4F：→ soyoso: 1.这个巨集是选取多个档案，是这原po要的吗？ 11/07 11:03
5F：→ soyoso: 如果是msgbox後面就是所选取的路径和完整档名 11/07 11:05
6F：→ soyoso: 就可利用在workbooks.open filename 11/07 11:05
7F：→ soyoso: 2.如果不是，也可以使用，就只选一个档案，回圈上就执行一 11/07 11:07
8F：→ soyoso: 次，或是要找其他巨集，不将..multiselect变为真的 11/07 11:08
9F：→ abc9gad: 先谢谢s大 11/07 13:15