Sub ss0() Filename = Application.GetOpenFilename(filefilter:=filt, MultiSelect:=True) If Filename <> False Then MsgBox "Open " & Filename(1) '这句出错了,怎么能显示正确啊?? End If End Sub 帮说说吧,谢谢了
Sub ss0() Dim Filename As
Variant Dim i As
Integer Dim str As
String
Filename = Application.GetOpenFilename( _ FileFilter:="Text Files (*.txt), *.txt", _ MultiSelect:=True)
If TypeName(Filename) = "Boolean" Then MsgBox "Open " & Filename '没选文件 Else For i = 1 To
UBound(Filename) str = str & Filename(i) & Chr(10) Next i MsgBox "Open " & Chr(10) & str '选了文件 End
If End
Sub
Sub ss1() Dim Filename
Filename = Application.GetOpenFilename() If Filename <> False
Then '单选文件 MsgBox "Open " & Filename End
If End
Sub
[此贴子已经被作者于2010-11-29 23:00:01编辑过]
|