Potrebna mi je pomoc oko automatizacije Excela

Odgovori Nova tema

3 odgovora
2.906 pregleda

Potrebna mi je pomoc oko automatizacije Excela 06.05.2010. u 13:47 · pre 200 meseci #1

kada iz nekog Excel dokumenta preko VBA cod-a u vec postojeci Excel dokument upisem podatke i sinimim ga, kada ga ponovo otvorim otvara mi se samo aplikacija bez radne povrsine. U VBA sam vec podesio References.

Sub Primer()
Dim objExcel As New Excel.Workbook
Set objExcel = GetObject("C:\Primer.xls")
objExcel.Application.Visible = True

objExcel.Application.Sheets(1).Cells(1, 1) = 25

objExcel.Save
objExcel.Close
End Sub

Potpis

[email protected]=

Re: Potrebna mi je pomoc oko automatizacije Excela 08.05.2010. u 18:23 · pre 200 meseci #2

nije valjda da mi niko ne moze pomoci

Potpis

[email protected]=

Re: Potrebna mi je pomoc oko automatizacije Excela 08.05.2010. u 21:37 · pre 200 meseci #3

Ako hoćeš da pristupiš radnoj svesci preko nove instance Excel-a vidi ovde http://www.ozgrid.com/forum/showthread.php?t=19561

Pošto otvaraš iz Excela logičnije je da koristiš metodu Workbook.Open

Code:
Sub UpisUExcelFajl2()
Dim objExcel As New Excel.Workbook
Set objExcel = Application.Workbooks.Open("C:\Primer2.xls") 'otvaranje Excel fajla

objExcel.Sheets(1).Cells(1, 1) = 25

objExcel.Save
objExcel.Close

End Sub

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: Potrebna mi je pomoc oko automatizacije Excela 08.05.2010. u 22:43 · pre 200 meseci #4

hvala, to je to

Potpis

[email protected]=

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme