vba修改csv文件保存格式不变

vba修改csv文件保存格式不变需要设置。

1、首先，把导出来的或者是其他同事给的csv文件打开，进行编辑。

2、编辑完成后，点击保存，或者文件中的另存为。快捷键就是ctrl+s。

3、保存后提示可能含有csv不兼容功能，是否保持这种格式。

4、d出保存到，可以选择桌面或者工作文件夹，然后命名文件名，这个时候的格式变成了xlsx。

5、保存完之后，桌面生成了另一个副本格式变成了xlsx，需要点击保存xlsx格式来保证格式的完整性。

写得有点粗糙，不好意思了

Dim TextLine

Dim TextString

Dim SplitStr As Variant

Open App.Path &"\123.csv" For Input As #1 ' 打开文件。

Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

'Debug.Print TextLine ' 在调试窗口中显示数据。

If TextString = "" Then

TextString = TextLine

Else

TextString = TextString &"," &TextLine

End If

Loop

Close #1 ' 关闭文件。

SplitStr = Split(TextString, ",")

楼主参考一下：

Private Sub Command1_Click()

'Win XP下测试通过

   Dim strPath As String

   strPath = App.Path & "\abc\"     '指定路径，结尾要带上 \

   Shell "cmd.exe /c ren " & strPath & "*.txt *.csv", 0

End Sub

---