Excel VBScript插入列并填充

我试图通过脚本插入到Excel电子表格的列。 我发现下面的代码应该允许我插入一个列，但是我将如何使用fill> down或fill> series命令来填充该列中的数据，就像在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 VBAmacros非常相似。

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

如果您在查找某些东西时遇到任何问题，可以使用内置的macroslogging器创build一个Excelmacros，并查看生成的vba代码 – 这有助于我更好地理解excel vbamacros。 我假设vba代码也可以在vbscript中使用。