[已解决]谢谢放浪形骸老师。后缀名为EBK的文件与后缀名为txt的文件互换格式

lhj323323

老师：
上传的附件中有两个格式的文档
其中：
后缀名为EBK的文档是原始数据，我把这个文档的后缀改为txt后，现在想再改回EBK，就改不回来了 ，请问我该怎么改？，

另外，我需要通过VB来做，又该怎么写，（即通过VB将后缀名为EBK的文档改为TXT，再通过VB将TXT的文档改为EBK）因为这个需求是一段程序中的一部分。

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-16 21:46

NAME ThisWorkbook.Path & "\TXT.TXT" as ThisWorkbook.Path & "\TXT.EBK"

跳转到最佳答案楼层

放浪形骸

打开“我的电脑”=》“工具”=》“文件夹选项”=》“查看”=》“隐藏已知文件的扩展名”
把那个勾给去掉，就可以直接修改后缀名了。

lhj323323

回复 放浪形骸 的帖子

老师：
谢谢您，我把这个设置好了，但如何通过VB将后缀名进行修改呢？我不是指您刚才说的修改前的系统设置，而是在您说的那种系统环境设置好了后的后缀修改

放浪形骸

1. Name "xxx.ebk" As "xxx.txt"

复制代码

其中XXX.EBK就是你所要修改的名字。XXX.TXT是修改后的名字

lhj323323

回复 放浪形骸 的帖子

以下面这一段语句为例
Sub 导出()   
    Dim StrJG$, MyFName$
    Dim fso As Object
    Dim MyTxt As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    '文件路径
    MyFName = ThisWorkbook.Path & "\TXT.TXT"
    '要导出的字符
    StrJG = Join(Application.Transpose(Sheet1.Range("A4:A" & Sheet1.Range("A65536").End(xlUp).Row)), vbCrLf)
    '创建文件
    Set MyTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)
    '写入字符
    MyTxt.Write StrJG
    '关闭文件
    MyTxt.Close
    '清空对象
    Set MyTxt = Nothing
    Set fso = Nothing
    MsgBox "数据已导出到文本文件，保存位置为当前文件夹，文件名为TXT.TXT"
End Sub
我该在哪里加入您的语句，使存入了数据的txt文档的后缀变为ebk呢

放浪形骸

1.     Set MyTxt = Nothing
   
2.     Set fso = Nothing
   
3.     MsgBox "数据已导出到文本文件，保存位置为当前文件夹，文件名为TXT.TXT"
   
4. End Sub
   

复制代码

在END SUB之前的，这里任何地方都可以。

lhj323323

回复 放浪形骸 的帖子

没有成功，程序报错：运行时错误53，文件未找到
下面三种写法都报错：
Sub 导出() '阿童木
    Dim StrJG$, MyFName$
    Dim fso As Object
    Dim MyTxt As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    '文件路径
    MyFName = ThisWorkbook.Path & "\TXT.TXT"
    '要导出的字符
    StrJG = Join(Application.Transpose(Sheet1.Range("A4:A" & Sheet1.Range("A65536").End(xlUp).Row)), vbCrLf)
    '创建文件
    Set MyTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)
    '写入字符
    MyTxt.Write StrJG
    '关闭文件
    MyTxt.Close
    '清空对象
    Set MyTxt = Nothing
    Set fso = Nothing
    MsgBox "数据已导出到文本文件，保存位置为当前文件夹，文件名为TXT.TXT"
'Name "xxx.ebk" As "xxx.txt"
Name "TXT.txt" As "TXT.EBK"‘报错
ThisWorkbook.Path & "\TXT.TXT" as ThisWorkbook.Path & "\TXT.EBK""‘报错
MyFName = ThisWorkbook.Path & "\TXT.TXT" as ThisWorkbook.Path & "\TXT.EBK""‘报错
End Sub

放浪形骸

NAME ThisWorkbook.Path & "\TXT.TXT" as ThisWorkbook.Path & "\TXT.EBK"