-
Notifications
You must be signed in to change notification settings - Fork 0
/
CreateExcelFile.vbs
35 lines (24 loc) · 821 Bytes
/
CreateExcelFile.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'automatically create Microsoft Excel file (.xlsx)
'create excel object
Set objExcel = CreateObject("Excel.Application")
'view excel program and file (set to false to hide process)
objExcel.Visible = True
'add new workbook
Set objWorkbook = objExcel.Workbooks.Add
'set a cell value at row 3 column 5
objExcel.Cells(3,5).Value = "test"
'change a cell value
objExcel.Cells(3,5).Value = "something different"
'delete a cell value
objExcel.Cells(3,5).Value = ""
'get a cell value and set it equal to a variable
r3c5 = objExcel.Cells(3,5).Value
'save the new excel file (make sure to change the location)
objWorkbook.SaveAs "C:\Users\jeffl\Documents\vbsTest.xlsx"
'close workbook
objWorkbook.Close
'exit excel program
objExcel.Quit
'release objects
Set objExcel = Nothing
Set objWorkbook = Nothing