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を使用する構文（オブジェクトモデル）は、ExcelVBAマクロと非常によく似ているようです。

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

何かを見つけるのに問題がある場合は、組み込みのマクロレコーダーを使用してExcelマクロを作成し、生成されたvbaコードを確認するとうまくいく可能性があります。これは、過去にExcelvbaマクロをよりよく理解するのに役立ちました。vbaコードはvbscriptでも使用できると思います。

于 2012-10-25T20:32:28.783 に答える