VBS实现将Excel表格保存为txt文本
导读：收集整理的这篇文章主要介绍了VBS实现将Excel表格保存为txt文本，觉得挺不错的，现在分享给大家，也给大家做个参考。 希望能够找到个能给excel表另存为TXT的vbS代码，虽然另存...
收集整理的这篇文章主要介绍了VBS实现将Excel表格保存为txt文本，觉得挺不错的，现在分享给大家，也给大家做个参考。 希望能够找到个能给excel表另存为TXT的vbS代码，虽然另存为可以选择，但还是需要直接VBS执行这一步另存为TXT格式的，应该如何写代码呢？ 有装Excel的话，就会比较简单，下面的是通用的不装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
'****************************************************************************************
'开始转换
'****************************************************************************************
Sub XLS2TXT(strFileName)
'若有装Excel只需
'oExcel.ActiveWorkBook.SaveAs strFileName & ".txt", -4158
'下面的方法适合没有装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 & "]" '为了简便，只处理第一个工作表
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
'****************************************************************************************
'写入文件，同名覆盖，无则创建
'****************************************************************************************
Sub Write(strName,str)
Dim oFSO,oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(strName,2,True) '不存在则创建,强制覆盖
oFile.Write str
oFile.Close
Set oFile = Nothing
Set oFSO = Nothing
End Sub
您可能感兴趣的文章:
- VBS合并一个文件夹里的TXT的实现代码
- vbs解决处理TXT文本数据相关问题实现代码
- TXT转HTM、HTML「TXT转网页」的vbs实现代码
- 用vbs产生的若干个随机数并写入到一个.txt中的代码
- 将HTML或txt文件转换为ASP输出的vbs代码
- 用VBS将一篇txt后缀的内容保存为html格式
- vbs实现的支持拖动的txt文本切割器
- vbs操作txt文本文件常用方法与函数代码
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： VBS实现将Excel表格保存为txt文本
本文地址： https://pptw.com/jishu/609978.html