Folgendes Problem: Grundsätzlich will ich einmal das Laufwerk der Windowsinstallation ermittel das muss ja nicht immer C sein und habe da folgendes Macro:
Function FTPDir()
drvPath = CurDir()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set drv = FSO.GetDrive(FSO.GetDriveName(drvPath))
FTPDir = drv
End Function
Bei der Formeleingabe im Blatt =ftpdir kommt dann z.b. C: heraus jedenfalls immer das Laufwerk wo die Datei gespeichert ist.
Dann habe ich ein Macro wo sich eine Blatt in einen bestimmten Ordner speichern soll das funktioniert zwar ganz gut verzwickt wird es weil ich eigentlich das Laufwerk C dynamisch ändern soll in das LW wo Windows gerade installiert ist zb: LW F
Sub shspcsv()
Sheets("csv").Select
Dim newname As String
newname = "c:Doku-Ftp-Excel\Ziel\" & ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="c:\Doku-Ftp-Excel\Ziel\" & Range("b1").Value & Format(Now, "yymmddhhnn") & ".csv"
ActiveWorkbook.Close False
End Sub
Wäre super wenn mir jemand eine Lösung anbieten könnte.