网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月21日漏签0天
excel吧 关注:281,359贴子:1,549,823
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 2回复贴,共1页
<<返回excel吧
>0< 加载中...

VBA求解

  • 只看楼主
  • 收藏

  • 回复
  • 秦時明月漢時圓
  • 以E待劳
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
代码如下:
Sub 打开指定文件夹的文件()
Dim sr As String
sr = Dir("C:\*.xls") 'dir函数,返回一个满足指定类型或指定文件属性的文件名
'如果没有找到指定文件,返回为空
Workbooks.Open ("C:\") & sr
Do
sr = Dir '第二次出现dir可以省略路径
If sr <> "" Then
Workbooks.Open ("C:\") & sr
Else
Exit Sub
End If
Loop
End Sub
问题是为什么Workbooks.Open ("C:\") & sr 这一句要先写一次呢?去掉逻辑很清晰呀,求解。


  • 08074000
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
do外面的是第一个文件 do里面的已经是第二个文件了吧


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 2回复贴,共1页
<<返回excel吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示