跪求一大师指点，Access数据导入复杂Excel模板

[yuanchao1985]

VB收到串口发来的大量数据，处理后有两个用途：一是动态的显示在DATAGRID里面；二是存入ACCESS，并且导入到Excel模板
模板见附件





我想问的是怎样把Access中的9张表导入到Excel模板中？用多少模板？如果有更好的方案，怎样实现呢？大恩大德，来世再报了

[yuanchao1985]

自己顶一下

[shareedx]

读取Access中的数据，往Excel对应模板填就行

[yuanchao1985]

怎么填呢，给段代码吧！！没有一个例子可供参考，我是搞电子的，第一次写程序

[Q724481678Q]

你来世再报了
俺们来世再给你做

[孤独剑_LPZ]

这个问题好像回答过.......群内？
将Excel另存为.xlt模板文件,下面给你一段完整点的代码，注意控制好xlsheet.Cells(i, j)，代表excel的某单元格，往里填数即可

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xlt") '打开已经存在的模板文件
xlapp.Visible = True
Set xlsheet = xlbook.Worksheets(1)

'下面就是简单的在一些单元格内写入数字
For i = 7 To 15
For j = 1 To 10

xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列
Next j
Next i
xlapp.ActiveWorkbook.SaveAs("d:\22.xls")
xlapp.Workbooks.close
xlapp.quit