关于Application.Dialogs(xlDialogOpen).Show

永不疲倦的驴 · 发表于 2007-1-6 13:32

Application.Dialogs(xlDialogOpen).Show "XXX.doc"用这个命令在 ExcelVBA中可以在打开窗口中显示XXX文件名，而在word中用Application.Dialogs(wdDialogFileOpen).Show "XXX.doc" 命令却不能，难道这是MicroSoft的bug？？？有什么其他的方法实现呢？？？

jtQZPCYW.rar (7.86 KB, 下载次数: 17)

[此贴子已经被作者于2007-1-8 17:29:33编辑过]

守柔 · 发表于 2007-1-7 06:27

看来楼主很恼火啊，搁了一年的贴子，又提问了，呵呵。

http://club.excelhome.net/viewthread.php?tid=188668&replyID=&skin=0

Sub Example()
    Dim myDialog As FileDialog
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .InitialFileName = "F:\MyOffice\MyWord\Ask.Doc"
        .Show
    End With
End Sub
Sub Example2()
    Dim myDialog As Dialog
    Set myDialog = Word.Dialogs(wdDialogFileOpen)
    With myDialog
        .Name = "F:\MyOffice\MyWord\Ask.Doc"
        .Show
    End With
End Sub

永不疲倦的驴 · 发表于 2007-1-8 17:39

感谢柔柔！版主的Example2 我是用过的，倒是能打开并显示文件名，但是我的“试验”这个文件中会出现这样的问题：第一次打开word文档时会显示文件名，如果这时候选择“取消”，再次双击来打开word文档时就不会显示了，而其后面的代码也不会被执行，郁闷啊！程序在1楼附件。

[此贴子已经被作者于2007-1-8 17:40:06编辑过]

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