Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2476|回复: 5

[已解决]选择了两个文件,显示时出错??

[复制链接]
发表于 2010-11-29 21:38 | 显示全部楼层 |阅读模式

Sub ss0()
Filename = Application.GetOpenFilename(filefilter:=filt, MultiSelect:=True)
If Filename <> False Then
    MsgBox "Open " & Filename(1)   '这句出错了,怎么能显示正确啊??
End If
End Sub

帮说说吧,谢谢了

最佳答案
2010-11-29 22:01

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编辑过]
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-11-29 21:44 | 显示全部楼层

Filename 返回的其实是一个数组,怎么能直接和false对比呢
回复

使用道具 举报

发表于 2010-11-29 21:45 | 显示全部楼层

以后遇到出错时,要看看“本地窗口”的变量值的内容

回复

使用道具 举报

发表于 2010-11-29 22:01 | 显示全部楼层    本楼为最佳答案   


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编辑过]
回复

使用道具 举报

发表于 2010-11-29 22:43 | 显示全部楼层

学习学习
回复

使用道具 举报

 楼主| 发表于 2010-11-29 22:55 | 显示全部楼层

谢谢各位老师

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 09:53 , Processed in 0.378905 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表