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 2380 korisnika na forumu :: 37 registrovanih, 3 sakrivenih i 2340 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 6018 - dana 19 Dec 2025 13:41

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: alek_bre, Asprilja, Asteker, Automaticar, bojan313, Borx, Butcher, comi_pfc, Deki Duga Devetka, Dimitrije Paunovic, dragoljub11987, DrMrak, g_g, ILGromovnik, Ivan Gajic, Joint Chief, Kozara1, mikhailo, Milo97, narandzasti, nemkea71, opt1, pavle_pzs, Petar888, proton, RED4G-304, sales, Savantije, scimitar19, Shilok, Smiljkovich, starlights, Tastatura ratnik, VonDrobac, Zastava, zubri, Žukov