将excel用VBA生成指定格式的TXT文件

Sub 另存本表为TXT文件()Dim s As StringDim FullName As String, rng As RangeApplication.ScreenUpdating = FalseFullName = (ActiveSheet.Name & ".txt")   '以当前表名为TXT文件名'   FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt")  '以当前文件名为TXT文件名'   FullName = Replace(ThisWorkbook.FullName, ".xls", ActiveSheet.Name & ".txt")  '以文件名&表名为TXT文件名
Open FullName For Output As #1    '以读写方式打开文件，每次写内容都会覆盖原先的内容'参考帮助，fullname为文件全名For Each rng In Range("a1").CurrentRegions = s & IIf(s = "", "", "|") & rng.ValueIf rng.Column = Range("a1").CurrentRegion.Columns.Count ThenPrint #1, s & "|"   '把数据写到文本文件里
s = ""End IfNextClose #1    '关闭文件
Application.ScreenUpdating = TrueMsgBox "数据已导入文本"End Sub

转载于:https://www.cnblogs.com/anjey/archive/2012/09/24/2700826.html

将excel用VBA生成指定格式的TXT文件相关推荐

java根据pdf模板生成指定格式的pdf文件
java根据pdf模板生成指定格式的pdf文件一.工具准备事先得准备好Adobe Acrobat DC,这是一款专门编辑pdf的工具,小编已经给大家准备好了. 链接:https://pan.bai ...
从MySql 数据库中导出数据并生成指定格式xml文件
最近网站需要做数据迁移,需要我将网站的数据从mysql数据库中导出,并按照要求生成指定格式的xml文件. xml格式要求: 代码: package com.epsoft.gjjisp;import j ...
python处理文本文件实现生成指定格式文件的方法
python处理文本文件实现生成指定格式文件的方法关于python处理文本文件实现生成指定格式文件,很多朋友都不知道该怎么弄. 下面是具体代码,希望对大家有帮助可以在下面复制: import os ...
c#实现将Excel文件导出为csv和UTF8格式的txt文件
工作中为了方便,经常使用excel表进行编辑,然后转换为程序用的csv和txt文件. 用c#做了个小工具,生成的exe文件放到需要转换的excel文件目录,可以实在自动读取该目录下的所有xlsx文件, ...
C++ Opencv 读取指定路径中的所有文件（图片）及指定路径中指定格式的所有文件（图片）
读取指令路径下的所有文件,程序如下: #include <io.h> #include < fstream> #include < string> #include ...
python使用fpdf生成发票格式的pdf文件包含：文字、图片logo、表格、条形码等；
python使用fpdf生成发票格式的pdf文件包含:文字.图片logo.表格.条形码等: pip install fpdf #python使用fpdf生成发票格式的pdf文件包含:文字.图片logo ...
C#获取文件夹下指定格式的所有文件
C#获取文件夹下指定格式的所有文件的方法,虽然很简单,但还是分享一下吧,用到时可以稍加修改和优化就可以使用. 获取指定目录下所有文件 //最要使用 System.IO.Directory.GetFil ...
python图片保存为txt文件_python实现对文件中图片生成带标签的txt文件方法
在深度学习中经常需要生成带标签的图片名称列表,xxxlist.txt文件,下面写一个简单的python脚本生成该文件列表. import os def generate(dir,label): fil ...
毕业论文（word）生成指定格式目录方法
眼下快到毕业季,又到了大家疯狂写(shui)论文的时候了,如果是使用latex的大佬,大可不必为论文的格式而烦恼,但是还是有相当一大批同学是得用word写论文的,那么格式问题真是一个非常烦心的事情,总 ...

将excel用VBA生成指定格式的TXT文件

将excel用VBA生成指定格式的TXT文件相关推荐

最新文章

热门文章