从多个excel中提取相同命名的sheet中固定位置的数据

baiqitun23 · 发表于 2015-5-12 14:23

魂断蓝桥发表于 2015-5-12 09:10
汇总表，与分表放在同一目录下

Sub hb()

非常感谢！您真的专业！再请教，假如需要提取的是所有文件“三年二班”sheet的 C20，C21，C23， H20，H21, H23，这几个位置的数据，代码怎样？汇总表还是A列是文件名，B到G列是从C20到H23的数据。非常感谢！希望我自己也能举一反三。

魂断蓝桥 · 发表于 2015-5-12 14:37

baiqitun23 发表于 2015-5-12 14:23
非常感谢！您真的专业！再请教，假如需要提取的是所有文件“三年二班”sheet的 C20，C21，C23， H20，H21 ...

sql = "select * from [三年二班$c20:e20]

修改 "select * from [三年二班$c20:h23]

循环提取的时候，注意只取你需要的行列。

baiqitun23 · 发表于 2015-5-12 15:25

opiona 发表于 2015-5-11 17:25

您好！老师，运行后，Sub Opiona() 子过程或函数未定义，怎么定义呢？

baiqitun23 · 发表于 2015-5-12 15:54

魂断蓝桥发表于 2015-5-12 14:37
sql = "select * from [三年二班$c20:e20]

修改 "select * from [三年二班$c20:h23]

老师，如果您有时间，我求完整代码~~因为如果提取C20,C21,C23,H20,H21,H23的数据，那么您原先写的代码里的
brr(1 To 999, 1 To 4)，
……
brr(m, 1) = Replace(myfile, ".xlsx", "")
brr(m, 2) = arr(0, 0)
brr(m, 3) = arr(1, 0)
brr(m, 4) = arr(2, 0)
……
[a:d] = ""
[a1].Resize(m, 4) = brr
……
现在要提取的数据不止三列了，所以这些是不是需要改呢？

魂断蓝桥 · 发表于 2015-5-13 08:17

新建文件夹.rar (41.91 KB, 下载次数: 59)

baiqitun23 · 发表于 2015-5-14 14:37

魂断蓝桥发表于 2015-5-13 08:17

非常感谢您~

LMY123 · 发表于 2018-9-3 16:28

arr = rs.getRows

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

[求助] 从多个excel中提取相同命名的sheet中固定位置的数据