在excel document中增加一行、一列和单元值得脚本

创建一个excel对象
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Visible = true

' 增加一个新的 Workbooks 和 Sheet
ExcelObj.Workbooks.Add

Set NewSheet = ExcelObj.Sheets.Item(1)
NewSheet.Name = "Page Information"

' 向sheet中添加一些值
For row = 1 to 10
   NewSheet.Cells(row,1) = "index = " & row
   NewSheet.Cells(row,2) = row * row
Next
NewSheet.Cells(6, 1).Insert -4161 ' xlShiftToRight

'在第8列侯增加一行
NewSheet.Rows(8).Insert -4121 'xlShiftDown

插入一个新列
NewSheet.Columns("B").Insert -4161

Set ExcelObj = Nothing