注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

专修培训

——专业计算机培训机构

 
 
 

日志

 
 

EXECL 读取文件夹中文件名宏  

2010-12-13 20:28:52|  分类: 学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Sub 读取文件名()
'
'根据网络上的代码简化

Sheets("文件名").Activate
Range("B2:B2000").Select
Selection.ClearContents      '清除“B2:B2000”的内容
[a1].Select
myname = Dir(ThisWorkbook.Path & "\*.doc")
Do While myname <> ""
    s = s + 1
    Cells(s + 1, 2).Value = myname
    myname = Dir
Loop
    Cells.Replace What:=".xls", Replacement:=""    '将文件扩展名“.xls”替换为空
x = 2
Do While Not (IsEmpty(Sheets("文件名").Cells(x, 2).Value))
    If Cells(x, 2).Value = "宏-获取文件名" Then
      Cells(x, 2).EntireRow.Delete
    End If
    x = x + 1
Loop           '此循环去除本文件名
x = 2
Do While Not (IsEmpty(Sheets("文件名").Cells(x, 2).Value))
    Cells(x, 1).Value = x - 1
    x = x + 1
Loop         '写编号

End Sub

  评论这张
 
阅读(208)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017