前段時(shí)間用vb做了一個(gè)小軟件，用來(lái)將下位機(jī)存儲(chǔ)的運(yùn)行記錄（txt格式）轉(zhuǎn)為excel格式。?源代碼如下，供需要借鑒的朋友來(lái)下載，代碼有點(diǎn)亂，但是功能是經(jīng)過(guò)驗(yàn)證了的。本來(lái)是想將工程作為附件插入進(jìn)來(lái)，弄了半天居然沒(méi)有發(fā)現(xiàn)這個(gè)功能，有點(diǎn)無(wú)語(yǔ)，直接上代碼吧。 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")?'創(chuàng)建EXCEL對(duì)象
Set?xlBook?=?xlApp.Workbooks.Add?'打開(kāi)已經(jīng)存在的EXCEL工件簿文件
xlApp.Visible?=?True?'設(shè)置EXCEL對(duì)象可見(jiàn)（或不可見(jiàn)）
Set?xlSheet?=?xlBook.Worksheets("Sheet1")?'設(shè)置活動(dòng)工作表
'************************************************************* Open?xx?For?Input?As?#1?'open?the?file
xlSheet.Cells(1,?1)?=?"序號(hào)"
xlSheet.Cells(1,?2)?=?"時(shí)間"
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)?=?"環(huán)境溫度(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?'保存工作表,結(jié)束時(shí)一定別忘了保存
xlBook.Close?(True)?'關(guān)閉工作簿?這里的True表示退出時(shí)保存修改
xlApp.Quit?'結(jié)束EXCEL對(duì)象
Set?xlApp?=?Nothing?'釋放xlApp對(duì)象
MsgBox?"文件已成功導(dǎo)出到"?&?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?=?"選擇需要轉(zhuǎn)換的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

轉(zhuǎn)載于:https://blog.51cto.com/yuzhenjin/1150955

總結(jié)

以上是生活随笔為你收集整理的vb小工具-----txt转为excel的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。