卓子 发表于:2011-12-05 21:03:42
我设计了一个多子窗体的窗体,希望在将其导出为固定格式的EXCEL文件,原来采用红尘老师的固定excel的导出案例,但哪个只是单个子窗体导出循环,而当多个子窗体同时导出时,单元格的位置就随上一子窗体的插入行增加而无法固定到相应的单元格中,请问如何解决?
me.子窗体名.form.recordset.recount可以返回子窗体的记录数,根据这个记录数,就可以判断每个子窗体增加了多少条记录到导出的excel文件中
Private Sub Command1_Click() '新建EXCEL,把子窗体的数据粘贴到excel表中的事例
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = True
Dim a As Recordset
Set a = Me.表子窗体.Form.RecordsetClone
For i = 1 To a.RecordCount
For J = 1 To a.Fields.Count
xlBook.ActiveSheet.Cells(i, J) = a.Fields(J - 1)
Next J
a.MoveNext
Next i
End Sub
在红尘如烟老师的Excel固定格式的订单导入导出示例(改进版)代码基础上,包括叶海峰及UMV的几位老师的求教下,完成了对导出代码的修改,几经测试,解决了我的问题,我已经将其作为示例,传到了我的专栏中,以作备忘,同时有兴趣的朋友可以下载应用。
总记录:3篇 页次:1/1 9 1 :