大神帮忙看看怎么把每一行的内容写到一个特定文件内，万分感谢

bijingwei520

见附件，如何把案例文件中每一行的内容写入固定模板中的指定地方，并打印此份文件，打印后以文件编号另存起来，每一行的批号个数可能不固定。案例中的行數（文件编号）也不固定，请大神帮忙看看怎样实现比较快速

bijingwei520

怎么没人啊

LMY123

Sub ADO_一行一薄()
Dim sh As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim cnn, rs, sql$
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\代维电池放电测试站点汇总.xlsx"
sql = "select * from [sheet1$B1:L] where 站名 is not null"
rs.Open sql, cnn, 1, 1
Do While Not rs.EOF
        Workbooks.Add
        ThisWorkbook.Sheets(1).Rows("1:50").Copy [A1]
        ThisWorkbook.Sheets(1).Columns("A:L").Copy [A1]
        [A2] = rs.Fields(1)
        [E2] = rs.Fields(0)
        [I2] = rs.Fields(2)
        [N2] = rs.Fields(3)
        [A3] = rs.Fields(4)
        [J3] = rs.Fields(5)
        [A4] = rs.Fields(6)
        [F4] = rs.Fields(7)
        [K4] = rs.Fields(8)
        [R4] = rs.Fields(9)
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & rs.Fields(0)
        ActiveWorkbook.Close
    rs.MoveNext
Loop
rs.Close
cnn.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

bijingwei520

LMY123 发表于 2018-10-11 15:40
Sub ADO_一行一薄()
Dim sh As Worksheet
Application.DisplayAlerts = False

你这代码不是我这个吧

LMY123

bijingwei520 发表于 2018-10-12 13:18
你这代码不是我这个吧

不是现成的代码，你自己简单改一下，就可以用了，代码放在模板工作薄中