Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveWorkbook.Path ohne Tilde

Forumthread: ActiveWorkbook.Path ohne Tilde

ActiveWorkbook.Path ohne Tilde
02.04.2009 08:33:37
smi
Hallo,
ich habe folgendes Problem: Ich lese mit strPfad = ActiveWorkbook.Path den Pfad einer geöffneten Datei aus. Als Ergebnis bekomme ich angegeben:
"Q:\PRODUK~1" anstelle von "Q:\Produktiv"
Kann ich verhindern, dass mit der Pfad mit Tilde ausgegeben wird oder gibt es eine andere Möglichkeit, den Pfad in der langen Schreibweise zu ermitteln?
Grüße smi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveWorkbook.Path ohne Tilde
02.04.2009 08:53:50
Oberschlumpf
Hi Name?
Das verstehe ich (noch) nicht.
Der verkürzte (Datei/Verzeichnis)name kommt eigtl nur in der MS-DOS-Umgebung zum Einsatz, wenn Datei- oder Verzeichnisname mehr als 8 Zeichen hat. In der Windowswelt (ab Win95) werden längere Namen mit mehr als 8 Zeichen korrekt angezeigt. Der "lange" Name ist ja auch eine "Erfindung" von Win95.
Was genau passiert denn in deinem Code?
Zeigst du uns mal (d)eine Bsp-Datei?
Ciao
Thorsten
Anzeige
AW: ActiveWorkbook.Path ohne Tilde
02.04.2009 16:18:45
smi
Hallo,
es ist folgende Situation:
Excel wird von einer anderen Anwendung (eigenes Auswertungsprogramm) aus auf einem Citrix Server gestartet und es wird eine Excel-Datei geöffnet, die in einem für den User nicht sichtbaren Bereich liegt. Sobald die Datei geöffnet wird, lese ich den Pfad mit dem Befehl "strPfad = ActiveWorkbook.Path" aus. Dabei wird mir der verkürzte Verzeichnisname als Ergebnis zurückgegeben.
Den ermittelten Pfad (=strPfad = Q:\PRODUK~1) muss ich zu einem späteren Zeitpunkt mittels VBA verwenden, um ihn mit einem anderen String (dieser enthält dann die Langversion des Pfades = Q:\Produktiv) abgleichen. Diese Prüfung schlägt immer fehl, da die Pfadbezeichnungen nie übereinstimmen.
Kommst Du mit diesen Angaben weiter?
Grüße Stefan
Anzeige
AW: ActiveWorkbook.Path ohne Tilde
02.04.2009 19:04:27
Oberschlumpf
Hi Stefan
Mit Citrix kenne ich mich leider nicht aus.
Aber wenn du die Langversion des Verzeichnisnamens ja eh kennst (anderer String enthält Langversion), kann dann eine Teilstringprüfung helfen?
Was ich meine...
...im Moment scheinst du ja so zu prüfen:
If gefundener String (Kurzversion) = bekannte Langversion Then
so funktionierts ja nicht
Aber vielleicht so:
If Instr(Kurzversion, Left(Langversion,8)) > 0 Then
bedeutet...
Wenn die ersten 8 Zeichen aus Langversion in Kurzversion vorhanden, dann ist Prüfung erfolgreich.
Verstanden?
Schau dir weitere Hilfe zu Instr in der Excel-Hilfe an.
Eine andere Idee hab ich leider auch nicht.
Ciao
Thorsten
Anzeige
AW: ActiveWorkbook.Path ohne Tilde
06.04.2009 15:43:55
smi
Hallo Thorsten,
ein guter Tipp, ich werde es ausprobieren.
Nochmals besten Dank für die Hilfe.
Grüße Stefan
;

Forumthreads zu verwandten Themen

activeworkbook.path ... führt zu einem Laufzeitfeh
Peter

Hallo zusammen,
im Zusammenhang mit einer Mappe, die auf einem Netzlaufwerk liegt erhalte ich einen Fehler, der bei einer lokalen Speicherung nicht auftritt.
Wenn die Mappe vom Netzwerklaufwerk geöffnet wird, erscheint zuerst die Info "Geschützte Ansicht ... Bearbeitung aktivieren".
05.12.2011 13:51:43
Thread-ID: 1240679
5 Beiträge
VBA Hyperlink zu ActiveWorkbook versenden
MB12

Hallo zusammen,
diese Makro möchte ich gerne so abändern, dass ich lediglich einen Hyperlink zum ActiveWorkbook versende.
Falls es damit kompliziert würde - vielleicht hat jemand ein ganz anderes Makro?
Private Sub CommandButton5_Click() 'Info an Team ' Excel_Workbook_via_Outlook_...
17.01.2018 08:00:50
Thread-ID: 1602704
3 Beiträge
VBA ActiveWorkbook.SaveAs Problem
Matthias der 2. (hier im Forum)
Hallo zusammen,

habe mir ein kleines Makro geschrieben, welches eine XLS-Datei umformt und auf einen passwortgeschützten FTP-Server ablegen soll.

Folgende Codezeile:

ActiveWorkbook.SaveAs Filename:="ftp://www.ftp-server.de/verzeichnis/datei.csv", FileFormat:=xlCSVMSDOS, Cr...
30.12.2003 10:54:29
Thread-ID: 356931
3 Beiträge
ActiveWorkbook.SaveCopyAs sPath & sFile
Jörg

Hallo,
nach dem ich die Zeile in mein Makro eingefügt habe, überschreibt Excel vorhandene Dateien gleichen Namens ohne Rückfrage beim Speichern. Kann ich dazu eine Dialogbox einbauen und wenn ja wie?
Gruß Jörg
25.09.2006 20:29:16
Thread-ID: 805369
3 Beiträge
ActiveWorkbook.Path Problem
wulfjack

Ich habe folgendes Problem:
Auf einem Intranet-Server befindet sich eine kleine HTML-Datei die zu verschiedenen Excel-Anwendungen verlinkt.
Diese Excel-Anwendungen liegen aber nicht auf dem Intranet-Server (IIS-Server), sondern auf einem anderen, im
Netzwerk befindlichen Server (hi...
26.04.2007 11:47:00
Thread-ID: 865347
4 Beiträge
Anzeige
ActiveWorkbook.Path mit unterschiedlichem Resultat
heinzs

Hallo,
folgender Code wird durch Klick auf einen Button ausgeführt:
'eMail Empfänger und Betreff einlesen
gn_an1 = Sheets("Zeitraum").Cells(4, 2)
gn_an2 = Sheets("Zeitraum").Cells(4, 3)
gn_an3 = Sheets("Zeitraum").Cells(4, 4)
gn_an4 = Sheets("Zeitraum").Cells(4, 5)
...
11.12.2007 17:16:44
Thread-ID: 934068
3 Beiträge
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
Anzeige
ActiveWorkbook.SaveAs
Larissa

Hallo,
jetzt habe ich doch noch eine Frage.
In meinem Makro habe ich die Funktion: ActiveWorkbook.SaveAs 'Name_Datum'
Die Datei wird dann in Eigene Dateien abgespeichert. Wenn an diesem Platz schon eine Datei mit diesem Namen vorliegt, kommt die typische Abfrage, ob die Datei übers...
12.09.2009 17:32:49
Thread-ID: 1102264
3 Beiträge
Anzeige
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
activeworkbook.path ... führt zu einem Laufzeitfeh
Peter

Hallo zusammen,
im Zusammenhang mit einer Mappe, die auf einem Netzlaufwerk liegt erhalte ich einen Fehler, der bei einer lokalen Speicherung nicht auftritt.
Wenn die Mappe vom Netzwerklaufwerk geöffnet wird, erscheint zuerst die Info "Geschützte Ansicht ... Bearbeitung aktivieren".
05.12.2011 13:51:43
Thread-ID: 1240679
5 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige