Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 113|回复: 1

[已解决] 各位老师,可否将此代码合并整合到一个模块,谢谢老师们了!

[复制链接]
发表于 2019-11-28 16:40 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
各位老师,可否将此代码合并整合到一个模块,谢谢老师们了!(只显示文件名,不带路径和后缀名)
Sub 获取当前路径下所选择文件的文件名()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls;*.doc;*.xls*"
        .Filters.Add "All Files", "*.*"
        .InitialFileName = ActiveWorkbook.Path
        If .Show = -1 Then
            MsgBox "你当前选择的文件名为: " & vbCrLf & f(.SelectedItems(1))
        Else    '否则
            MsgBox "你没有选择文件,程序将自动退出!": Exit Sub
        End If
        MsgBox "你已经选择了文件,程序将继续执行!"
    End With
End Sub
Function f(x)
'返回一个包含路径中最后部件的基本名字(去掉任何文件扩展名)的字符串
    f = CreateObject("Scripting.FileSystemObject").GetBaseName(x)
End Function


代码整合.rar (7.25 KB, 下载次数: 4)
发表于 2019-11-28 17:34 | 显示全部楼层
是一个过程里吗





Sub 获取当前路径下所选择文件的文件名()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls;*.doc;*.xls*"
        .Filters.Add "All Files", "*.*"
        .InitialFileName = ActiveWorkbook.Path
        If .Show = -1 Then
            MsgBox "你当前选择的文件名为: " & vbCrLf & _
                   CreateObject("Scripting.FileSystemObject").GetBaseName(.SelectedItems(1))
        Else    '否则
            MsgBox "你没有选择文件,程序将自动退出!": Exit Sub
        End If
        MsgBox "你已经选择了文件,程序将继续执行!"
    End With
End Sub


评分

参与人数 1学分 +2 收起 理由
yjwdjfqb + 2 感谢老师帮助,就是这样的!!

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-1-18 02:33 , Processed in 0.046800 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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