1. ws.Range("A1").Value
2. ws.Cells(x,y)
Another important thing is you need to add Microsoft Excel 12.0 Object Library from References.
Here is the code. This created a file named mytest.xls under C:\.
Code: Select all
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim var As Variant
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Add ' Create a new WorkBook
Set ws = wb.Worksheets("Sheet1") 'Specify your worksheet name
wb.BuiltinDocumentProperties("Author").Value = "Neo" 'Author
wb.BuiltinDocumentProperties("Company").Value = "ROBOT.LK" 'Company
' Two techniques to set values
ws.Range("A1").Value = "ROBOT"
ws.Cells(1, 2).Value = "LK"
wb.SaveAs ("c:\mytest.xls")
wb.Close
xlApp.Quit
Set ws = Nothing
Set wb = Nothing
Set xlApp = Nothing
End Sub