Excel VBScript 插入列并填充

Question

我正在尝试通过脚本向 Excel 电子表格插入一列。我发现下面的代码应该允许我插入一列，但是我将如何像在 Excel 应用程序中使用 fill>down 或 fill>series 命令那样用数据填充该列？

Const xlToRight = -4161
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWB = objExcel.Workbooks.Open("C:\Temp\Scripts\Test2.xls")
Set objSheet = objwb.Sheets("Overall")
objSheet.Columns("D:D").Insert xlToRight
objWB.Close True
objExcel.Quit

编辑

这是最终起作用的。

Const xlToRight = -4161
const xlColumns = &H2 
const xlLinear = -4132 
const xlDay = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWB = objExcel.Workbooks.Open("C:\Temp\Scripts\Test2.xls")
Set objSheet = objwb.Sheets("Overall")
objSheet.Columns("A:A").Insert xlToRight
objSheet.Cells(1, 1).Value = "label"
objSheet.Cells(2, 1).Value = "Value"
set Range = objSheet.Range("A2:A"&objSheet.UsedRange.Rows.Count) 
Range.FillDown
objSheet.Columns("A:A").Insert xlToRight
objSheet.Cells(1, 1).Value = "series"
objSheet.Cells(2, 1).Value = 1
set Range = objSheet.Range("A2:A"&objSheet.UsedRange.Rows.Count) 
Range.DataSeries xlColumns, xlLinear,xlDay, 1, , False
objWB.Close True
objExcel.Quit

Answer 1

如何将值插入单元格

使用 vbscript 的语法(对象模型)似乎与 excel VBA 宏非常相似。

objSheet.Cells(2,4).Value = "foo"

如果您在查找问题时遇到任何问题，使用内置的宏记录器创建 excel 宏并查看生成的 vba 代码可能会奏效 - 这在过去帮助我更好地理解 excel vba 宏。我假设 vba 代码也可以在 vbscript 中使用。