The snippet of code below writes some data into row A, cols 1-10.
The Excel workbook contains only one sheet which is empty.
After running the code, I open the workbook with excell BUT the workbook
is hidden and I first have to UNHIDE the damn thing. How do I fix it?
Any help will be most appreciated.
Franz
Private Sub Command3_Click()
Dim appXLS As New Excel.Application
Dim wbk As Excel.Workbook
Dim wks As Worksheet
Dim row As Long, col As Long, j As Long
Set wbk = GetObject("c:\web\cgi-src\loader\vb_sample.xls")
Set wks = wbk.Sheets(1)
col = 1
For row = 1 To 10
wks.Cells(row, col).Value = row * 10
Next
wbk.Save
MsgBox "Done"
End
End Sub
--
_________________________________
Franz Dullaart (021) 650 3053
http://www.*-*-*.com/
_________________________________
Snoepie oor sy inkleurboek:
"Ek maak altyd die lug blou"