对应工资现金条

yeu118

我有两个附件——我想让现金条里面那些空格，可以自动读取工资表里面的内容。该如何做呢？就是让现金条里面，自动一直复制那个领取表格(见附件）

桌面.rar (4.01 KB, 下载次数: 11)

2013-6-23 21:18 上传

点击文件名下载附件

f8b1987

建议使用WORD的邮件合并功能

zhaogang1960

请测试:

1. Sub Macro1()
   
2.     Dim cnn As Object, rs As Object, SQL$, rng As Range, arr, i&, j&
   
3.     Application.ScreenUpdating = False
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     Set rs = CreateObject("ADODB.recordset")
   
6.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\工资表.xls"
   
7.     SQL = "select * from [Sheet1$A4:F]"
   
8.     rs.Open SQL, cnn, 1, 3
   
9.     rs.MoveLast
   
10.     arr = Split("B3,D3,F3,D4,F4,B6", ",")
    
11.     Cells.Clear
    
12.     Set rng = Sheets("模板").Range("A1:G10")
    
13.     For i = 1 To rs.RecordCount
    
14.         rng.Copy
    
15.         [a1].Insert Shift:=xlDown
    
16.         For j = 0 To 5
    
17.             Range(arr(j)).Value = rs.Fields(j).Value
    
18.         Next
    
19.         rs.MovePrevious
    
20.     Next
    
21.     rs.Close
    
22.     cnn.Close
    
23.     Set rs = Nothing
    
24.     Set cnn = Nothing
    
25.     Application.ScreenUpdating = True
    
26. End Sub
    

复制代码

zhaogang1960

请看附件
桌面.rar (10.85 KB, 下载次数: 22)

2013-6-23 22:00 上传

点击文件名下载附件

LangQueS

建议楼主在论坛搜索“工资条”相关主题，或请参考代码方法：

★利用有效性信息批量调用信息和图片★        http://club.excelhome.net/thread-529975-1-1.html

LMY123

ADO根据模板工作表，生成工作表，集中在一个工作表中