按字段不同值输出成多文件

lonespark · 发表于 2010-1-18 15:41

多谢extyg  和 ningyuanchao
我采用的是ningyuanchao 的方案，因为extyg的限制了性别好像还采用了数据库？我根据自己毫无任何VBA基础的前提下理解了一下源代码并作出修改，以下为心得。

1，
data = Range("A2:K" & Range("A65536").End(xlUp).Row)
这句的A2:K就限制了工作表数据的区域，弱弱的问一句，我估计End(xlUp)是最后一行有效行，没有最后一列有效列的语句么？
2，
For i = 1 To UBound(data)
      d(data(i, 8)) = ""
Next i
data（i，8）中的8就是第8列，这里是把这一列的每个值读到缓冲区里面去

3，
         If data(j, 8) = data2(i) Then 另外一个我做修改的地方

总的来说思路理解，不过看来VBA也挺难理解的，我只有c++基础。一些语句我还是不懂什么意思。

cky123 · 发表于 2012-3-31 18:26

本帖最后由 cky123 于 2012-3-31 18:29 编辑

ningyuanchao 发表于 2010-1-15 16:45
请楼主参考：

如果是多个sheet呢？
每个sheet的列完全一致，
怎样才能复制成多个book也按照原先的sheet排列显示？
命名规则原文件名-字段值

请不吝赐教

试验.rar (10.92 KB, 下载次数: 1)

LMY123 · 发表于 2018-6-26 10:04

into,ADO加数组,拆分成工作薄

		自动登录	找回密码
密码			免费注册

[求助] 按字段不同值输出成多文件