Automatizacije excella

[ Nevena79 @ 26.06.2010. 21:24 ] @

Code:
        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?

Code:
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]}

[ pl4stik @ 26.06.2010. 21:30 ] @

Ma sta puca, napisi koji exception...

[ Nevena79 @ 26.06.2010. 21:41 ] @

Napisala gore. Upao si dok sam ucala hehe.

[ Igor Gajic @ 26.06.2010. 22:01 ] @

http://support.microsoft.com/kb/320369

[ Nevena79 @ 26.06.2010. 22:11 ] @

Aha, e to je to. Hvala na brzom odgooru. Pozdrav!

[ Nevena79 @ 27.06.2010. 10:01 ] @

Mislila sam da cu uspeti resiti problem ali ne ide ma sta pokusala. Naime kada izvrsim izmene koje si mi poslao, otvori se Exell sa sheetom.

Code:
Dim oXL As New Excel.Application()
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRng As Excel.Range

        oXL.Visible = True
        oXL.UserControl = True
        Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
        oXL.Workbooks.Add()
        System.Threading.Thread.CurrentThread.CurrentCulture = oldCI

        oXL.Visible = True
        oSheet = oXL.ActiveSheet

        ' Add table headers going cell by cell.
        oSheet.Cells(1, 1).Value = "First Name"

Ali onda mi ne rade sledece linije:

Code:
oSheet.Cells(1, 1).Value = "First Name"

kao ni

Code:
oSheet.Range("A2", "B6").Value = saNames

[ Shadowed @ 27.06.2010. 13:15 ] @

Ima li neke razlike kada je oXL.Visible false?

[ Nevena79 @ 27.06.2010. 13:34 ] @

Nema. Greska je sledeca:

Code:
Exception from HRESULT: 0x800A03EC