Új hozzászólás Aktív témák

• #22905 Delila_1 veterán greenface #22902

  Új Válasz 2014-08-14 09:10:31 #22905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz greenface #22902 üzenetére

  2007-től működik, alatta az FN = Dir(utvonal & "*.xlsx", vbNormal) sorban az xlsx helyett írj xls-t.

  A Const utvonal = "C:\Adatok\Alkönyvtár\" sorba a saját útvonaladat vidd be.

  Az indító fájlodban Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztva a füzetedet Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda kell bemásolnod a lenti makrót.
  A füzetből az Alt+F8-ra megejelő ablakban kiválasztod, és futtatod a makrót.
  A füzetet makróbarátként kell mentened (2007-estől felfelé, alatta sima mentés kell).

  Sub Erteket_Beilleszt()
  Dim FN As String
  Const utvonal = "C:\Adatok\Alkönyvtár\"
  Application.DisplayAlerts = False
  
  ChDir utvonal
  FN = Dir(utvonal & "*.xlsx", vbNormal)
  
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=utvonal & FN
  Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
  Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value
  Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14") = _
  Range("A5, D5, A8, A10, C10, A12, C14").Value
  Sheets("Munka1").Delete
  ActiveWorkbook.Save
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  
  Application.DisplayAlerts = True
  End Sub

Új hozzászólás Aktív témák