如何用vba打开文件选择对话框，并打开一个文件

xipick

高手帮帮忙啊，我现在需要一段代码，就是调用后，可以弹出打开word文件的对话框，并选择一个文件打开，如果没有选择文件，也就是说如果在对话框弹出来后点了取消或是关闭对话框，自动退出sub，如何实现 啊

bombboom

同问，希望高手不吝赐教！

ALPHAS

1. Sub FileOpen()
   
2. 
   
3. Dialogs(wdDialogFileOpen).Show
   
4. 
   
5. End Sub
   

复制代码

zhaotongtong

ALPHAS 发表于 2012-10-10 10:03

有没有一个值，能够返回打开或者取消的信息？

kqbt

1. With Application.FileDialog(msoFileDialogFilePicker)
   
2.         .AllowMultiSelect = False
   
3.         .Filters.Clear
   
4.         .Filters.Add "Word Files", "*.doc;*.docx"
   
5.         If .Show = -1 Then    'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
   
6.             MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "显示对话框选择是否打开一个文件"
   
7.         End If
   
8.     End With
   

复制代码

yzxfelix

kqbt 发表于 2018-8-10 14:12

你好版主啊，打开时打开了，但是不能保存啊。