请各位老师再给看看关于导出数据到CSV文件中的问题

YANWEI82123300 · 发表于 2024-4-19 14:18

请各位老师再给看看关于导出数据到CSV文件中的问题
附件是来自论坛里面两位老师给提供的代码做的例子,现在发现一个问题:
即:如果行数据发生变化时候,通过其他的软件发现有若干个空行在数据下面,目前的解决方法是:
打开csv文件在数据的最后一行将下面的空白行全部删除,再保存.就行了
请各位老师给看看如何修改VBA代码,来解决这个讨厌的空行问题,谢谢

baofa2 · 发表于 2024-4-19 14:32

SQL = "SELECT * INTO [Text;CharacterSet=65001;FMT=CSVDelimited;HDR=YES;Database=" & strPath & "]." & strFile & " FROM [" & ActiveSheet.Name & "$" & Range("A1").CurrentRegion.Address(0, 0) & "]"

YANWEI82123300 · 发表于 2024-4-19 14:54

baofa2 发表于 2024-4-19 14:32
SQL = "SELECT * INTO [Text;CharacterSet=65001;FMT=CSVDelimited;HDR=YES;Database=" & strPath & "]." ...

baofa老师感谢您的帮助

ykcbf1100 · 发表于 2024-4-19 18:17

从代码风格看，第一个代码原来应该是我写的。加上二行代码你再试一下。

YANWEI82123300 · 发表于 2024-4-19 18:52

ykcbf1100 发表于 2024-4-19 18:17
从代码风格看，第一个代码原来应该是我写的。加上二行代码你再试一下。

ykcbf1100老师确实是您的代码，谢谢您的帮助

		自动登录	找回密码
密码			免费注册

[求助] 请各位老师再给看看关于导出数据到CSV文件中的问题

评分

评分

评分