excel读取转换txt或dat数据文件过程示例

【真DDE数据Excel转TXT并导入大智慧的方法】大智慧、飞狐自定义数据转换工具的使用详解：一、excel表格转DDE数据（格式为txt文本格式）：第一步：点击“excel文件”编辑框旁边“浏览…”按钮，选择与转换的excel文件；第二步：点击“txt文件保存路径”编辑框旁边“浏览…”，选择txt文件保存路径；点击OK选择转换文件保存的目录，如下图：注：文件目录保存的选择是任意的，只要你便于查找即可，不一定按我的选择目录！第三步：点击“选择要转换的表”组合框旁边三角形按钮，选择要转换的工作表，因为一个excel文件中内含有多个工作表，需指定一个。

第四步：点击“指定证券代码”组合框旁边的三角形按钮，选择欲转换工作表的证券代码列，证券代码格式必须为“SH”或“SZ”开头，后接六位数字。

第五步：在“行情日期”编辑框输入本工作表的行情日期，本软件将以此行情日期为子目录名，将转换后的txt文件全部保存在该目录下第六步：设置列对应关系。

只需设置数据项的列对应关系，代码列和行情日期列不需设置比如要设置上图“DDX”列的对应关系，点击“添加行”按钮，出现输入界面，点击“excel列名”组合框旁边三角形按钮，选择“DDX”，在“大智慧自定义数据列名”对应会出现“DDX”，点击确定，在列表框产生一行“DDX<->DDX”，这样本软件会将工作表的“DDX”这一列的数据转换为txt文本格式，并存为文件，命名为“DDX.txt”，“DDX”也就是在大智慧新一代或飞狐交易师软件中的自定义数据名称。

注意，大多数据都是以三版数据给出的，五版的在确定时将30日DDX和30日DDY分别改为DDX1和DDY1。

若还要转换其他列，依上类推。

如果以后还要使用同样的对应关系，点击“导出”按钮，将这些对应关系第七步：点击“转换”按钮进行转换。

二、自定义数据引入第一步：建立DDE各个分项目的自定义数据：点击新一代大智慧工具按钮，然后点击自定义数据管理。

巧妙将Excel转换成标准TXT1、将Excel文件按照接口规范进行修改2、用Access软件新建一个数据库a、双击Microsoft Access 快捷方式打开Accessb、点击"文件"--"新建",选择"空数据库",然后给这个空数据库取个名字，并把保存的路径设置好，最后点"创建",空库就建好了。

3、将Excel文件导入Access数据库a、双击打开刚新建的Access空库，点击"文件"--"获取外部数据"--"导入"，然后将对话框中的文件类型选成"Mircosoft Excel (*.xls)", 然后指定要导入的Excel文件，点"导入"。

b、采用默认设置，点"下一步"c、把"第一行包含列标题"选中，然后点"下一步"d、一直点"下一步",直到出现为新表定义主键时选择"不要主键"，然后再点"下一步"e、给表取个名称，例如：土地,这张表是用来存放Excel文件中的数据的。

然后点"完成"，如果给出导入完成的提示即证明导入成功f、在窗体的"对象"中选择"表"，即可看到刚导入的表名，双击表名可以打开表查看数据是否正确，如果不正确可以直接修改。

如果右击表名选择"设计视图",在这里可以修改字段的数据类型,可以根据借口规范进行修改。

4、将Access数据库中的表导成标准的TXT文件a、如果Access数据库中的表已经存在，选中表，点击"文件"--"导出"，将保存类型选成"文本文件(*.txt;*.csv;*.tab;*.asc)"，点"导出"b、按照默认设置点"下一步"c、把"第一行包含字段名称"选中，其他按默认设置即可，然后点"下一步"d、输入要导入到的TXT文件的路径，然后点"完成"，如果提示导入完成即表明导入到文本文件成功。

1.新建一个Excel表格，选择“文件—打开”，如下图所示：
注意：打开对话框中，选择打开文件类型为“所有文件”；
2.选择需要转换的DA T文件，点击打开，如下图所示：
3.弹出一下对话框，选择“固定宽度”。

点击“下一步”：
4.在打开的“文本导入向导—第二步”对话框中，根据数据分列要求单击“数据预览”区
域的刻度线，建立完毕单击“下一步”按钮。

小提示：双击分列线可消除当前分列线，拖动分列线箭头可移动分列线。

5.打开“文本导入向导—第3步”对话框，首先在“数据预览”区域选择需要操作的列，
然后在“列数据格式”区域设置当前列数据格式，选中“不导入此列”单选框可以消除当前列的数据导入，设置完毕单击“完成”。

6.导入到Excel后，另存为即可：。

Private Sub Command3_Click()Set xlApp = CreateObject("Excel.Application")xlApp.Visible = FalseSet xlBook = xlApp.Workbooks.Open(App.Path & "\飞行记录\" & Combo1.List(ii)) '打开已经存在的EXCEL工件簿文件Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表'xlsheet.Cells(7, 8) '第7行第8列‘-------------------------------------处理过程‘----------------------------------------处理过程Set xlsheet = NothingxlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象str = xm + vbTab + Text1.Text + vbTab + Text2.Text‘-----------------------------------------------------把内容读出到TXT文本中Open App.Path & "\统计输出.txt" For Append As #1Print #1, strClose #1‘-----------------------------------------------------读出结束If ii = Combo1.ListCount - 1 Then MsgBox "全部完成，已经读入此文件夹下“统计输出.txt”"NextEnd SubPrivate Sub Command1_Click()’----------------------------------读取文件下所有后缀名为xls 的EXCEL文件，把文件名添加到组合框中Combo1.ClearDim j As LongFile1.Path = App.Path & "\飞行记录" '指定一个文件夹File1.Pattern = "*.XLS"File1.Visible = FalseFor j = 0 To File1.ListCount - 1Combo1.AddItem File1.List(j)NextEnd Sub。

Excel数据导出到txt文档
因工作需要，需要txt文档的每一项后增加lang3选项。

txt文档格式如下：
如果一个一个添加将会非常麻烦，在师傅的指导下，利用excel轻松的完成了。

首先将txt文档内容整理到excel中，格式如下：
然后，增加一列lang3
利用excel的vba按照指定格式导出到txt文档中。

很简单的完成了本来费劲的工作，看来学会用好工具和归档如此重要。

贴出程序和一个很好的excel网站：/forum.php
test()
Dim arr, fn$, s$
arr = Range("a1").CurrentRegion
On Error Resume Next
fn = "C:\数据.txt"
Kill fn
Open fn For Output As #1
For i = 2 To UBound(arr)
s = ""
For j = 1 To UBound(arr, 2)
s = s & arr(1, j) & " " & arr(i, j) & Chr(10) Next
Print #1, Mid(s, 2)
Next
Close #1
MsgBox "文件保存成功!"
End Sub。

VBA使用FileSystemObject 将读取或写入文本文件(一)有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject 对象来进行操作。

在接下来的几篇里我们介绍如何使用FileSystemObject 对象操作文本文件的。

工欲善其事，必先利其器，那么我们就先花几篇文章来详细介绍下FileSystemObject 对象。

一、如何创立FileSystemObject 对象在VBA中，是通过CreateObject 函数返回FileSystemObject 对象。

例如：Dim fso As ObjectSet fso=CreateObject(" Script in g.FileSystemObject ")二、FileSystemObject 主要方法介绍1、CreateTextFile 方法：用于创立一个指定文件名，并返回一个可操作的TextStream对象。

例如1在中创立一个名为testFile 的文本文件，并写入一行“CreateTextFile TestSub CreateFile()Dim sFile As Object , FSO As ObjectSet FSO = CreateObject(〞 Script in g.FileSystemObject ")(〞Set sFile = Noth ingSet FSO = Noth ingEnd Sub2、DeleteFile 方法：用于删除一个指定的文件。

如果指定的文件不存在，那么返回一个错误信息。

语法：object.DeleteFile(filespec[,force])Sub DeleteFile()Dim fso As ObjectSet fso = CreateObject(〞Script in g.FileSystemObject ")fso.DeleteFile (" C:\FSOTest\TestFile.txt ")End Sub3、FileExists 方法：判断指定的文件是否存在。

提取Excel中一列数据，作为文件格式生产对应的文件概要在处理E xc el文件时，有时我们需要将某列数据提取出来，并以该数据作为文件名生成相应的文件。

本文将通过P yt ho n代码演示如何从E x ce l中提取一列数据，并使用该数据生成对应的文件格式。

准备工作在开始之前，我们需要确保已经安装了Py t ho n和相关的依赖包：p a nd as、o pe np yx l。

如果尚未安装，可以通过以下命令进行安装：p i pi ns ta ll pa nd aso p en py xl代码实现下面是使用P yt ho n代码从E xc el中提取一列数据并生成对应文件的步骤：1.导入所需的库：i m po rt pa nd as as pd2.读取Ex ce l文件：d f=p d.re ad_e xc el('in pu t.xl sx')请将`i np ut.x ls x`替换为你实际的E xce l文件名。

3.提取指定列的数据：c o lu mn_d at a=df['列名']请将`列名`替换为你需要提取的实际列名。

4.遍历数据，生成对应的文件：f o rd at ai nc ol um n_d a ta:生成文件名f i le_n am e=st r(dat a)+'.tx t'创建并写入文件内容w i th op en(f il e_nam e,'w')a sf:f.wr it e('')这里以生成文本文件为例，文件名的格式为列数据加上`.tx t`后缀。

你也可以根据需要修改生成的文件格式和文件名规则。

示例假设我们有一个名为`i np ut.x ls x`的E xc e l文件，其中有一列名为`姓名`，包含了一些人的名字。

我们希望将这些名字作为文件名生成相应的文本文件。

首先，我们需要将Ex c el文件准备好，确保列名为`姓名`的列中包含了所需的名字。

Excel批量转txt本⽂是对百度来的结果做⼀个简化，主要参考以下两篇百度经验所⽤⽰例数据为（⼀）新建⼀个Excel⽂件，并在⾥⾯填写上如下内容（⼆）ALT+F11打开VBA（宏）编辑界⾯，然后点菜单栏【插⼊】，下拉列表中点【模块(M)】（三）插⼊了⼀个模块1，在代码框中复制如下代码：1Sub列举⽂件名()23Dim m1$, m$, r%45 m1 = Range("b1").Text67On Error Resume Next89 Range("a4:c1000000").ClearContents1011 m = Dir(m1 & "\", vbReadOnly)1213 r = 31415 Application.ScreenUpdating = False1617While m <> ""1819 r = r + 12021 Range("a" & r).Value = r - 32223 Range("b" & r).Value = m2425 Range("c" & r).Value = FileDateTime(m1 & "\" & m)2627 m = Dir2829 Wend3031 Application.ScreenUpdating = True3233MsgBox"完成"3435End Sub（四）回到新建的Excel，菜单栏中点【视图】，下列表中【宏】，再点击【查看宏(V)】打开宏对话框，选宏名“列举⽂件名 ”点【执⾏】，结果如图（五）回到VBA（宏）编辑界⾯，在“列举⽂件名”代码下⾯复制下⾯代码1Sub批量EXCEL⽂件存⽂本()23Dim fm1 As String, myt As Worksheet45Dim m$, m1$, m2$, m3$, i%, r%, n%67 m = Range("b1").Text89 r = Application.WorksheetFunction.CountA(Range("B4:B10000"))1011 fm1 = Range("B2").Text & "\"1213For i = 1To r1415 m1 = Range("b" & i + 3).Text1617 n = InStr(1, m1, ".", 1)1819 m2 = Left(m1, n - 1)2021 Workbooks.Open m & "\" & m12223For Each myt In Sheets2425 myt.Select2627If IsEmpty(edRange) Then28293031Else3233 m3 = 3435 ActiveWorkbook.SaveAs Filename:=fm1 & m2 & m3 & ".txt", FileFormat:= _36 xlUnicodeText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _37 , CreateBackup:=False3839End If4041Next myt4243 ActiveWorkbook.Close SaveChanges:=False4445Next i4647End Sub（六）回到新建的Excel，菜单栏中点【视图】，下列表中【宏】，再点击【查看宏(V)】打开宏对话框，选宏名“批量EXCEL⽂件存⽂本 ”点【执⾏】即可。

如何将Excel转换成txt现如今，电脑的使用越来越普及，许多人上班或者生活中都需要用到Excel办公软件，但其中一些小知识，比如如何将Excel转换成txt?店铺在这里给大家详细解答。

许多情况下，我们不只是单单的将Excel另存为XLS格式，可能还会用到许多种格式，比如，将Excel转换为TXT记事本格式，或者将TXT格式导入到Excel中去。

遇到这种种的转换问题真是非常让人头痛，因为Excel中太多表格和格式转移到TXT中就会消失，只剩下文字和符号而已。

那么我们该怎样转换才最便于我们的工作了?今天就来与大家分享将Excel转换成TXT，然后再将TXT转为Excel的技巧!Excel转TXT技巧：众所周知，Excel另存为中已经包含了TXT格式，所以我们可以直接将Excel表格另存为TXT格式，但是最后的效果好像不是很令人满意这种方式是将表格以空格符分隔来排出来的，若表格很长的话可能就不是很好了。

下面来教大家将Excel转TXT，而且在TXT中将表格以“，逗号”隔开的方式来排序，这样有利于我们区分!操作方法：先将Excel表格“文件”-->另存为，然后选择“CSV”格式;然后将“CSV”格式文件用“记事本”来打开，打开后效果如下图。

打开后将文件另存为“TXT”格式即可。

TXT转Excel技巧：这里我就将上述的Excel转成完成的TXT文件再次转换为Excel。

操作如下：步骤一、打开Excel然后单击“文件”-->打开，将“文件类型”选择为“所以文件”，然后选择你需要转换的“.txt”文件，将其打开;步骤二、此时会弹出个“文本导入向导”，选择默认的“分隔符号”然后下一步，如下图：步骤三、此次“3步骤之2”的窗口中，我们将“分隔符号”中的“逗号”勾选，然后直接单击“完成”按钮;(如图)转换已经完毕，看看TXT文件是不是已经完整导入到了Excel中，而且表格都分配得非常完美!。