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

• #14822 Delila_1 veterán zhari #14807

  Új Válasz 2012-09-05 18:05:09 #14822

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

  Így más a leányzó fekvése.

  Sub Osszevon()
  Const utvonal = "D:\valami\"
  Dim FN As String, WB As Workbook, lsz As Integer
  
  Application.DisplayAlerts = False
  Set WB = ActiveWorkbook
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  lsz = Sheets.Count
  WB.Activate
  ActiveSheet.Copy After:=Workbooks(FN).Sheets(lsz)
  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