前段时间用vb做了一个小软件，用来将下位机存储的运行记录（txt格式）转为excel格式。 源代码如下，供需要借鉴的朋友来下载，代码有点乱，但是功能是经过验证了的。本来是想将工程作为附件插入进来，弄了半天居然没有发现这个功能，有点无语，直接上代码吧。

Public xx As String
Public temp As String
Public file_length As Long
Public file_number As Long

Private Sub Command1_Click()
ProgressBar1.Visible = True
Dim H() As String, L() As String, i As Integer, j As Integer, a() As String
Dim SaveFile As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
'*************************************************************
Open xx For Input As #1 'open the file
xlSheet.Cells(1, 1) = "序号"
xlSheet.Cells(1, 2) = "时间"
xlSheet.Cells(1, 3) = "模式"
xlSheet.Cells(1, 4) = "电流(A)"
xlSheet.Cells(1, 5) = "总电压(V)"
xlSheet.Cells(1, 6) = "容量(AH)"
xlSheet.Cells(1, 7) = "告警类型"
xlSheet.Cells(1, 8) = "环境温度(C)"
xlSheet.Cells(1, 9) = "电池温度1"
xlSheet.Cells(1, 10) = "电池温度2"
xlSheet.Cells(1, 11) = "电池温度3"
xlSheet.Cells(1, 12) = "电池温度4"
xlSheet.Cells(1, 13) = "电池温度4"
xlSheet.Cells(1, 14) = "电压1"
xlSheet.Cells(1, 15) = "电压2"
xlSheet.Cells(1, 16) = "电压3"
xlSheet.Cells(1, 17) = "电压4"
xlSheet.Cells(1, 18) = "电压5"
xlSheet.Cells(1, 19) = "电压6"
xlSheet.Cells(1, 20) = "电压7"
xlSheet.Cells(1, 21) = "电压8"
xlSheet.Cells(1, 22) = "电压9"
xlSheet.Cells(1, 23) = "电压10"
xlSheet.Cells(1, 24) = "电压11"
xlSheet.Cells(1, 25) = "电压12"
xlSheet.Cells(1, 26) = "电压13"
xlSheet.Cells(1, 27) = "电压14"
xlSheet.Cells(1, 28) = "电压15"
xlSheet.Cells(1, 29) = "电压16"
For j = 0 To file_number
Line Input #1, temp
H = Split(temp, vbTab)
For i = 0 To file_length - 1
xlSheet.Cells(j + 2, i + 1) = H(i)
ProgressBar1.Value = i + 1
Next i
Next j
Close #1 'close the file
SaveFile = "c:\yu.xls"
If Dir(SaveFile) <> "" Then Kill SaveFile
xlBook.SaveAs FileName:=SaveFile '保存工作表,结束时一定别忘了保存
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
MsgBox "文件已成功导出到" & SaveFile
End Sub
Private Sub Command2_Click()
txt_file.FileName = ""
txt_file.Flags = vbOFNFileMustExist
txt_file.Filter = "All Files|*.*|(*.txt)|*.txt"
txt_file.FilterIndex = 2
txt_file.DialogTitle = "选择需要转换的Txt文件"
txt_file.Action = 1
If txt_file.FileName = "" Then
Else
xx = txt_file.FileName

Open xx For Input As #1 'open the file
Line Input #1, temp
a = Split(temp, vbTab)
file_length = UBound(a) - LBound(a) + 1
ProgressBar1.Max = file_length
Do While Not EOF(1)
Line Input #1, temp
file_number = file_number + 1
Loop
file_number = file_number
Close #1 'close the file
End If
End Sub
Private Sub Form_Load()
xx = ""
file_length = 0
file_number = 0
ProgressBar1.Visible = False
End Sub

转载于:https://blog.51cto.com/yuzhenjin/1150955

vb小工具-----txt转为excel相关推荐

  1. python小工具—图片转为字符txt

    python小工具-图片转为字符txt 图片转为字符txt python小工具-图片转为字符txt 效果展示 转换图片信息 图片信息转字符 完整代码 效果展示 转换图片信息 将图片的rgb色彩信息转为 ...

  2. C#/VB.NET 将Html转为Excel

    vb.net教程https://www.xin3721.com/eschool/vbnetxin3721/ 本文介绍通过C#和VB.NET代码展示将Html转为Excel文档的方法. dll引用 方法 ...

  3. 使用Python将TXT转为Excel

    第一步,我们创建一个txt文件,内容为图中所示: 第二步,开始写代码: #导入openpyxl用于excel操作 from openpyxl import Workbook#新建保存结果的excel, ...

  4. print python excel分隔_办公自动化 Python 小工具，对Excel文件,按某一列拆分成多个Excel文件或sheet...

    使用pandas.xlwings.os 库文件,对Excel文件,按某一列拆分成多个Excel文件或sheet,提高工作效率. # -*- coding: utf-8 -*- "" ...

  5. Excel文件密码破解小工具

    下载地址:http://write.blog.csdn.net/postedit 软件综述 Excel文件解密辅助小工具软件截图 Excel文件解密辅助小工具软件简介 excel密码破解工具是一款针对 ...

  6. Python｜excel表格数据一键转json格式小工具｜支持xlsx、xls格式转json｜【源码+解析】

    背景    最近在使用JavaScript编写一些浏览器RPA脚本,脚本使用过程中遇到一些问题,脚本使用的数据往往存放在excel表,但运行时只能读取json数据,导致频繁人工excel转json,效 ...

  7. python怎么将txt转为excel_使用matlab或python将txt文件转为excel表格

    假设txt文件为: 一.matlab代码 data=importdata('data.txt'); xlswrite('data.xls',data); 二.python代码 利用pandas的Dat ...

  8. 开源在线excel编辑器_【技能】十个在线小工具，科研amp;工作必备神器！

    不知道大家是否有和我一样的困扰,需要用某一个软件,但是电脑某一天忽然罢工了,重装系统之后,所有的软件都没有了,又得重新安装.有的大型软件,安装起来能有几个小时,安装过程中又得面对各种问题.我就想着如果 ...

  9. python趣味小工具，图片转Execl，图片转TXT工具

    前言 本文的文字及图片来源于网络,仅供学习.交流使用,不具有任何商业用途,版权归原作者所有,如有问题请及时联系我们以作处理. WHJWNAVY | 作者 Demo大师 | 来源 python 趣味实用 ...

最新文章

  1. 狼羊菜过河问题深入学习分析——Java语言描述版
  2. docker 端口映射 及外部无法访问问题：开启IP转发从而解决
  3. IDEA、 JetBrains、webstorm、 pycharm 破解教程
  4. 【转载】stackoverflow 上关于 rebar 的讨论
  5. web自动化原理揭秘
  6. SPH（光滑粒子流体动力学）流体模拟实现六：Position Based Fluid（PBF）
  7. centos之ctrl+z
  8. Linux命令（五）之service服务查找、启动/停止等相关操作
  9. hexutil加解密_EncodeUtil（各种格式的编码解码工具类）
  10. chmod 更改文件的权限
  11. 洪水填充算法_优化洪水相似算法（渗流理论）
  12. Carlife Iphone IAP2连接与认证过程
  13. 微电子学与计算机发表周期,计算机核心期刊发表周期是多少？
  14. 华为路由器静态路由基本配置
  15. 大一寒假集训（11）(12)---map,set
  16. 基于高通量表型的QTL定位揭示了甘蓝型油菜耐盐胁迫的遗传结构
  17. Linux链接命令和搜索命令
  18. 中国硫酸铜杀菌剂市场趋势报告、技术动态创新及市场预测
  19. SaaS软件的技术缺陷以及解决方案
  20. 如何使用 Unity制作微信小游戏，微信小游戏制作方案 最新完整详细教程来袭【持续更新】

热门文章

  1. 从壹开始前后端分离【 .NET Core2.2 +Vue2.0 】框架之六 || API项目整体搭建 6.1 仓储+服务+抽象接口模式...
  2. HLSL Texture Object Sample 的一些笔记
  3. jQuery 3.1.1 官方下载地址
  4. Material Design Lite，简洁惊艳的前端工具箱。
  5. C++编程思想重点笔记（下）
  6. UVA10010 Where's Waldorf?
  7. Kubernetes系统架构简介
  8. SVD分解的并行实现
  9. 深入理解 js 之继承与原型链
  10. 揭秘全球首次互联网8K直播背后的技术实现