VB 6.0向excel模板中填充数据

Question

本帖最后由 threeperson 于 2010-11-19 08:53:27 编辑

Answer 1

http://topic.csdn.net/t/20030614/10/1914641.html
看一楼

Answer 2

他是实现用Excel产生报表的功能， 跟我的需求不一样。

Answer 3

它是用for循环插入数据，这个跟我有程式中用Do while循环一格格插入效率有多大的差异？

Answer 4

可以使用数组方式加快速度，具体可参考《用数组方式快速导出MSFlexGrid表格数据到Excel表格中》。
直接从Recordset导出数据原理是一样的。

Answer 5

因为往Excel填充数据时需要COM间跨线程调度，这远远比本地循环速度慢N多倍。

Answer 6

本帖最后由 bcrun 于 2010-11-21 12:05:26 编辑

  

Answer 7

我来写个曾经做的EXCEL模板
模板
列1   列2
姓名 [&姓名&]
性别 [&性别&]要在VB导数据进去时,首先把模板从服务器复制一份到本机。
打开操作,遍历数据集列,使用替换函数替换EXCEL里的数据列[&姓名&]
保存 关闭

Answer 8

Excel模板有些单元格是合并的，插入数据时如何定位？

Answer 9

1、用新生成的包含日期的标题替换原来的标题。
2、字体大小：Cells(row, col).Font.Size

Answer 10

commondialog1.show save '弹出保存对话框
myfilename=commondialog1.filename 
xBook.SaveAs myfilename '另存为，并不会影响原模板
用你的這幾句話可以實現我要的功能，但彈出保存對話框時，能不能默認給個比如 ：*.xls 的文件名？這樣用戶就不需要連後綴名也要自己輸入。

Answer 11

http://download.csdn.net/source/2341786

Answer 12

commondialog1.Filter＝"Excel文件,*.xls"  '您不会连这个也不会吧~~~

Answer 13

不要太過驚訝啊，哈哈，我下午才剛學會，第一次弄這個。剛想把實現後的代碼貼上來，發現您又回複了，總之還是謝謝。我最後的代碼是：        '...
        CommonDialog1.Filter = "专用Excel文件(*.xls)|所有文件(*.*)"  '设置保存的文件类型
        CommonDialog1.ShowSave  '弹出保存对话框
        fName = CommonDialog1.FileName
        xBook.SaveAs FileName:=fName '另存为
        '关闭Excel
        xBook.Close
        xApp.Quit
        Set xSheet = Nothing '关闭Sheet
        Set xBook = Nothing
        Set xApp = Nothing
        '...

Answer 14

我的Excel模板，总共可以录入20条记录，最后一行是“金额总计”，就是对前面金额的分类加总，如果我的资料超过20行，如何让模板的“总计”那一行自动往后移，最后一次求助大侠了，用什么办法实现？
如果我把初始值设为更大的数目，既不美观，也不太现实。万一资料更多呢。

Answer 15

使用Insert方法插入空白行。
worksheet.Rows(行号).Insert