如何使用excel vba在文本文件中的每行文本前添加空格

如何使用excel vba在文本文件中的每行文本前添加空格,vba,excel,Vba,Excel,嗨,我的文本文件中有以下几行: Registrant State/Province: Registrant Postal Code: Reistrant Country: Registrant Phone: Admin Name: Admin Organization: Admin Street: Admin City: 如何使用excel vba在每行之前添加5到10个空格 谢谢您的帮助。重命名后,创建一份带有空格的文件副本 Dim s, s1 As String Dim x

嗨,我的文本文件中有以下几行:

Registrant State/Province: 
Registrant Postal Code: 
Reistrant Country: 
Registrant Phone: 
Admin Name: 
Admin Organization: 
Admin Street: 
Admin City: 
如何使用excel vba在每行之前添加5到10个空格


谢谢您的帮助。

重命名后,创建一份带有空格的文件副本

Dim s, s1 As String
Dim xx As String

s = "e:\0\a\Space.txt"
s1 = "e:\0\a\Space.dat"
Open s For Input As #1
Open s1 For Output As #2
While Not EOF(1)
    Line Input #1, xx
    Print #2, Space(10) & xx
Wend
Close #1
Close #2

Kill s
Name s1 As s

稍微修改一下代码,就可以在行内添加空格或其他数据。

您想在Excel VBA中这样做的具体原因是什么?因为每次我将所有这些数据导入Excel时,比如说注册国,在国家(比如美国)之后,下一行将包括看起来像美国注册国的数据。如果我能在每一行前面留空格,也许它会被删除