vBS中读取文件 (txt、 xls 、execl)
来源:互联网 发布:2016淘宝客视频教程 编辑:程序博客网 时间:2024/06/04 17:48
一。vBS中读取文本文件
首先要确保要读取的文件存在,我这里用的是C:\vbs\IE.vbs,新建一个ReadTxtFile.vbs,写入下面的内容:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\VBS\IE.vbs", ForReading)
strResponses = objTextFile.ReadAll
Wscript.Echo strResponses
objTextFile.Close
---------------------------------------------------------------------------------------------------------------------
对代码进行简要说明:
函数返回一个 TextStream object
object.OpenTextFile(filename[, iomode[, create[, format]]])
参数介绍
object
要求是一个 FileSystemObject类型。
filename
用String类型表示的文件路径。
iomode
可选参数 ForReading, ForWriting, or ForAppending.
ForReading 1 只读
ForWriting 2 写
ForAppending 8 追加
create
可选参数 True,False.
True 当打开的文件不存在时,创建一个。
False 当打开的文件不存在时,不创建。
format
可选参数TristateUseDefault,TristateTrue,TristateFalse。
TristateUseDefault -2 采用系统默认方式打开
TristateTrue -1 采用Unicode方式打开
TristateFalse 0 采用ASCII方式打开
再写一个txt文件的WritetxtFile.vbs。
----------------------------------------------------------------------------------------------------------------------
Const ForWriting = 2
Const create = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile
("c:\VBS\Hello.txt",ForWriting,create)
strResponses = objTextFile.Write("Hello world!")
objTextFile.Close
----------------------------------------------------------------------------------------------------------------------
执行成功后可以在C:\VBS\目录下生成一个Hello.txt文件。
二。vbs创建xls表,并写入内容Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页
ExcelSheet.Activate
ExcelApp.DisplayAlerts = False
ExcelSheet.Name="sheet1"
ExcelSheet.Range("A1").Value = 100 '设置A1的值为100
ExcelBook.SaveAs "d:\test.xls" '保存工作表
msgbox "d:\test.xls创建成功!"
ExcelBook.close
set excelApp=nothing
set ExcelBook=nothing
set ExcelSheet=nothing
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.open("d:\test.xls")
Set ExcelSheet = ExcelBook.Worksheets(1)
msgbox ExcelSheet.Range("A1").Value
- vBS中读取文件 (txt、 xls 、execl)
- Execl多个xls文件转为表单合并在一个xls文件下VBS脚本
- matlab循环读取文件(xls、txt、dat、mat)】
- Python 读取EXCEL(XLS、CSV)写入txt文件
- java 读取txt文件和xls文件
- 从xls或者txt等格式的文件中读取编码码率以及PSNR
- 文件导出(导出xls和txt)
- Python读取txt内容写入xls格式的excel中
- matlab中读取excel的xls文件
- 使用bat批处理txt文件内容到execl中
- C#读取execl文件
- Qt中导出.txt, .xls, .xlsx, .pdf文件小结
- Java中读取txt文件
- .xls .txt文件生成下载
- 读取xls文件示例
- 读取xls文件示例
- Java读取xls文件
- python读取xls文件
- 深刻理解Python中的元类(metaclass)
- svn客户端操作
- Arduino 实验2 - 控制LED闪烁
- 关于IAR中的printf设置
- USACO部分试题答案1.2.4;1.2.5;1.3.1
- vBS中读取文件 (txt、 xls 、execl)
- 如何让你的改动进入内核
- wireshark支持命令行抓包和停止抓包
- solr查询语法
- HDU1381(map)
- ubuntu和win7双系统,ubuntu系统启动菜单修复
- C# 查找指定目录下指定文件名或格式的文件并将结果保存到文本
- Floyd-Warshall算法
- ADS中调试中断函数时进不了中断服务函数的解决办法