excel 批量转换成txt文本文件（ASCII）
我有一批数据，需要转成TXT文本文件。 1、多个excel表 2、每个excel表中有N个子表 请问怎样批量转成TXT文件呢？ 谢谢！同时，我在单独转的时候，其中有些数字转成txt的时候有引号，这个有没有影响呢？ O(∩_∩)O谢谢
Sub 按钮1_单击() Application。DisplayAlerts = False Application。ScreenUpdating = False mypath = ThisWorkbook。Path & "\xls文件\" mypathtxt = ThisWorkbook。
Path & "\txt文件\" myfilename = Dir(mypath & "*。xls") Do While (Len(myfilename) > 0) Set mybk = GetObject(mypath & myfilename) For Each sh In mybk。
Sheets sh。Activate sh。Columns(2)。NumberFormatLocal = "@" sh。Copy ActiveWorkbook。
SaveAs Filename:=mypathtxt & ActiveSheet。Name & "。txt", FileFormat:=xlUnicodeText ActiveWorkbook。Close Next mybk。
Close myfilename = Dir() Loop Set mybk = Nothing Application。DisplayAlerts = True Application。
ScreenUpdating = True End Sub excel文件放在xls文件夹， 生成的结果放在txt文件夹中的。 Unicode编码包括ASCII吧。 这样的直接保存不知，符不符要求。 不符合格式要求，明天就改为直接写入到TXT文件中。
。
答：如果是经常要用到这样的数字,可以加入到自动图文集里. 先在文档是输入 ①②③④⑤⑥ 全部选中后,从插入菜单--"自动图文集"--自动图文集--添加. 使用时,从...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
