vBS中读取文件 （txt、 xls 、execl）

一。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

三。vbs 读execl文件

Set ExcelApp   =   CreateObject("Excel.Application")    '创建EXCEL对象
Set ExcelBook =   ExcelApp.Workbooks.open("d:\test.xls")
Set ExcelSheet = ExcelBook.Worksheets(1)
msgbox ExcelSheet.Range("A1").Value