兰州到青岛的飞机:在VBA6中如何在交互方式下获取用户选择的文件名?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 15:14:05
环境:
Powerpoint 2000 下的VB6。(这一点很重要!)

目的:
以交互的方式获取用户选择的文件名。

说明1:
比如说我要在PPT中放一个按钮“请选择文件”,当用户单击了这个按钮后要弹出一个对话框,这个对话框应该类似于我们在一般的软件,如Word中单击“文件”->“打开”菜单时弹出的那个对话框。
当用户选择某个文件并确定后,我要能获取这个文件路径及文件名。如下所示:
-----
dim sFileName as string
sFileName=WhatFunction(,,)
'我就是想知道上面的那个WhatFunction(,,)是什么
msgbox "您选择的文件是:" + sFileName
-----

说明2:
我手头只有OfficeXP VBA 的资料,可我用的是Office2000,我知道有一个Application有一个FileDialog属性,比如下面一个示例就是显示“打开”对话框,并允许用户选择多个文件以打开。
--------
Sub ShowFileDialog()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
Type:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
End Sub
--------
但是,我却发现在我的Office2000中试时,总是说找不到AllowMultiSelect和Show的方法或成员,我到网上找了很长时间,有的说是Office2000不支持FileDialog,但程序也没说找不到FileDialog对象呀。

总之:
还是要问在VBA6中如何在交互方式下获取用户选择的文件名?
有一个很重要的前提是要在Powerpoint2000的VBA环境中实现。

谢谢!
abeni_yang@qq.com
为什么没人关心我呀?好伤心!
大家帮帮忙,我很着急呀!
谢谢各位了!


你的说明好长哦
我都看不懂怎么帮你哪~~