Zuko | 14.12.2011 15:49 |
---|---|
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. |
zxz | 14.12.2011 22:35 |
---|---|
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. |
zxz | 15.12.2011 00:59 |
---|---|
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):
|
Zuko | 15.12.2011 12:15 |
---|---|
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 |
zxz | 15.12.2011 12:42 |
---|---|
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. |
Zuko | 16.12.2011 14:55 |
---|---|
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] |
Zuko | 16.12.2011 15:14 |
---|---|
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):
|