[求助]不打开EXCEL的汇总和操作

willin2000

由于经常要汇总一些固定格式的报表,编了个VBA来自动完成, 但一直没有解决不打开EXCEL文件来完成的问题.

可由于工作簿很多,而且越来越多,有时将近200个工作簿要汇总在一起,而且这些工作簿有多个含固定格式的表,表内又有让我头晕的N多公式,打开文件多后运行会非常慢,目前只能一不部分地一不部分汇总(及其他操作),然后再将汇总再汇总. 整个过程需要很长时间.

目前我能想到的方法是程序只打开当前需要用到的工作簿,在不用时关掉,再打开要用的工作簿,但这样反复打开文件也影响速度,加上那些工作簿多使用了公式,每次打开要重新计算好一会儿.所以一直没采取行动. 另外我不熟悉二进制,更不了解EXCEL的数据结构,所以二进制的方法也不适用.

由于程序较长有2M多,所以我把要解决的问题总结成了三个小问题在summary.xls文件中.
summary是程序要生成的文件, book1,book2是数据报表.

只要这三个问题能解决,其他的问题都可以解决了,大家看看能否帮我拔了这个针.

  C1WIhsjc.zip (16.44 KB, 下载次数: 111)

2007-7-16 15:45 上传

点击文件名下载附件
[求助]不打开EXCEL的汇总和操作

三个问题的关键就是:

1.如何生成对含特定字符的工作表引用.

2.如何汇总数据,(这个在1解决后,好象可以用dictionary来解决).

3.如何给不打开的工作表使用"方法",比如改工作表名.

[此贴子已经被作者于2007-7-16 16:52:43编辑过]

LangQueS

好帖！

建议willin2000版主将三个问题的简述直接写在1楼。

northwolves

理论上来说,ADO改EXCEL工作表名应该可以,不过没实现.

其他问题不难解决:

'引用Microsoft ADO Ext. 2.8 for DDL and Security
Sub macro1()
Dim con As String, mycat  As New ADOX.Catalog, mytbl  As ADOX.Table, N As Long, TEMP As String, r As Range
con = "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=NO;';data source=" & ThisWorkbook.Path & "\book1.xls"
mycat.ActiveConnection = con
With CreateObject("ADODB.Connection")
N = 0
.Open con
For Each mytbl In mycat.Tables
On Error Resume Next
TEMP = .Execute("SELECT F1 FROM [" & mytbl.Name & "a1:A1]").FIELDS(0) & .Execute("SELECT F1 FROM [" & mytbl.Name & "d4:D4]").FIELDS(0)
If TEMP = "特征1特征2" Then
Set r = [h65536].End(xlUp)
r.CopyFromRecordset .Execute("SELECT f1,f2 FROM [" & mytbl.Name & "H2:i65536]")
r.Offset(, 2).CopyFromRecordset .Execute("SELECT * FROM [" & mytbl.Name & "e2:e2]")
N = N + 1
.Execute "rename table " & Replace(mytbl.Name, "$", "") & " to 数据表" & N
End If
Next
Set mycat = Nothing
End With
With [j1].Resize([h65536].End(xlUp).Row, 1)
.SpecialCells(4) = "=r[-1]c"
.Value = .Value
End With
End Sub

改成循环所有文件即可

willin2000

谢谢呀,狼兄!

程序的目的和我的要求有些出入,不过我知道该怎么弄找表和去表里的单元格了,其实附件的要求-求不重复和汇总求和也是个例子,实际是更复杂的运算.

现在操作程序的时间可以大大降低了.

只很网线太细,不然我一定从那钻过来,先长时间拥抱一下狼兄,然后出去腐败一下,喝上几口.

那个改表名的事,我也再看看在狼兄的启发下是否能解决.因为毕竟手动改许多文件很慢的.

willin2000

浪兄,再问一个问题,ADO如何获得/设置工作表可见或隐藏.

northwolves

ADO没这功能吧,咨询一下爱歌版主.

LangQueS

我曾经修改很多文件名称，办法是：

在Excel中用3列，分别录入或运算出这3列的内容： REN   原文件名  新文件名，然后复制到TXT文件后将后缀改为BAT执行。

[此贴子已经被作者于2007-7-16 21:02:30编辑过]

northwolves

那个改表名的事,我也再看看在狼兄的启发下是否能解决.因为毕竟手动改许多文件很慢的.

--------

关闭自动计算,让程序逐个打开改名关闭,自己上EH浏览帖子,呵呵

northwolves

QUOTE:

以下是引用LangQueS在2007-7-16 21:01:41的发言：

我曾经修改很多文件名称，办法是：

在Excel中用3列，分别录入或运算出这3列的内容： REN   原文件名  新文件名，然后复制到TXT文件后将后缀改为BAT执行。

这样只能改工作薄名吧?

wsri

好贴啊！