vba打开excel文件遍历sheet的名字和指定单元格的值

今天项目上有个应用,获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值,并把他们写到固定的sheet中去,看了下,文件比较多,而且每个文件sheet的个数比较多,也不一样,所以打算写个程序来帮我们实现任务,代码很简单,也写的比较死板。欢迎大家给出意见及你的代码:

复制代码
Sub aaaa()
Dim sh1, sh2 As Worksheet
Dim shName, cellValue As String
'On Error Resume Next

Set sh1 = Workbooks(1).Sheets(1)
'Workbooks.Open Filename:="D:\_jack\Finance Report\Report Layout\TA Opex Report 2014.xlsx"
Workbooks.Open Filename:="D:\_jack\Finance Report\Report Layout\Rolling PL Template v1 (2).xlsx"

For i = 1 To Workbooks(2).Worksheets.Count
    Workbooks(2).Activate
    Set sh2 = ActiveWorkbook.Worksheets(i)
    sh2.Activate
    n = sh2.Name
    'v = sh2.Cells(5, 7).Value  'G5单元格
    v = sh2.Cells(4, 3).Value  'C4单元格
    
    Workbooks(1).Activate
    sh1.Activate
    sh1.Cells(i, 1) = n
    sh1.Cells(i, 2) = v
    
Next
Workbooks(2).Close
End Sub
  
复制代码


版权:以上代码由本人开发,版权归 http://www.cnblogs.com/mq0036 个人所有。若用于非商业目的,您可以自由转载,转载请注明出处。

posted on   jack_Meng  阅读(32240)  评论(0编辑  收藏  举报

编辑推荐:
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
阅读排行:
· DeepSeek “源神”启动!「GitHub 热点速览」
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
· DeepSeek R1 简明指南:架构、训练、本地部署及硬件要求
· NetPad:一个.NET开源、跨平台的C#编辑器
历史上的今天:
2013-12-31 SVN分支的合并和同步
2012-12-31 建立物化视图所需权限
2012-12-31 Oracle命令:授权-收回权限-角色

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示

喜欢请打赏

扫描二维码打赏

支付宝打赏

主题色彩