Office中国论坛/Access中国论坛

标题: 请问如何将N个相同格式的XLS文件里的Sheet1!F6和G14做成一张月结表? [打印本页]

作者: tony_zhong 时间: 2007-5-17 05:26
标题: 请问如何将N个相同格式的XLS文件里的Sheet1!F6和G14做成一张月结表?
请问如何将N个相同格式的XLS文件里的Sheet1!F6,F4和G14单元格里的数据做成一张月结表?[attach]24458[/attach]

[此贴子已经被作者于2007-5-16 21:27:10编辑过]

作者: fjzjyan 时间: 2007-5-17 20:50
直接从各文件中取数程序代码较为繁琐，但可将当月所有表放在一个文件中（如以下月结表格式）用如下几行代码即可完成

Sub yjb()
Dim ws1 As Worksheet
Dim ws As Worksheet
Dim rg As Range
Set ws1 = Sheets("月结表")
Set rg = ws1.[a2]
For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "月结表" Then
   rg = ws.[F4].Value
   rg.Offset(0, 1) = Trim(ws.[F6].Value)
   rg.Offset(0, 2) = ws.[G14].Value
   Set rg = rg.Offset(1, 0)
   End If
Next ws
End Sub
[attach]24466[/attach]

[此贴子已经被作者于2007-5-17 12:50:45编辑过]

作者: tony_zhong 时间: 2007-5-18 00:25
谢谢!

但我现在现手头有上千个这样同格式的文件.昨天我找了整个晚上都没到合适的程序,也只好这样了.

其中有比较接近的,方漠做的多文件合并,还有"通用表格汇总"(http://www.office-cn.net/Soft/Class58/Index.html)

都不合用.

累就累点吧,小弟急着要交表.

作者: 6100535 时间: 2008-12-23 10:11
看看,学一学

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)