Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
' Start Excel and get Application object.
oXL = CreateObject("Excel.Application")
oXL.Visible = True
' Get a new workbook.
oWB = oXL.Workbooks.Add()
oSheet = oWB.ActiveSheet
Zasto program puca na ovoj liniji?
oWB = oXL.Workbooks.Add()
Kaze Old format or invalid type library
[Ovu poruku je menjao Nevena79 dana 26.06.2010. u 22:39 GMT+1]