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 1020 korisnika na forumu :: 36 registrovanih, 7 sakrivenih i 977 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: A.R.Chafee.Jr., amaterSRB, Bobrock1, bokisha253, darionis, dijica, DonRumataEstorski, dule10savic, esx66, Frunze, goxin, Istman, ivan1973, Kubovac, KUZMAR, ladro, Libertas, Lošmi, Marko Marković, MB120mm, Mercury, Mitraljeta, mrvica78, nemkea71, oldtimer, Prašinar, procesor, Sirius, stagezin, vathra, VJ, W123, Webb, x9, yrraf, zlaya011