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

• #5165 Cuci3 tag Cuci3 #5164

  Új Válasz 2009-07-27 18:15:24 #5165

  Ú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

  

  Cuci3

  tag

  válasz Cuci3 #5164 üzenetére

  Mivel ez a hülyeség még mindig nem múlt el, ezért ez lett a kódból (érdekességképpen kiteszem ):

  Sub ell2()
  Const utvonal = "\\Dbinfo\strategia\faktoring elemzés\dfakto - pénzügyi kimutatás\"
  Dim FN, alap, valtozo As String
  Dim i, j As Integer
  
  Application.ScreenUpdating = False
  FN = Dir(utvonal)
  
  Do While FN <> ""
  If FN Like "*.xls" Then
  Workbooks.Open utvonal & FN
  Debug.Print FN
  ActiveWorkbook.Close False
  End If
  FN = Dir
  Loop
  
  Application.ScreenUpdating = True
  
  End Sub

  A kérdésre azonban továbbra is várom a válaszokat.

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