Pomoc oko automatizacije u Excel-u

Pomoc oko automatizacije u Excel-u

offline
  • FOX028 
  • Novi MyCity građanin
  • Pridružio: 06 Maj 2010
  • Poruke: 2

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • majaWL 
  • Novi MyCity građanin
  • Pridružio: 05 Jun 2010
  • Poruke: 2

Probaj umesto

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

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

ili jos bolje

ActiveSheet.Range("A1").Value = 25



Ko je trenutno na forumu
 

Ukupno su 832 korisnika na forumu :: 26 registrovanih, 3 sakrivenih i 803 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 9k38, alberto, alex71, blejač, Bosnjo, cuvarkuca, Draganeli, Gheljda, jon istvan, Kiki98TZ, kutija11, LeGrandCharles, matejmatos, mikhailo, Milos82, mnn2, N.e.m.a.nj.a., nikola11, Orc, precan, RD84, shaja1, Slingshot, spot4chulle, Szigetwar, zlaya011