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

• #24491 Delila_1 veterán anonymus89 #24489

  Új Válasz 2014-12-05 06:37:04 #24491

  Ú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 anonymus89 #24489 üzenetére

  A makró a könyvtárból egyenként behívja a másolandó fájlokat, másol a makrót tartalmazó füzetbe, majd bezárja a másoltat mentés nélkül.
  A másolás műveletét az előző hozzászólásban m.zmrzlina bemutatta.

  Sub osszefuzes()
  Const utvonal = "C:\Mappa\Almappa\"
  ChDir utvonal 'Direktor váltás
  FN = Dir(utvonal & "*.xlsx", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  'Fájlok megnyitása
  Workbooks.Open Filename:=utvonal & FN
  
  'ide jön a másolás
  
  ActiveWindow.Close False 'megnyitott fájl bezárása módosítás nélkül
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

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