首页 > vBS中读取文件 (txt、 xls 、execl)

不存在的女儿txt,vBS中读取文件 (txt、 xls 、execl)

互联网 2021-01-24 23:11:36
在线算命,八字测算命理

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

免责声明:非本网注明原创的信息,皆为程序自动获取自互联网,目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责;如此页面有侵犯到您的权益,请给站长发送邮件,并提供相关证明(版权证明、身份证正反面、侵权链接),站长将在收到邮件24小时内删除。

相关阅读

最新推荐

more