VB将数据导出到EXCEL.docVIP

下载本文档

6
0
约6.31千字
约 4页
2017-08-25 发布于河南
举报
版权申诉

VB将数据导出到EXCEL.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

*************************************************************************?**?** ? VB将数据导出到EXCEL,没有安装EXCEL的一样也可以导出.?**?** ? 调用方式: ? s_Export2Excel(Ado.Recordset) ? 或 ? s_Export2Excel(Rds.RecordSet)?** ? 支持 ? Rds ? 与 ? Ado ? 的记录导出?**?*************************************************************************?得到所有数据类型,有些数据类型EXCEL不支持,已经替换掉?Public ? Function ? f_FieldType$(ByVal ? sType)?? ? ? ? Dim ? iRe$?? ? ? ? Select ? Case ? sType?? ? ? ? ? ? ? ? Case ? 2, ? 3, ? 20?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? int ?? ? ? ? ? ? ? ? Case ? 5?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? float ?? ? ? ? ? ? ? ? Case ? 6?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? money ?? ? ? ? ? ? ? ? Case ? 131?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? numeric ?? ? ? ? ? ? ? ? Case ? 4?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? real ?? ? ? ? ? ? ? ? Case ? 128?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? binary ?? ? ? ? ? ? ? ? Case ? 204?? ? ? ? ? ? ? ? ? ? ? iRe ? = ? varbinary ?? ? ? ? ? ? ? ? Case ? 11?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? bit ?? ? ? ? ? ? ? ? Case ? 129, ? 130?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? char ?? ? ? ? ? ? ? ? Case ? 17, ? 72, ? 131, ? 200, ? 202, ? 204?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? varchar ?? ? ? ? ? ? ? ? Case ? 201, ? 203?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? text ?? ? ? ? ? ? ? ? Case ? 7, ? 135?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? datetime ?? ? ? ? ? ? ? ? Case ? 205?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? image ?? ? ? ? ? ? ? ? Case ? 128?? ? ? ? ? ? ? ? ? ? ? ? iRe ? = ? timestamp ?? ? ? ? End ? Select?? ? ? ? f_FieldType ? = ? iRe?End ? Function?导出ADO记录集到EXCEL?Public ? Function ? f_Export2Excel(ByVal ? sRecordSet ? As ? ADODB.Recordset, ? ByVal ? sExcelFileName$ ? _?? ? ? ? ? ? ? ? , ? Optional ? ByVal ? sTableName$, ? Optional ? ByVal ? sOverExist ? As ? Boolean ? = ? False) ? As ? Boolean?? ? ? ??? ? ? ? On ? Error ? GoTo ? lbErr?? ? ? ??? ? ? ? Dim ? iConcStr, ? iSql$, ? iFdlist$, ? iDB ? As ? ADODB.Connection?? ? ? ? Dim ? iI, ? iFdType$, ? j, ? TmpField, ? FileName?