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 855 korisnika na forumu :: 63 registrovanih, 11 sakrivenih i 781 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: Aleksandar Tomić, aleksmajstor, aleph_one, Antoni S, Apok, ArmFPGA, bakovaca, Bbbggg1979, Belac91, bokicacar, cuvarkuca, cvrle312, dejan.7951, dejno, dj.ape, Djota1, Draganeli, Dukelander, duro1990duro, Electron, esko_hz, Fog of War, goranvas, istokzapad, Ivan Germanovic, ivanb, kinez88, krkalon, larix, LeGrandCharles, loon123, luka1978, medaTT, milenko crazy north, Miler88, miljannis, moldway, MountAndBlade, mrav pesadinac, nisamBot, OKT, Oscar, Paklenica, Prečanin30, Pururin, Radio operater, raptorsi, Semberija, Sirius, Siti2, sspp, stefan95, TheDictator, tm, Tribal, tritonus, ujke, Velizar Laro, Voice1, vuksa72, zdrebac, zokilivac, zoxknez