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

• #21822 lappy őstag zhari #21820

  Új Válasz 2014-05-30 11:57:02 #21822

  Ú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

  

  lappy

  őstag

  válasz zhari #21820 üzenetére

  Szia!
  Az első részre a megoldás:
  Sub Open_My_Files()
  Dim MyFile As String
  MyPath = " M:\Access Files\ "
  MyFile = Dir(MyPath)
  Do While MyFile <> ""
  If MyFile Like "*.xls" Then
  Workbooks.Open MyPath & MyFile
  Sheets(1).Select
  Range("C3") = 6
  ActiveWorkbook.Close True
  End If
  MyFile = Dir
  Loop
  End Sub

  A második részre meg szerintem találsz itt is a fórumon leírást, a kettőt már csak össze kell tenni és kész.

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