vb小工具-----txt转为excel
发布时间：2020-12-17 08:19:00 所属栏目：百科 来源：网络整理
导读：前段时间用vb做了一个小软件，用来将下位机存储的运行记录（txt格式）转为excel格式。源代码如下，供需要借鉴的朋友来下载，代码有点乱，但是功能是经过验证了的。本来是想将工程作为附件插入进来，弄了半天居然没有发现这个功能，有点无语，直接上代码吧。 P
|
前段时间用vb做了一个小软件，用来将下位机存储的运行记录（txt格式）转为excel格式。源代码如下，供需要借鉴的朋友来下载，代码有点乱，但是功能是经过验证了的。本来是想将工程作为附件插入进来，弄了半天居然没有发现这个功能，有点无语，直接上代码吧。
PublicxxAsString
PublictempAsString Publicfile_lengthAsLong Publicfile_numberAsLong PrivateSubCommand1_Click() ProgressBar1.Visible=True DimH()AsString,L()AsString,iAsInteger,jAsInteger,a()AsString DimSaveFileAsString DimxlAppAsExcel.Application DimxlBookAsExcel.Workbook DimxlSheetAsExcel.Worksheet SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象 SetxlBook=xlApp.Workbooks.Add'打开已经存在的EXCEL工件簿文件 xlApp.Visible=True'设置EXCEL对象可见（或不可见） SetxlSheet=xlBook.Worksheets("Sheet1")'设置活动工作表 '*************************************************************
OpenxxForInputAs#1'openthefile
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"
Forj=0Tofile_number
LineInput#1,temp H=Split(temp,vbTab) Fori=0Tofile_length-1 xlSheet.Cells(j+2,i+1)=H(i) ProgressBar1.Value=i+1 Nexti Nextj Close#1'closethefile SaveFile="c:yu.xls" IfDir(SaveFile)<>""ThenKillSaveFile xlBook.SaveAsFileName:=SaveFile'保存工作表,结束时一定别忘了保存 xlBook.Close(True)'关闭工作簿这里的True表示退出时保存修改 xlApp.Quit'结束EXCEL对象 SetxlApp=Nothing'释放xlApp对象 MsgBox"文件已成功导出到"&SaveFile EndSub
PrivateSubCommand2_Click()
txt_file.FileName="" txt_file.Flags=vbOFNFileMustExist txt_file.Filter="AllFiles|*.*|(*.txt)|*.txt" txt_file.FilterIndex=2 txt_file.DialogTitle="选择需要转换的Txt文件" txt_file.Action=1 Iftxt_file.FileName=""Then
Else
xx=txt_file.FileName OpenxxForInputAs#1'openthefile LineInput#1,temp a=Split(temp,vbTab) file_length=UBound(a)-LBound(a)+1 ProgressBar1.Max=file_length
DoWhileNotEOF(1)
LineInput#1,temp file_number=file_number+1 Loop file_number=file_number Close#1'closethefile EndIf EndSub
PrivateSubForm_Load() xx="" file_length=0 file_number=0 ProgressBar1.Visible=False EndSub
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |