VB txt 转换 excel 的小程序

最新推荐文章于 2022-08-10 11:03:42 发布
最新推荐文章于 2022-08-10 11:03:42 发布 · 219 阅读 · 1
文章标签：

#VB #Excel #J#

本文介绍了一个使用VBA编写的程序，该程序能够将TXT文件转换为Excel文件。通过创建Excel对象并读取TXT文件的内容，程序能够逐行解析数据并将每行的数据按列写入到Excel中。

首先要对excel进行引用

PrivateSubCommand1_Click()SubCommand1_Click()
TxtToExcel"E:\1.txt",""
EndSub

SubTxtToExcel()SubTxtToExcel(txtFileAsString,DistanceCharAsString)
OnErrorGoToL
'建立excel对象
DimXlAppAsNewExcel.Application
DimXlWbAsNewExcel.Workbook
DimXlStAsNewExcel.Worksheet
SetXlApp=CreateObject("Excel.Application")
SetXlWb=XlApp.Workbooks.Add
XlWb.SaveAsFileName:=Left(txtFile,Len(txtFile)-4)&".xls"
SetXlSt=XlWb.Worksheets(1)
'开始转换
DimiAsInteger,jAsInteger,linenextAsString,strb()AsString
j=1
OpentxtFileForInputAs#1
DoUntilEOF(1)
LineInput#1,linenext
strb=Split(linenext,DistanceChar)
Fori=0ToUBound(strb)
XlSt.cells(j,i+1)=strb(i)
Next
j=j+1
Loop
Close#1
'结束，释放空间
XlWb.Save
XlWb.Close
XlApp.quit
MsgBox"finished"
ExitSub
L:
MsgBox"Wrong"
EndSub
iteye_15968
关注
2 批量读取text文本到excel中
UP Lee博客
12-10 2677
一、步骤： 1 01 使用VBA程序打开文本文件 2 读取一行内容 3 判断是否已经到末尾 4 关闭文本文件 二、案例 f=dir（“d:\demo2\”） 以反斜杠“\”结尾代表文件夹，否则会被当做一个文件，即demo2 文件 ### 成功案例 Option Explicit Sub dirdemo() Application.ScreenUpdating = False ...
将txt转换成excel
10-12
将txt文件中的内容转为excel表格中的内容进行储存，替换原表格中内容
用vb将txt导入到excel
07-19
怎么用vb将txt导入到excel的方法介绍
Excel转换成Txt文本小程序（.net）
06-22
有大量的客户资料但都是Excel文件形式，想导到foxmail里，但foxmail的导入导出通讯录只认txt文本，所以针对这个问题写了个C#小程序，可以直接把Excel转换成foxmail可以直接导入的Txt文本
每天一个小程序—0014题（txt 转 Excel）
weixin_30908103的博客
02-04 158
基础知识：Excel文件的后缀有xls和xlsx，前者是针对2003版本的，2007及其之后的版本是xlsx。 在python中对于这两种不同后缀的文件有不同的库来处理，对于xls用wlrd、xlwt来完成读写，对于xlsx则用openpyxl来处理，并且openpyxl只能处理xlsx文件。 关于openpyxl的用法，这篇博客写得不错：传送门 代码清单： 1 im...
EXCEL 测量程序V5.rar
08-26
标题“EXCEL 测量程序V5.rar”指的是一个基于Excel的测量应用程序的第五个版本，这个程序可能被设计用于处理与测绘相关的计算任务。在描述中，“EXCEL 测量程序V5”进一步确认了这是一个专为测量工作定制的Excel工具...
txt转换为excel文件
04-12
"txt转换为excel文件"的主题涉及到了两个关键的文件格式：纯文本（.txt）和电子表格（.xlsx，.xls）。这里我们将详细探讨如何将TXT文件转换为Excel文件，以及为什么这种转换在实际应用中具有重要意义。 首先，TXT...
VB将excel导入access.zip_VBaccess导入execl_excel导入access_vb excel acc
07-14
Visual Basic（VB）是一种常用的编程语言，用于构建应用程序，包括与数据库交互的程序。在这个场景下，"VB将excel导入access"的主题涉及了如何使用VB来实现Excel数据到Access数据库的迁移。这通常在需要将大量结构化...
VB程序实例-将Excel数据传给Access数据库.zip
最新发布
11-03
实现这一功能的VB程序大致需要完成以下几个步骤：首先，程序需要连接到包含数据的Excel文件。这通常涉及到指定Excel文件的路径，打开文件，并选择需要读取的工作表。接着，程序需要遍历工作表中的单元格，读取每个...
VB小型的数据库报表程序
05-07
【VB小型的数据库报表程序】是一款利用Visual Basic（VB）编程语言开发的，用于生成数据库报表的应用程序。这款程序能够支持多种输出格式，包括Word、Excel以及Html，为用户提供灵活的数据展示方式。在IT领域，...
VB打开TXT文件
05-24
要求打开TXT,而且要在那个程序所在的文件夹里打开 我为什么用Open App.Path & "\aa.txt" For Input As #1 没有用呢 app.path & "\aa.txt" aa.txt这个文件要放哪里
txt转excel的工具
ChaoyingL的博客
08-10 1193
用pandas将txt数据文件转换为excel文件
VB读取txt文件的方法
键盘上的舞指
04-26 1万+
VB读取TXT文件的方法
vb小工具-----txt转为excel
weixin_34405557的博客
03-09 523
前段时间用vb做了一个小软件，用来将下位机存储的运行记录（txt格式）转为excel格式。源代码如下，供需要借鉴的朋友来下载，代码有点乱，但是功能是经过验证了的。本来是想将工程作为附件插入进来，弄了半天居然没有发现这个功能，有点无语，直接上代码吧。 PublicxxAsStringPublictempAsStringPublicfile_lengthAs...
文本txt格式转excel
11-24 499
 Option Base 1 Sub 打开文本格式文件()     Dim myFileName As String     Dim myFI(256) As Variant     Dim i As Integer         myFileName = Application.GetOpenFilename("TXT格式(*.TXT),*.TXT,CSV格式(*.CSV)
VBA调用fso读取TXT转化EXCEL
me_to_007的博客
05-02 5377
VBA：TXT转EXCEL EXCEL版本： 2016 适用TXT样式： 固定分隔符规范TXT数据源 效果： 调用对话框选择打开TXT，设置TXT分割符，将转化文件保存到TXT文件同一目录下。如下图： 关于批量txt转化EXCEL： 可以结合Dir语句，遍历选定目下txt文件，再逐个转化成EXCEL文件。调用文件对话框选择目录语句如下： Sub select_file_d...
VB中如何创建并写入txt文件
热门推荐
05-03 1万+
Private Sub Command2_Click()     Open "F:\TEST\b.txt" For Output As #1     Print #1, Text1.Text     Close End Sub 以上代码可以创建一个txt文件 Private Sub Command1_Click()     Dim str     Open "F:\TEST\a.t
shell实现txt转换excel
Aruo
10-07 8802
转自:http://hi.baidu.com/yanweinet/blog/item/71a872d743d487d8a044dfe9.html本程序要求用于转换的txt文本内数据用"|"线分隔,当然也可以根据自己的需要来修改,用"|"主要是因为很多时候提取的数据是用unload语句从数据库中提取的。      这里要说明的是，单靠shell程序是不可能按照excel的真正的文件格式来写
VB实现Word Excel批量转换与处理工具
- 转换功能：将Word或Excel文档转换为网页或TXT文本格式，这一过程可能涉及到文件格式转换的API接口使用，转换过程中需要考虑到格式的兼容性和保留文档的排版。 - 替换功能：允许用户对Word文档中的文本内容进行...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值