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 938 korisnika na forumu :: 18 registrovanih, 0 sakrivenih i 920 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: DejanCG, dragoljub11987, gomago, ILGromovnik, Koridor, lcc, Litostroton, Marko Marković, Mercury, nemkea71, perko91, repac, StepskiVuk, theNedjeljko, vaso1, VJ, zuxbg, Zvrk