excel vbscript插入列并填充

Question

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

Const xlToRight = -4161
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWB = objExcel.Workbooks.Open("C:TempScriptsTest2.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:TempScriptsTest2.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中使用。