Set excel = CreateObject("Excel.Application")
excel.Workbooks.Add() ' create blank workbook
Set workbook = excel.Workbooks(1)
' set A1 to be centered.
workbook.Sheets(1).Cells(1,1).HorizontalAlignment = -4108 ' xlCenter constant.
workbook.SaveAs("C:\NewFile.xls")
excel.Quit()
set excel = nothing
'If the script errors, it'll give you an orphaned excel process, so be warned.
Run Code Online (Sandbox Code Playgroud)
将其另存为 .vbs 并使用命令提示符或双击运行它。
归档时间: |
|
查看次数: |
20136 次 |
最近记录: |