如何自动选择文件

2425807720 · 发表于 2022-11-4 09:01

VBA弹出对话框可以自行选择文件

2425807720 · 发表于 2022-11-4 09:06

就是写一段代码可以自动选择文件

02761752696 · 发表于 2022-11-5 08:52

2425807720 发表于 2022-11-4 09:06
就是写一段代码可以自动选择文件

既然文件都确定了，又不想手动选择，直接写国定在代码中不行吗？
何必要对话框

aman1516 · 发表于 2022-11-5 09:28

2425807720 发表于 2022-11-4 09:06
就是写一段代码可以自动选择文件

打开目录并选中文件
https://club.excelhome.net/thread-1643257-1-1.html

可做参考

gwjkkkkk · 发表于 2022-11-5 09:52

大致这样吧。。。
Sub 选择文件()
Dim FileToOpen, Filter$, wkb As Workbook
Filter = "All Files(*.*),*.*,TXT Files(*.txt),*.txt,Excel Files(*.xl*), * .xl * "
FileToOpen = Application.GetOpenFilename(Filter, 3, "请选择文件", , False)
If FileToOpen = 0 Then
  Exit Sub
  Else
  MsgBox FileToOpen
End If
End Sub

2425807720 · 发表于 2022-12-27 17:11

gwjkkkkk 发表于 2022-11-5 09:52
大致这样吧。。。
Sub 选择文件()
Dim FileToOpen, Filter$, wkb As Workbook

谢谢

2425807720 · 发表于 2022-12-27 17:15

02761752696 发表于 2022-11-5 08:52
既然文件都确定了，又不想手动选择，直接写国定在代码中不行吗？
何必要对话框

固定的通用性不强，有时候文件的路径会变化。自己选择的话相对好一点。好像已经解决了。谢谢

		自动登录	找回密码
密码			免费注册

[求助] 如何自动选择文件