也就是说，我在按钮处理程序中调用了以下代码片段：
TextBox1.Text = Application.GetOpenFilename("All files (*.*),*.*", _
1, "Open the Raw Data Files", , False)
If TextBox1.Text = "False" Then TextBox1.Text = ""
错误表示：“编译器错误：找不到方法或数据成员”
提前致谢！
没有Application.GetOpenFilename在Word中。
你需要使用FileDialog反而。这是一个简单的例子：
Private Sub CommandButton1_Click()
Dim s As Variant
Dim Res As Integer
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs)
Res = dlgSaveAs.Show
If Not Res = 0 Then
For Each s In dlgSaveAs.SelectedItems 'There is only one
MsgBox s
Next
End If
End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
