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

• #5167 Cuci3 tag ArchElf #5166

  Új Válasz 2009-07-29 09:47:57 #5167

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

  Kösz a linket. Megnéztem, de nekem nem ez a gondom. Furcsa mód a második eljárás mindig tökéletesen működik, ezért megnéztem ezt a ChDir parancsot. A Helpben a következő volt:
  "The ChDir statement changes the default directory but not the default drive. For example, if the default drive is C, the following statement changes the default directory on drive D, but C remains the default drive:"

  ChDir "D:\TMP"

  Szóval az elsőt kódrészletet ilyen formára kell átalakítani, ha bárki kezdeni akar vele valamit:

  Sub ell()
  Const utvonal = "\\Dbinfo\strategia\faktoring elemzés\dfakto - pénzügyi kimutatás\"
  Dim FN As String
  
  FN = Dir(utvonal & "*.xls", vbNormal)
  
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open utvonal & FN
  
  ActiveWindow.Close
  End If
  FN = Dir
  Loop Until FN = ""
  
  End Sub

  Végre ezen is túl vagyok.

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