[es] - Automatizacije excella

Nevena79
???

Član broj: 202308
Poruke: 335
*.adsl-a-1.sezampro.yu.

Sajt: www.tablic-klub.com

+1 Profil

^{26.06.2010. u 21:24 - pre 168 meseci}

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

Odgovor na temu

pl4stik
Senior .NET programmer/Consultant
oDesk
NI na nebu NI na zemlji

Član broj: 173596
Poruke: 715
*.dynamic.isp.telekom.rs.

Sajt: xx-auth.com.azhar.arvixe...

+31 Profil

Re: Automatizacije excella

^{26.06.2010. u 21:30 - pre 168 meseci}

Ma sta puca, napisi koji exception...

To sto nekoliko miliona ljudi tvrdi da nisi u pravu ne znaci da stvarno nisi - Frank Zappa

https://youtu.be/DLe358DPGXU

Odgovor na temu

Nevena79
???

Član broj: 202308
Poruke: 335
*.adsl-a-1.sezampro.yu.

Sajt: www.tablic-klub.com

+1 Profil

Re: Automatizacije excella

^{26.06.2010. u 21:41 - pre 168 meseci}

Napisala gore. Upao si dok sam ucala hehe.

Odgovor na temu

Igor Gajic

Član broj: 93194
Poruke: 747
*.dynamic.isp.telekom.rs.

+987 Profil

Re: Automatizacije excella

^{26.06.2010. u 22:01 - pre 168 meseci}

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

Odgovor na temu

Nevena79
???

Član broj: 202308
Poruke: 335
*.adsl-a-1.sezampro.yu.

Sajt: www.tablic-klub.com

+1 Profil

Re: Automatizacije excella

^{26.06.2010. u 22:11 - pre 168 meseci}

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

Odgovor na temu

Nevena79
???

Član broj: 202308
Poruke: 335
*.adsl-a-6.sezampro.rs.

Sajt: www.tablic-klub.com

+1 Profil

Re: Automatizacije excella

^{27.06.2010. u 10:01 - pre 168 meseci}

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

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: Automatizacije excella

^{27.06.2010. u 13:15 - pre 168 meseci}

Ima li neke razlike kada je oXL.Visible false?

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Nevena79
???

Član broj: 202308
Poruke: 335
*.adsl-a-6.sezampro.rs.

Sajt: www.tablic-klub.com

+1 Profil

Re: Automatizacije excella

^{27.06.2010. u 13:34 - pre 168 meseci}

Nema. Greska je sledeca:

Code:
Exception from HRESULT: 0x800A03EC

Odgovor na temu