Bosna i Hercegovina



#1 14.12.2011-14:49
nzuko Offline
Clan
Registrovan/a od: 13.09.2010-10:32
Komentari: 371


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,547


Subject: 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.
Pozdrav
↑  ↓

#3 14.12.2011-23:59
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,547


Subject: 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.

DownloadIzvorni kod (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

Pozdrav
↑  ↓

#4 15.12.2011-11:15
nzuko Offline
Clan
Registrovan/a od: 13.09.2010-10:32
Komentari: 371


Subject: 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 komentar je mijenjan 1 puta. zadnja izmjena 15.12.2011-11:16 od strane nzuko. ↑  ↓

#5 15.12.2011-11:42
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,547


Subject: 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.
Pozdrav
↑  ↓

#6 16.12.2011-13:55
nzuko Offline
Clan
Registrovan/a od: 13.09.2010-10:32
Komentari: 371


Subject: 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 komentar je mijenjan 2 puta. zadnja izmjena 16.12.2011-14:00 od strane nzuko. ↑  ↓

#7 16.12.2011-14:14
nzuko Offline
Clan
Registrovan/a od: 13.09.2010-10:32
Komentari: 371


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

DownloadIzvorni kod (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


All times are GMT +01:00. Current time: 22.01.2018-11:15.