从新建的工作簿填入相应的单位后，自动从总工作簿导入该单位的员工名单

cwfstation · 发表于 2012-9-2 23:38

本帖最后由 cwfstation 于 2012-9-3 00:10 编辑

各位老师，我这贴子原来是在函数与公式版块求助的，刚才有个老师建议我把帖子放在VBA这边求助，原因是用函数公式很难解决，希望在VBA这版块得到各位老师的帮忙。

我这求助的目的是，将现在的‘数据源’这表格作为一个汇总录入的数据（单位里有基层、分公司、区域等），方便以后各部门的数据直接粘贴，然后再根据‘数据源’里记录的单位分别新建像‘基层’和‘分公司’这样的工作簿，在这些工作簿内，只要在单位填写相应的单位（基层）对应过来的E2，则表下的B8开始自动从‘数据源’的工作簿自动把属于该单位的员工名单导入到‘基层’工作簿，谢谢
如果需要设一个‘导入’键的情况（这是最理想的，有一个导入键，输入单位后，按这‘更新’键，再把属于该单位的员工名单从‘数据源工作簿’导入，麻烦老师帮忙解说详尽一点，谢谢！
无标题.png

上面这图片描述错了，对应单位在E2，数据在A8下面，获取的数据会直接导入到A8.........A9........A.....

数据分拆.zip (17.99 KB, 下载次数: 14)

AVEL · 发表于 2012-9-3 02:31

Option Explicit
Sub l()
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\数据源.xls"
Sheet1.Range("b8:c67").ClearContents
Range("b8").CopyFromRecordset cnn.Execute("select 姓名,工作天数 from [数据源$a:d] where 单位='" & Sheet1.[e2] & "'")
cnn.Close
End Sub

复制代码

AVEL · 发表于 2012-9-3 02:32

将数据源跟附件工作表放在同一目录下，然后修改E2单元格为基层或者其他点击按纽

EH(AVEL)-基层 12-09-03 02-31.rar (17.19 KB, 下载次数: 38)

cwfstation · 发表于 2012-9-3 09:08

非常感谢 AVEL 老师，这个问题我放在函数与公式已经好几天了，都没有办法解决，在这里一下子就OK了，谢谢

cwfstation · 发表于 2012-9-3 09:30

老师，我现在换了一个表，又不清楚怎样改了，麻烦你再帮忙看一下，谢谢

cwfstation · 发表于 2012-9-3 12:33

再请各位老师帮忙解决5楼的附件问题，因为我自己不会做VBA，所以换了一个表就不会做了，如果老师能详细讲解一下每一句的意思那就最理想了，谢谢

AVEL · 发表于 2012-9-3 15:34

Option Explicit
Sub l()
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;extended properties='excel 12.0;hdr=no;';Data Source=" & ThisWorkbook.Path & "\网络员工资料源.xlsx"
Sheet1.Range("b8:c67").ClearContents
Range("b8").CopyFromRecordset cnn.Execute("select f3,f4 from [网络员工绩效评估录入$a5:d60000] where f1='" & Sheet1.[e2] & "'")
cnn.Close
End Sub

复制代码

LMY123 · 发表于 2018-8-23 11:42

Range("b8").CopyFromRecordset cnn.Execute("select f3,f4 from [网络员工绩效评估录入$a5:d60000] where f1='" & Sheet1.[e2] & "'")

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

[求助] 从新建的工作簿填入相应的单位后，自动从总工作簿导入该单位的员工名单

评分

评分