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):Sub Button1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim Sit As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\temp\BOOK2.XLS") 'Putanja do tog tvog fajla iz kog trebas podatke
'xlApp.Visible = True
xlBook.Sheets(1).Range("A1:C55").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("Sheet2") ' Ime sita u postojecem exelu ili broj moze
Sit.Activate
Range("A1").Select
Sit.Paste
Exit Sub
err:
'napisi nesto sam ako se desi greska
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.