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

• #36927 Pakliman tag csferke #36925

  Új Válasz 2018-01-06 09:57:02 #36927

  Ú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

  

  Pakliman

  tag

  válasz csferke #36925 üzenetére

  Hali!

  Réges-régen nekem is voltak gondjaim ezzel a CHDIR-es dologgal, úgyhogy hanyagolom azóta.
  Ez egyébként is egy "DOS-os" dolog, akkor használd, ha nosztalgiázni van kedved
  Bármit is szeretnél azokkal a mappákkal/fájlokkal, másképp sokkal egyszerűbben meg tudod oldani.
  Pl.: munkafüzet megnyitása a Workbooks.Open-el, mentése a Workbooks.Save/Workbooks.SaveAs-el, "szöveges" fájlok olvasása/írása az Open myFile For Input/Output/Append As #1 módszerrel, vagy a kicsit "bonyolultabb" Scripting.FileSystemObject-el, stb.

  De ha mégis inkább CHDIR, akkor:
  (Hibakereséshez egy kicsit átalakítva a Tied)

  Sub utvonal()
Dim PathName As String

Dim PathFull As String

PathName = Left((ActiveWorkbook.Name), (Len((ActiveWorkbook.Name)) - 5))

PathFull = "g:\Google Drive\TRANSPORT\" & PathName
Debug.Print PathFull
Debug.Print ActiveWorkbook.Path
Debug.Print "Egyezés: " & PathFull = ActiveWorkbook.Path

MsgBox PathName
ChDrive "G"
ChDir PathFull
MsgBox ActiveWorkbook.Path
End Sub

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