请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

共享社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: 活动 交友 discuz
查看: 755|回复: 3

[求助] 怎么通过打开窗口得到文件名

[复制链接]

8

主题

9

帖子

15

积分

班长

Rank: 1

威望
0
金钱
37
贡献
0
发表于 2015-11-5 10:54:15 | 显示全部楼层 |阅读模式
大侠们好,我用《GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.》得到了想打开的文件名,并赋值给[a1]单元格。可是文件名全部为“H:\Program Files\abc.xls”,怎么只得到文件名【abc.xls】而不显示前面的盘符啥的啊
回复

使用道具 举报

75

主题

115

帖子

173

积分

管理员

Rank: 9Rank: 9Rank: 9

威望
0
金钱
259
贡献
0
发表于 2015-11-5 11:01:58 | 显示全部楼层
  1. Sub tt()
  2. Dim WK As Workbook
  3. Dim Filter
  4.     Filter = "All Files(*.*),*.*,Excel Files(*.xl*), * .xl *," & _
  5.         "Text Files(*.txt),*.txt,Word Documents(*.do*),*.do* "
  6.     FileToOpen = Application.GetOpenFilename(filefilter:=Filter, FilterIndex:=2, Title:="请选择文件", MultiSelect:=True)
  7.     If Not IsArray(FileToOpen) Then
  8.         Exit Sub
  9.     End If
  10.    
  11.     For I = LBound(FileToOpen) To UBound(FileToOpen)
  12.         Set WK = Workbooks.Open(FileToOpen(I))
  13.         MsgBox WK.Name
  14.         WK.Close False
  15.     Next I
  16.    
  17. End Sub
复制代码

仅供参考咯
回复 支持 反对

使用道具 举报

8

主题

9

帖子

15

积分

班长

Rank: 1

威望
0
金钱
37
贡献
0
 楼主| 发表于 2015-11-5 11:06:24 | 显示全部楼层
好,可解决大问题了
回复 支持 反对

使用道具 举报

39

主题

125

帖子

142

积分

排长

Rank: 2

威望
0
金钱
253
贡献
0
发表于 2015-11-23 08:53:12 | 显示全部楼层
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|共享社区 ( 京ICP备15025663号-2  

GMT+8, 2018-12-11 07:58 , Processed in 0.160406 second(s), 21 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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