如何在VBA中将文件扩展名更改为txt WITH Tab分隔符

Question

我试图从＃34; .rep＆＃34;更改文件扩展名。到＆＃34; .txt＆＃34;使用此代码：

OldFileName = fld.Path & "\" & Mask & ".rep"
NewFileName = fld.Path & "\" & Mask & ".txt"

Name OldFileName As NewFileName

我的问题是我需要将TXT文件保存为制表符分隔符，没有它它只是模糊的行...

我想过做一个中间阶段 - 除了＆＃34; .xls＆＃34;文件（使用制表符分隔，就像我将文件导入excel一样），然后再将其更改为TXT ...

Answer 1

如果您的.rep文件已经以制表符分隔，并且您只想将其设为.txt文件，请尝试以下操作：

OldFileName = fld.Path & "\" & Mask & ".rep"
NewFileName = fld.Path & "\" & Mask & ".txt"

FileCopy OldFileName, NewFileName

它将使用与.txt文件相同的数据格式创建.rep文件