求助导出/导入TXT~~~

mozhongtao · 发表于 2024-9-16 17:56

gwjkkkkk 发表于 2024-9-16 17:11
Option Explicit
Sub test1()
Dim strFileName$, strPath$, strSaveName$

感谢你的帮助测试了能导入操作当前激活Sheet的问题也实现

但有个小问题丢了最后一列例如A01.xlsm的K列 A02.xlsm的DH列

另外导出代码中操作当前激活Sheet的问题也帮忙解决一下就完美了。

gwjkkkkk · 发表于 2024-9-17 11:22

mozhongtao 发表于 2024-9-16 17:56
感谢你的帮助测试了能导入操作当前激活Sheet的问题也实现

但有个小问题丢了最后一列例 ...

这是导出，修改了从当前工作表导出。。。

gwjkkkkk · 发表于 2024-9-17 11:22

mozhongtao 发表于 2024-9-16 17:56
感谢你的帮助测试了能导入操作当前激活Sheet的问题也实现

但有个小问题丢了最后一列例 ...

这是导入，修正错误。。。

mozhongtao · 发表于 2024-9-17 13:24

太强了！问题得到完美解决！谢谢大神在节日的付出！大家中秋佳节快乐！！

cnmlgb9998 · 发表于 2024-9-17 13:32

直接用PQ就行了啊。！！！！！！！！！！哪有那么难？

mozhongtao · 发表于 2024-9-18 01:27

cnmlgb9998 发表于 2024-9-17 13:32
直接用PQ就行了啊。！！！！！！！！！！哪有那么难？

门外汉什么都不懂啊不要说编程就是编一对草鞋我都不会

mozhongtao · 发表于 2024-9-18 01:34

gwjkkkkk 发表于 2024-9-17 11:22
这是导入，修正错误。。。

大神  还有一点点问题

就是导入的时候  有时候文件编码是UTF-8  有时候是ANSI

你这代码UTF-8的解决了导入ANSI编码文件会乱码

麻烦大神给改个ANSI的版本

导入01.rar (31.8 KB, 下载次数: 2)

gwjkkkkk · 发表于 2024-9-18 19:39

mozhongtao 发表于 2024-9-18 01:34
大神还有一点点问题

就是导入的时候有时候文件编码是UTF-8 有时候是ANSI

通过读取编码再进行转换数据，请参考。。。

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

[求助] 求助导出/导入TXT~~~