Centar za edukaciju-BiH



#1 14.12.2011 14:49
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
Ponovo imam problem sa preuzimanjem djela podataka iz jedne excel tabele u odgovarajuća polja u drugoj tabeli. meže li se to pisanjem vb-a. Tabela u koju hoću da preuzmem podatke je tepmlet i podaci u njoj se mjenjaju dva puta dnevno (sada copiranjem, i preuređivaljem poslije copiranja). želio bih kada otvorim templat da on pokupi te podatke i smjesti ih u odgovarajuća polja.
Tri dana tražim po helpu kako da preuzmem podatke iz neke tabele ali samo sam našao kako iz otvorene da prebacim podatke u novi sheet u istoj, svi moji pokušaji da uzmem podatke iz druge tabele nisu uspjeli.
Pozdav,

Nedim
↑  ↓

#2 14.12.2011 21:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
Pa zakaci to sto si poceo pa cemo popraviti ako imas.
Ako ne onda cemo od pocetka.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 14.12.2011 23:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
Malo si reko.
valjda ce valjat.
Otvori form tulbar i stavi jedan komandni taster i na on klik ovo.
Mozes staviti i na nesto drugo ako hoces.

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub Button1_Click()
  2. Dim xlApp As Excel.Application
  3. Dim xlBook As Excel.Workbook
  4. Dim Sit As Object
  5.  
  6.  
  7.  
  8.     Set xlApp = CreateObject("Excel.Application")
  9.     Set xlBook = xlApp.Workbooks.Open("C:\temp\BOOK2.XLS") 'Putanja do tog tvog fajla iz kog trebas podatke
  10.    'xlApp.Visible = True
  11.    xlBook.Sheets(1).Range("A1:C55").Copy ' odakle dokle trebas kopirati nadam se iz shhet 1
  12.    xlApp.DisplayAlerts = False
  13.     xlBook.Close
  14.     xlApp.Quit
  15.     Set xlBook = Nothing
  16.     Set xlApp = Nothing
  17. Set xlBook = ActiveWorkbook
  18. Set Sit = xlBook.Sheets("Sheet2") ' Ime sita u postojecem exelu ili broj moze
  19. Sit.Activate
  20. Range("A1").Select
  21.  
  22. Sit.Paste
  23.  
  24. Exit Sub
  25. err:
  26. 'napisi nesto sam ako se desi greska
  27. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 15.12.2011 11:15
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
Ovo je super, RADI bez greške. Hvala puno. Baš što je trebalo
Pozdav,

Nedim
Ovaj post je ureden 1 puta. Posljednja izmjena 15.12.2011 11:16 od strane nzuko. ↑  ↓

#5 15.12.2011 11:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
Ja sam siguran da se tu moze nesto kvalitetnije napraviti dok kazes da uporedjujes podatke ali neznam kako to radi.
Sto nebi racunar uporedjivao podatke on to radi bolje od nas.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 16.12.2011 13:55
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
Evo ja sam joÅ¡ dodao u ovu tvoju proceduru i ovo gdje vrijednosimamijema boju i boldira ih ako su veće od 0, e sad ima jedan mali probrem, a neznam dali tako treba. ova varijabla R kada radi petla pokazuje vrijednosti veće od zadanog renge-a "G58", a kada gledam SHEET uredo su selectovane zadane vrjednosti. Neznam jeli to ok jer kod pozvanja dosta dugo vrti...
Sub Button1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim Sit As Object, celija As Object
Dim brojac As Integer, i As Integer
Dim R As String, slovo As String
Dim a
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\nostro_acc_balances.XLS") 'Putanja do tog tvog fajla iz kog trebas podatke
'xlApp.Visible = True
xlBook.Sheets(1).Range("Q1:T57").Copy ' odakle dokle trebas kopirati nadam se iz shhet 1
xlApp.DisplayAlerts = False
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set xlBook = ActiveWorkbook
Set Sit = xlBook.Sheets("nostro_acc_balances") ' Ime sita u postojecem exelu ili broj moze
Sit.Activate
Range("D2").Select
Sit.Paste
[color=#FF3300]Sit.Range("D2:G58").Activate
For Each celija In Sit.Cells
R = celija.Address
If IsNumeric(celija.Value) = True Or IsEmpty(celija.Value) = True Then
If celija.Value > 0 Then
celija.Font.Bold = True
celija.Font.Color = 255
Else
celija.Font.Bold = False
celija.Font.Color = 0
End If
End If
Next celija
Sit.Range("D2:G58").NumberFormat = "0.00"
End Sub[/code]
Pozdav,

Nedim
Ovaj post je ureden 2 puta. Posljednja izmjena 16.12.2011 14:00 od strane nzuko. ↑  ↓

#7 16.12.2011 14:14
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
evo malo sam ovo prepravio sada mislim da radi ok.

PreuzmiIzvorni kôd (Visual Basic):
  1.  Sit.Range("D2:G58").Activate
  2.     For Each celija In Sit.Cells.Range("D2:G58")
  3.     R = celija.Address
  4.     If IsNumeric(celija.Value) = True Then
  5.     If celija.Value > 0 Then
  6.        celija.Font.Bold = True
  7.        celija.Font.Color = 255
  8.     Else
  9.       celija.Font.Bold = False
  10.       celija.Font.Color = 0
  11.     End If
  12.     End If
  13.     Next celija
  14.     Sit.Range("D2:G58").NumberFormat = "0.00"

Pozdav,

Nedim
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 45 am.