Excel VBScript插入列和填充

Question

我正在尝试通过脚本将列插入Excel电子表格。我发现下面的代码应该允许我插入一个列，但是我怎样才能使用fill＆gt; down或fill＆gt;系列命令在Excel应用程序中填充该列数据？

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中使用。