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

• #22193 Delila_1 veterán slashing #22192

  Új Válasz 2014-06-29 14:56:44 #22193

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

  Próba nélkül az első makró (nálam most éppen bedöglött az Excel).

  Sub ProcessFiles()
  Dim Filename, Pathname As String, WBN As String, WS As String
  Dim wb As Workbook
  Application.ScreenUpdating = False
  
  WBN = ActiveWorkbook.Name
  WS = ActiveSheet.Name
  Pathname = "C:\teszt\" & WS & "\"
  Filename = Dir(Pathname & "*.xlsx")
  Do While Filename <> ""
  Set wb = Workbooks.Open(Pathname & Filename)
  DoWork wb, WBN, WS
  wb.Close SaveChanges:=True
  Filename = Dir()
  Loop
  
  Application.ScreenUpdating = True
  End Sub

  Bármelyik oldalról indítva elméletileg a saját könyvtárából hívja be, és másolja a füzetek adatait.

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