path="D:\TTMV10\Report Model\model1.xlsx"
If Path="" Then Exit Sub
Set Excel = CreateObject("Excel.Application")
Excel.Visible=False
Set workbook=Excel.Workbooks.Open("D:\TTMV10\Report\model1.xlsx")
Set sheet=workbook.Sheets("sheet2")
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=D:\TTMV10\ReportDB\Test1.mdb"
SQL = "Select sheet2a,sheet2b,sheet2c,sheet2d,sheet2e,sheet2f,sheet2g,sheet2h,sheet2i,sheet2j from DynamicTags where TestID >='0'"
sheet.Cells(3,1). CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
Set sheet=Nothing
以上这段程序是将Access数据连续写入到EXCEL中从第3行第1列开始的连续数据，如果我EXCEL中第三3行第5列的数据不需要写入数据 从第3行第6列在连续写入应该怎么实现？希望知道的帮着解答下，谢谢，目前就剩下3个西币了
最佳答案
数据库中做视图，把你说的位置全部填充为空值就可以了。
提问者对于答案的评价：
最佳答案作者回复:
2606352062有问题可以加我交流
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc354976.html
微信扫一扫 
支付宝扫一扫 