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

• #22166 slashing senior tag slashing #22165

  Új Válasz 2014-06-27 20:14:03 #22166

  Ú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

  

  slashing

  senior tag

  válasz slashing #22165 üzenetére

  tárgytalan google segített:

  Sub ProcessFiles()
  Dim Filename, Pathname As String
  Dim wb As Workbook

  Pathname = ActiveWorkbook.Path & "\Files\"
  Filename = Dir(Pathname & "*.xls")
  Do While Filename <> ""
  Set wb = Workbooks.Open(Pathname & Filename)
  DoWork wb
  wb.Close SaveChanges:=True
  Filename = Dir()
  Loop
  End Sub

  Sub DoWork(wb As Workbook)
  With wb
  'Do your work here
  .Worksheets(1).Range("A1").Value = "Hello World!"
  End With
  End Sub

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