Code:
Public Class Form1
Dim objExel As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
objExel = CreateObject("Excel.Application")
objExel.Visible = True
Dim xx As Excel.XlWBATemplate
xx = Excel.XlWBATemplate.xlWBATWorksheet
oWB = objExel.Workbooks.Add(xx) ''Ovde javlja gresku "Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"
oSheet = oWB.ActiveSheet
End Sub
End Class
Public Class Form1
Dim objExel As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
objExel = CreateObject("Excel.Application")
objExel.Visible = True
Dim xx As Excel.XlWBATemplate
xx = Excel.XlWBATemplate.xlWBATWorksheet
oWB = objExel.Workbooks.Add(xx) ''Ovde javlja gresku "Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"
oSheet = oWB.ActiveSheet
End Sub
End Class
Da li neko ima reeeeseeenje???