把窗体数据导出到Excel(分别有新建和更新现有文件功能）

smilingkiss

受到本论坛大神的代码启发，在红尘如烟的函数模块的基础上，添加了一些功能，可以让导出数据的时候选择是新建一份excel文件，还是在已有的excel文件上更新，如果选择后者，则会在已有的文件上新增一个“new序号”的工作表，这功能应该比较实用，希望对大家有益！

但还是存在一个上次我提问的问题（一直没有解决，不知道其他朋友操作起来是不是也一样有这个问题），我自己操作的时候，里面窗体1的“导出窗体数据”按钮，第一次打开窗体执行没问题，如果不关闭窗体的情况下再执行，导出的excel文件就只有标题栏了，只有把窗体关闭了重新打开才可以正常执行了，请大家可以多多帮助，一起完善这个功能^_^


找到原因了：在执行模块/函数里面的rst之前，加多一句：rst.movefirst  
这样就可以了，之前的情况，大概是因为rst复制到excel后，指针默认还在记录集最后，所以再次执行的时候就会出现没有记录导出的情况了！

解决了个问题，哈哈，好开心，如果版主眷顾，希望给加个分，谢谢！

wangydm

我运行了,还是有问题
Set objExcelQuery = objExcelNewSheet.QueryTables.Add(rst, objExcelNewSheet.Range("A1")) 报ADD失败

smilingkiss

学习研究中。。。

smilingkiss

leonshi 发表于 2013-11-8 11:38
他说的问题已经回复他了，他没有好好去看代码的，在导出之前他没有选数据的

那为什么第一次打开窗体的时候可以执行呢？另外，你试试在
    If rst.RecordCount = 0 Then
        MsgBox ("没有数据可导出！"), vbExclamation
        GoSub Exit_ExportToExcel
    End If

这段代码后面加一句：
msgbox rst.recordcount

执行过程一样是显示“7”的，证明rst不是空的

leonshi

他说的问题已经回复他了，他没有好好去看代码的，在导出之前他没有选数据的

smilingkiss

tmtony 发表于 2013-11-8 10:54
导出Excel,使用excel.application
方法类似老汉这个
http://www.office-cn.net/forum.php?mod=viewthread ...

对了，站长，用recordset直接导入excel，得出来的excel文件总会有“数据连接”提示的，能消除么？

smilingkiss

tmtony 发表于 2013-11-8 10:54
导出Excel,使用excel.application
方法类似老汉这个
http://www.office-cn.net/forum.php?mod=viewthread ...

谢谢管理员，你给的帖子，我已经参考过了，这样的话，通用性会不会没那么灵活？请问这两种方法的优缺点分别是什么呢？
另外，像我上传的例子，出现这种情况，能找到个中原因吗？你说代码不正常吗，也不是，刚打开窗体执行是没问题的，但第二次就剩下字段名了，真是莫名其妙呀！
还请管理员指点迷津啊

tmtony

导出Excel,使用excel.application
方法类似老汉这个
http://www.office-cn.net/forum.php?mod=viewthread&tid=69890

smilingkiss

tmtony 发表于 2013-11-8 10:43
我一般是直接使用OLE对excel对象进行详细的控制

嘻嘻，管理员，可以详细指点一下吗^_^
例如这个例子，如果用OLE是怎么实现呢？愿闻其详啊！

tmtony

我一般是直接使用OLE对excel对象进行详细的控制