求客户对帐单的自动生成

白泽123

本人小财务，每月要耗费大量时间和精力打印客户对帐单，请高手帮忙解决一下：

按明细表中的相应月份打印客户对帐单我已经抄袭了自动出相应月份的明细，但是表的最下面不会设置了，求帮决。

白泽123

这是附件，求帮助一下。

白泽123

有没有人能帮助解决一下呢？有没有呢？

白泽123

有会的没呢？怎么都没人理我？

windowsme

Sub 对账单()

Application.ScreenUpdating = False
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName

Range("A7:H50").ClearContents

Sql = "select 发货日期,客户,商品,数量,单价,金额,其他,贷方,余额 from [" & [B1] & "$] " & _
      "where MONTH(发货日期) >= cdate('" & [D1] & "') AND MONTH(发货日期) <= cdate('" & [F1] & "') "
      
[A8].CopyFromRecordset conn.Execute(Sql)
[I7] = [I8] + [H8] - [F8] - [G8]
[A7] = "上期余额"
[A52] = "杭州美益天"

conn.Close
Set conn = Nothing
Application.ScreenUpdating = True

End Sub

Range("A7:H50").ClearContents  这行代码有问题，把50改成20 ，这是你清楚内容的区域