vbs&excel

想操作excel

使用set的形式构建excel事务 先无视表格的信息框，防止无法自动化

oExcel.DisplayAlerts = False 作用 ：禁用 Excel 的提示和警告框（如“是否覆盖现有文件”“格式不匹配”等）。 ·············· oExcel.Visible = True 作用 ：设置 Excel 应用程序窗口是否可见。 ·············· oExcel.Caption = “调用程序” 作用 ：修改 Excel 窗口的标题栏文本（默认是“Microsoft Excel”）。

Dim oexcel
Set oExcel = CreateObject("Excel.Application")
oExcel.DisplayAlerts = False
oExcel.Visible = True
' 可视化
oExcel.Caption = "调用程序"

这样就可以调用一个excel的初始化

调用excel表

首先使用事务打开表，而后对操作的表对象进行定位

Dim wb, ws
Set wb = oExcel.Workbooks.Open("E:\vbs\excel\test.xlsx")
Set ws = wb.Worksheets(1)
ws.Cells.ClearContents  ' 清空所有内容

结束调用

对每一个事务进行关闭保存，打开会话框

wb.Save
oExcel.DisplayAlerts = True
wb.Close
oExcel.Quit