Prikazi cijelu temu 15.12.2011 00:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.