VBS怎么實(shí)現將Excel表格保存為txt文本

這篇文章主要介紹“VBS怎么實(shí)現將Excel表格保存為txt文本”，在日常操作中，相信很多人在VBS怎么實(shí)現將Excel表格保存為txt文本問(wèn)題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對大家解答”VBS怎么實(shí)現將Excel表格保存為txt文本”的疑惑有所幫助！接下來(lái)，請跟著(zhù)小編一起來(lái)學(xué)習吧！

希望能夠找到個(gè)能給excel表另存為T(mén)XT的VBS代碼，雖然另存為可以選擇，但還是需要直接VBS執行這一步另存為T(mén)XT格式的，應該如何寫(xiě)代碼呢？

有裝Excel的話(huà)，就會(huì )比較簡(jiǎn)單，下面的是通用的不裝Office也可以運行的，如下:
VBScript code:

復制代碼 代碼如下:

Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.BrowseForFolder(0,"選擇目錄",0)
For Each x In oDir.Items
If LCase(Right(x.Path,4)) = ".xls" Then
XLS2TXT x.Path
End If
Next
'****************************************************************************************
'開(kāi)始轉換
'****************************************************************************************
Sub XLS2TXT(strFileName)
'若有裝Excel只需
'oExcel.ActiveWorkbook.SaveAs strFileName & ".txt", -4158
'下面的方法適合沒(méi)有裝Office的系統
On Error Resume Next
Dim oConn,oAdox,oRecordSet
Set oConn = CreateObject("Adodb.Connection")
Set oAdox = CreateObject("Adox.Catalog")
sConn = "Provider = Microsoft.Jet.Oledb.4.0;" & _
"Data Source = " & strFileName & ";" & _
"Extended Properties = ""Excel 8.0; HDR=No"";"
sSQL = "Select * From "
oConn.Open sConn
if Err Then
Msgbox "錯誤代碼:" & Err.Number & VbCrLf & Err.Description
Err.Clear
else
oAdox.ActiveConnection = oConn
sSQL = sSQL & "[" & oAdox.Tables(0).Name & "]" '為了簡(jiǎn)便，只處理第一個(gè)工作表
Set oRecordSet = oConn.Execute(sSQL)
if Err Then
Msgbox "錯誤代碼:" & Err.Number & VbCrLf & Err.Description
Err.Clear
else
Write strFileName & ".txt",oRecordSet.GetString
end if
end If
oRecordSet.Close
oConn.Close
Set oRecordSet = Nothing
Set oAdox = Nothing
Set oConn = Nothing
End Sub
'****************************************************************************************
'寫(xiě)入文件，同名覆蓋，無(wú)則創(chuàng )建
'****************************************************************************************
Sub Write(strName,str)
Dim oFSO,oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(strName,2,True) '不存在則創(chuàng )建,強制覆蓋
oFile.Write str
oFile.Close
Set oFile = Nothing
Set oFSO = Nothing
End Sub