html调用vbs读取excel,VBS 读取excel内容并写入到文本文件

‘ we can pass the excel file name and worksheet as the parameter and using Wscript.Arguments to use it in the script

if(Wscript.Arguments.Count<3) then

msgbox "The count of Arguments is "&Wscript.Arguments.Count

‘Quit VBS script

‘Wscript.Quit

End if

Set oExcel=CreateObject("excel.application")

Set oWorkBook=oExcel.Workbooks.Open("C:\Users\lude\Downloads\Hypo Case\Basic Property.xls")

‘use the worksheet "Prop_Methods"

Set oSheet=oWorkBook.Sheets("Prop_Methods")

‘Get the used range

‘Set Sheet = oExcel.Worksheets("Prop_Methods").UsedRange

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\testfile.txt", True)

a.Close

‘ Read=1 Write=2 Append =8

Set a = fs.OpenTextFile("c:\testfile.txt", 8,false)

‘we can write more value to the text file by using loop

value=oSheet.cells(4,2)

a.WriteLine(value)

value=osheet.cells(5,2)

a.WriteLine(value)

value=osheet.cells(6,2)

a.WriteLine(value)

a.Close

Set oSheet=Nothing

oExcel.Quit

现在可以根据自己的需要修改或扩展脚本实现更丰富的功能

原文：http://blog.csdn.net/xinke453/article/details/23663905