3

我正在尝试通过脚本在 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
4

1 回答 1

2

如何将值插入单元格

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

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

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

于 2012-10-25T20:32:28.783 回答