求助导出/导入TXT~~~

mozhongtao · 发表于 2022-12-31 22:46

各位大佬新年好！

我遇到导出/导入TXT的问题，

需要把sheet2的A1:O42导出以整个工作簿文件名命名的TXT文件。

经过一番搜索

我得到doitbest大神的以下代码跟我的需求很接近了无奈自己不会改

Sub 导出数据()
Dim i&, j%, k, s, arr
arr = Sheets("sheet2").Range("a2:b" & Sheets("sheet2").[b65536].End(3).Row)
Open split(thisworkbook.FullName,".")(0) & ".txt" For Output As #1
If Application.CountA(Sheets("sheet2").Range("a:b")) = 0 Then GoTo 100
For i = 1 To UBound(arr)
s = s & IIf(s = "", "", vbCrLf) & arr(i, 1) & " " & arr(i, 2)
Next
Print #1, s
100:
Close #1
End Sub

求大神帮改一下

还需要把这个(经过我自己用其他软件处理后的)TXT导入到SHEET2的的A1:O42的VBA代码

先谢谢大家了！

A01.rar (9.08 KB, 下载次数: 19)

LIUZHU · 发表于 2022-12-31 23:41

这个代码处理的数组只有两列，是把数组变成一个字符串后，然后写入到文本文件中。
你的数据范围是A1:O42，有15列吧，这个需要用循环语句连城一个字符串，可以逐行写入。

LIUZHU · 发表于 2022-12-31 23:53

LIUZHU · 发表于 2022-12-31 23:53

附件在此，请测试

gwjkkkkk · 发表于 2023-1-1 19:38

参与一下。。。

mozhongtao · 发表于 2023-1-1 21:10

谢谢楼上两位大神的提点，导出问题完美解决，导入的有思路吗

松野 · 发表于 2023-1-1 21:10

excel导入到TXT也要分好几种编码格式的，比如ANSI，utf-8等，还有导入的TXT字段的分隔符用什么？逆过程也是一样的，需要明确编码格式和分隔符

gwjkkkkk · 发表于 2023-1-1 21:23

mozhongtao 发表于 2023-1-1 21:10
谢谢楼上两位大神的提点，导出问题完美解决，导入的有思路吗

上传附件，模拟结果，看一下是否可以。。。

mozhongtao · 发表于 2023-1-1 21:30

gwjkkkkk 发表于 2023-1-1 21:23
上传附件，模拟结果，看一下是否可以。。。

来了。。。 A02.txt的数据是不确定的但不会超出A1:O42的范围。

A02.rar (16.65 KB, 下载次数: 9)

mozhongtao · 发表于 2023-1-1 22:12

松野发表于 2023-1-1 21:10
excel导入到TXT也要分好几种编码格式的，比如ANSI，utf-8等，还有导入的TXT字段的分隔符用什么？逆过程也是 ...

格式ANSI 分隔符用制表符

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

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

评分

评分