今天在写自动化流程的时候用到了VBScript，记录一下省的以后在用的VBScript的时候来回查文档
Excel表的操作
今天用到的excel对象都是简单的读取操作
Dim xlsApp, xlsSheet, xlsBook
' 创建excel对象
Set xlsApp = WScript.CreateObject("Excel.application")
' 是否显示excel文件，True为显示，False为不显示
xlsApp.Visible = True
' 打开指定的路径
Set xlsBook = xlsApp.WorkBooks.open(path)
' 选择指定的Sheet
Set xlsSheet = xlsBook.Sheets("Sheet1")
' 读取单元格,第一个参数是Y轴，第二个参数是X轴
msgbox xlsSheet.Cells(1,1)
' 关闭excel
xlsBook.Close()
' 退出excel对象
xlsApp.Quit()
' 释放内存
Set xlsApp = Nothing
Set xlsSheet = Nothing
Set xlsBook = Nothing
Fs文件的操作
今天用到了文件名的获取因为需要在word中插入图片
Dim fso, fs
' FileSystemObject 这个对象提供了计算机文件系统的访问权限，具体啥意思也不明白
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' 获取当前路径下的所有文件集合
Set fs = fso.GetFolder(path).Files
For Each f in fs
' f就是单个的文件名
msgbox f
Next
Word的操作
表格的写入，设置行高，根据索引删除某一项，根据索引插入
Dim Wd,Doc
' 创建Word对象
Set Wd = WScript.CreateObject("Word.application")
' 是否显示Word文档
Wd.Visible = True
' 打开Word
Set Doc = Wd.Documents.Open(path)
Dim count
' 获取所有文档中所有的集合
count = Doc.Sentences.Count
' Range 代表的是文档中的连续区域，每一个Range由起始字符到终止字符来进行定义
' Doc.Sentences(count)返回了一个Range对象因为Sentence本身没有删除的方法，而Range又删除的方法
' count 代表了最后的一个集合
Doc.Sentences(count).Delete()
' 删除之后在写入
Doc.Sentences(count).Text = "Test"
' 是否加粗
Doc.Sentences(count).Font.Blod = True
Dim Tables
' 读取文档中的第一个表格
Set Tables = Doc.Tables(1)
' 表格单元格的写入,第一个参数是Y轴，第二个参数是X轴
Tables.Cell(1,1).Range.Text = "hello"
' 修改表格的行高, 28.35代表的是榜，一厘米约等于28.35榜
Tables.Rows.Height = 28.35
今天用到的大概就这么多，以后如果还有机会接触VBS的话再继续记笔记
