怎样写VBA代码打开选中的文件

[cyh1898]

http://community.csdn.net/Expert/topic/3690/3690135.xml?temp=.9428217
按照这里的方法，文件打开窗口是调出来了，下面的问题是：我选中一个文件，怎样把选中的文件在打开并把其内容在ppt中显示出来呢？

我用web浏览器显示外部文件的内容，就是加入下列控件：
一个microsoft web 浏览器控件，一个命令控件，一个文本控件。

在命令控件中输入代码：WebBrowser1.Navigate (TextBox1.Text)

在播放状态下，在文本控件中输入“网址”或电脑中文件的“地址/文件名/扩展名”，按一下命令控件，网页中的内容或扩展名为doc,swf,txt，ppt的文件都可以在microsoft web 浏览器控件把其中的内容显示出来。

但这样要记得地址才行，我现在想把文本控件去掉，在调出文件打开窗口后，当选中一个文件后，按确定，能马上在“microsoft web 浏览器控件”显示文件内容，代码要怎样写？

[cyh1898]

有人会吗???????????

[techgopher]

你这个还没解决呀。不就是调用office的FileDialog，然后返回的selecteditems(1)就是文件路径啊。

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Add "文本文件, Flash文件, Word文档, PowerPoint文档", "*.txt;*.swf;*.doc;*.ppt", 1
fd.Filters.Add "所有文件", "*.*"
fd.FilterIndex = 1
If fd.Show = -1 Then
MsgBox fd.SelectedItems(1)
End If

你把上面的Msgbox换成WebBrowser1.Navigate就行了。