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

• #14801 Delila_1 veterán zhari #14791

  Új Válasz 2012-08-31 16:09:03 #14801

  Ú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 zhari #14791 üzenetére

  A D:\valami\ könyvtárban található *.xls fájlokat nyitja meg, és az indító füzet (ebbe írd be a makrót) lapjai mögé másolja a behívott fájlok aktuális lapját, végül az indító fájlt lementi az eredeti helyére. Ez a fájl NE legyen azonos könyvtárban a behívandókkal.

  Sub Osszevon()
  Const utvonal = "D:\valami\"
  Dim FN As String, WBN As String, lsz As Integer
  
  Application.DisplayAlerts = False
  WBN = ActiveWorkbook.Name
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  lsz = Sheets.Count
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  ActiveSheet.Copy After:=Workbooks(WBN).Sheets(lsz)
  Windows(FN).Activate
  ActiveWindow.Close 'bezárás
  End If
  FN = Dir()
  Loop Until FN = ""
  ActiveWorkbook.Save
  Application.DisplayAlerts = True
  End Sub

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