如何用VBA取多个工作簿中的所有工作表的指定的列名下的数据。

EmilyZhou · 发表于 2006-2-22 15:04

KM3c0bly.rar (107.92 KB, 下载次数: 452) 如何用VBA取多个工作簿中的所有工作表的指定的列名下的数据。如在附件中取N个工作簿（含19、20，但不限于此）中的所有工作表（有多有少）的指定的列名（借款部门（单位）、借款人、账面价值、贷款质量等级）下的所有数据。

winland · 发表于 2006-2-22 21:53

用3个循环，第一个每次打开一个工作簿，在里面嵌第二个循环枚举每个工作表，再在里面嵌第三个循环获得指定的列下所有的数据。

for i=1 to QtyFile
workbooks.open strFile(i)
for j=1 to activeworkbook.sheets.count
sheets(j).select
cells(1,iCol).END(xlDown).select
itmpRow=ActiveCell.row
for k=2 to itmprow
......
next k
next j
workbooks.close
next i

EmilyZhou · 发表于 2006-2-23 09:26

借款部门（单位）和借款人　这2项逻辑关系为OR，只有一个，一个是单位，一个是自然人

EmilyZhou · 发表于 2006-2-23 09:29

......　　　要我自己做的吗，不大会呀

爱歌学习 · 发表于 2006-2-26 14:37

这样？

OOZ9n8Ey.rar (142.6 KB, 下载次数: 734) 原代码有误，已重新上传。

[此贴子已经被作者于2006-2-28 14:09:32编辑过]

weide_yang · 发表于 2006-3-8 13:43

For Each fn In Filename

这句通不过，提示找不到工程或库。

stlhq · 发表于 2006-3-8 17:05

要导入工程库

yzhx606 · 发表于 2006-5-24 21:18

不懂

dzy005 · 发表于 2007-2-13 01:57

导入工程库？不知道什么导呀，大哥指教下

kezhiye · 发表于 2007-4-5 16:31

QUOTE:

以下是引用stlhq在2006-3-8 17:05:40的发言：
要导入工程库

请问如何导入工程库

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