vbs把excel文件另存为html,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把excel文件另存为html,VBS实现将Excel表格保存为txt文本相关推荐
- panda读取excel文件内容时出错,提示excel表格不能被指定
panda读取excel文件内容时出错,提示exc表格不能被指定,详细内容如下: Excel file format cannot be determined, you must specify an ...
- php 读取解析excel文件内容,怎么用PHP读取Excel文件信息及内容?(图文+视频教程)...
本篇文章将要给大家详细介绍如何用PHP读取Excel文件数据及内容信息. 在文章开始介绍前,大家需要了解一下PHPExcel是什么?PHPExcel 就是一个用来操作Office Excel 文档的P ...
- (半成品)Excel文件按要求导出至模板excel中(含配套数据)
Task:Excel文件按要求导出至模板excel中 要求其实挺多的,一下次也说不完,大致情况如下图所示 数据:配套数据下载链接(如未审核完成,请评论留言邮箱给我哈) 思路: 用openpyxl库筛选 ...
- matlab依次读取每个数,『matlab如何依次读取文件夹中EXCEL文件,并对每一个EXCEL特定列全部数值进行处理?』matlab调入excel文件的某一列...
matlab导入excel表格,第一行为x,第一列为y的数据,其余为z 行的NI(r=1--0.25)比烦. filename='a.xls';%,可据你的需要更改 y=xlsread(filenam ...
- POI:从Excel文件中读取数据,向Excel文件中写入数据,将Excel表格中的数据插入数据库,将数据库中的数据添加到Excel表
POI 简介: POI是Apache软件基金会用Java编写的免费开源的跨平台的 Java API,Apache POI提供API给Java程序对Microsoft Office格式档案读和写的功能. ...
- python 通过openpyxl来操作Excel文件(一 ):读取Excel文件
这篇文章讲python 通过openpyxl来读取Excel文件 不清楚怎么通过openpyxl来写入Excel文件的小伙伴可以看我另一篇文章 传送门python 通过openpyxl来操作Excel ...
- python 通过openpyxl来操作Excel文件(二 ):写入Excel文件
这篇文章讲python 通过openpyxl来写入Excel文件,不清楚python怎么读取Excel文件的小伙伴可以去看下我的另一篇文章 传送门https://blog.csdn.net/i_cof ...
- Excel文件复制追加到另一个Excel文件
Excel文件复制追加到另外一个Excel文件后 # Python: 根据模板文件,生成新的Excel表 import re from copy import copy from openpyxl i ...
- 将Excel文件另存为制定格式的DBF-做了一半
目前已实现的功能: 1.可以指定Excel文件的读取位置: 2.读取Excel中各sheet名称: 3.可以预览各sheet的数据. Todo: 1.如何将datatable另存为DBF文件: 2.另 ...
最新文章
- 中国LINUX内核开发大会 ppt演讲资料 与 会议视频
- Entrust - Laravel 用户权限系统解决方案
- 想被千年后的人知道吗,快去GitHub上传代码吧!
- C#,SharpGL开发的3D图表控件
- C# SolidWorks二次开发-工程图-更换工程图图纸格式/模板
- ios 原生android系统下载地址,iOS原生系统自带分享
- DRM破解再升级 支持新版WM11
- 电子设计(8)NPN和PNP三极管驱动LED电路
- Homebridge插件编写-基于homebridge-aqara
- AI+工业互联网:百度AI专利讲述“中国智造”
- 艾克姆nrf52832开发板。
- K-means方法总结(附代码)
- 安卓 实现网易云音乐底部播放栏效果之使用UI绑定到Service上实现
- SpringBoot2.0学习笔记 使用Actualor监控项目运行状态
- 租房小程序开发的主要功能
- QQ空间日志说说类网站织梦模板(带手机端)
- 电脑锁屏重新开启后无网络网络适配器属性没有电源管理选项
- 让该来的事情到来吧——《梵高》
- 逃出迷宫完整算法C++
- 场地九项-坡道起步,限宽门,百米加减档
热门文章
- 基于JAVA+Servlet+JSP+MYSQL的个人博客系统
- 基于JAVA+SpringMVC+Mybatis+MYSQL的旅游景点门票售票管理系统
- java 字符串编程题_Java编程题——在一个字符串中查找第一个非重复的字符
- reduce python_python reduce()函数使用
- 修改pip安装源加快python模块安装
- HTC Vive 叠影器无法创建设备
- 【MySQL】添加多个字段
- 允许远程用户登录访问mysql的方法
- [转]如何判断一个点是否在一个多边形内部
- 120 - 算法 - 枚举 周期性跳转 openjudge:4148生理周期