由于导出excel有很多行,需要打印时带首行的表头,不知道怎么添加代码,求老师指导谢谢!
excel页面设置,顶端标题行,怎设置?
点击下载此附件
现代码如下:
On Error GoTo err
Dim strSQL1, strSQL2 As String
Dim rst1, rst2 As Object
Dim strid As String
Dim objxls As Object
Dim lngNumber, N, L As Long
strSQL1 = "SELECT 表1.区公司 FROM 表1 GROUP BY 表1.区公司;"
Set rst1 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
rst1.MoveFirst
Do Until rst1.EOF
strid = rst1!区公司 '循环读取分组字段的值
' MsgBox strid
strSQL2 = "SELECT 表1.区公司, 表1.月份, 表1.业务量, 表1.流转额 FROM 表1 where 区公司='" & strid & "'"
Set rst2 = CurrentDb.OpenRecordset(strSQL2, dbOpenDynaset)
If rst2.RecordCount > 0 Then
'如有数据则将游标指针移到最后一条记录
rst2.MoveLast
'获取记录集中的记录数
lngNumber = rst2.RecordCount
End If
Set objxls = CreateObject("excel.Application")
objxls.Workbooks.Add
With objxls.Sheets("Sheet1")
'-----------------------------------------------------------表头数据
.Range("A1") = strid & "结算明细表"
.Range("A2") = "区公司"
.Range("b2") = "月份"
.Range("c2") = "业务量"