|
○Book1が作られ、シートに10日先までの日付と曜日表示します '****test.vbs**** Dim myobj Set myobj = Wscript.CreateObject("Excel.Application") With myobj .Visible = True 'Excelを表示 .Workbooks.Add 'Workbook作成 For i = 1 To 10 .Cells(i, 1).Value = i & "日後" .Cells(i, 2).Value = Date + i .Cells(i, 3).Value = Date + i Next .Range("C1:C10").NumberFormat = "aaa" '曜日 .Columns("A:C").Select 'WSHだとSelectが必要みたい .Columns("A:C").EntireColumn.AutoFit '列幅最適化 .Cells(1, 4).Select 'なくても可 End With 'myobj.Quit '以下Excelを終了する場合 'Set myobj = Nothing '****End**** |