vbs使用Excel.Application组件读写excel文件

本文主要是介绍vbs使用Excel.Application组件读写excel文件，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

vb创建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

将以上代码copy到记事本存为"writexls.vbs"文件，可运行测试

读execel文件

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

将以上代码copy到记事本存为"readxls.vbs"文件，可运行测试

这篇关于vbs使用Excel.Application组件读写excel文件的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---