使用加载项方式，把excel输出到TXT文件，为啥前面自动加了...

zajia · 发表于 2018-12-10 16:46:14

使用加载项方式，把excel输出到TXT文件，为啥前面自动加了1个空格， TXT文件的其他和单元格内容一致。

代码如下：
Sub totxt()
Open ThisWorkbook.Path & "\A1.txt" For Output As #1
Print #1, Sheets(1).Cells(1, 1).Value
Close #1
End Sub

结果：
excel单元格 5678
TXT文件空格5678

lrth · 发表于 2018-12-10 17:44:57

宏加载。厉害，我要抄袭来用~

kalo · 发表于 2018-12-10 18:24:32

你在excel 里，用len和lenb函数，看看5678这个单元格是不是4

huangqi412 · 发表于 2018-12-10 19:15:01

Excel真溜

zajia · 发表于 2018-12-11 09:09:33

kalo 发表于 2018-12-10 18:24
你在excel 里，用len和lenb函数，看看5678这个单元格是不是4

len(A1) =4
lenb(A1) =4

都是4，奇怪了。

McuPlayer · 发表于 2018-12-11 09:15:04

把5678改成ABCD再测下看

McuPlayer · 发表于 2018-12-11 09:51:59

Print #1, Sheets(1).Cells(1, 1).Value
改成
Print #1, CStr( Sheets(1).Cells(1, 1).Value )

zajia · 发表于 2018-12-11 11:57:53

McuPlayer 发表于 2018-12-11 09:15
把5678改成ABCD再测下看

把5678改成ABCD再测下看:

4
4

一样

zajia · 发表于 2018-12-11 12:00:47

Print #1, Sheets(1).Cells(1, 1).Value
改成
Print #1, CStr( Sheets(1).Cells(1, 1).Value )

OK，谢谢---McuPlayer

使用加载项方式，把excel输出到TXT文件，为啥前面自动加了...

阿莫论坛20周年了！感谢大家的支持与爱护！！