关于Application.Dialogs(xlDialogOpen).Show

永不疲倦的驴 · 发表于 2006-9-14 23:43

Application.Dialogs(xlDialogOpen).Show

能不能在其出现的对话框中显示将要打开的文件的文件名？

plxmm · 发表于 2006-9-15 00:05

试试

With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then
MsgBox "你所选的文件名：" & .SelectedItems(1)
End If
End With

VLE · 发表于 2006-9-15 08:33

Application.Dialogs(xlDialogOpen).Show "test.xls"

永不疲倦的驴 · 发表于 2006-9-15 11:25

3楼正解，但如果是Application.Dialogs(wdDialogOpen).Show就不行了，这玩意又该怎么搞？

[此贴子已经被作者于2006-9-15 11:32:34编辑过]

northwolves · 发表于 2006-9-15 11:38

需要添加对WORD的引用

dim wdapp as new word.application

wdapp.Dialogs(wdDialogOpen).Show

永不疲倦的驴 · 发表于 2006-9-15 11:50

呵呵，不是这个意思，添加引用是在ｅｘｃｅｌ　Ｖｂａ里面必须的，但是我是在ｗｏｒｄ　ｖｂａ里面啊，关键是用Application.Dialogs(wdDialogOpen).Show "test.xls"不能如愿。

永不疲倦的驴 · 发表于 2006-9-16 20:53

唉，清风把这个帖子移到这里，恼火啊，这里ＶＢＡ的人不多啊！

守柔 · 发表于 2006-9-19 05:43

QUOTE:

以下是引用永不疲倦的驴在2006-9-16 20:53:54的发言：
唉，清风把这个帖子移到这里，恼火啊，这里ＶＢＡ的人不多啊！

我试了一下楼主所谓的SHOW 效果，在Word中，你试一下，是否这样可行，请注意OFFICE版本应在2002及以上。

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

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