Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Thisworkbook.Path (Dateikonvertierung xlsm zu xls)

Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
03.11.2013 20:01:47
Mexsalem
Hallo,
da ich noch Excel 2003 verwende, muss Excel mir eine xlsm-Datei in das Excel 2003-er Format xls konvertieren. Soweit kein Problem dank des Microsoft Office Compatibility Pack für Dateiformate (http://www.microsoft.com/de-de/download/details.aspx?id=3).
Jedoch soll beim Workbook.Open-Ereignis der Pfad der Datei mittels ThisWorkbook.Path ermittelt werden. Wenn die Datei eine xls-Datei ist, funktioniert der Code. Habe ich die Datei als xlsm-Datei gespeichert, wird der Pfad nicht mehr korrekt ermittelt.
Private Sub Workbook.open()
Msgbox ThisWorkbook.Path
End Sub
Weiss jemand, warum der Code in der .xls funktioniert und bei einer .xlsm nicht ?
Gruß
Mexsalem

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
03.11.2013 21:50:17
Matze
Hi,
Workbook.open() gibt es nicht - Tippfehler ?
Private Sub Workbook_Open()'das schon
MsgBox ThisWorkbook.Path
End Sub
Matze
So gute N8 @ all Frühschicht

AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 07:45:48
Mexsalem
Moin Matthias,
selbstverständlich musste das Workbook_open() heissen. Tippfehler meinerseits ...
Frage bleibt daher nochmal offen, da das Problem zwischen xlsm und xls besteht.
Gruß
Mexsalem

AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 13:05:44
Hajo_Zi
nur wenige sehen Deine Datei und können das Problem nachvollziehen.

Anzeige
AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 16:20:17
Mexsalem
Hallo Hajo,
"sehr wenige" :-) , vermutlich keiner ..... also hier mal die Beispieldateien.
Wie gesagt, nutze ich Excel 2003. Das Makro soll aber auch in der xlsm-Datei richtig funktionieren und hier klemmt es lediglich an der korrekten Ermittlung des aktuellen Dateipfades.
https://www.herber.de/bbs/user/87933.xls
https://www.herber.de/bbs/user/87934.xlsm
Gruß
Mexsalem

AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 18:11:04
Hajo_Zi
Ich habe die Datei gespeichert und beim öffnen wird der Ordner angezeigt.
Gruß Hajo

Anzeige
AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 18:26:58
Matze
Hallo,
ich bin kein Profi in Sachen VBA , wenn es nicht funktioniert könnte es an der Tiefe des Pfades liegen.
Teste es mal mit einem einfachen Verzeichnispfad wie c:\Test
Matze

AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 18:33:08
Matze
Hallo,
oder wolltest du den Dateinamen sehen, dann benutze
Thisworkbook.FullName

AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 22:46:21
Mexsalem
Hallo Matthias, Hallo Hajo,
@Hajo : wenn du Excel 2003 mit der xlsx-Datei benutzt hast, müsste bei dir ebenfalls ein anderer Dateipfad angezeigt worden sein als beim Öffnen der xls-Datei. Ist das bei dir auch so aufgetreten, oder bekommst du beides mal tatsächlich denselben Pfad angezeigt ?
@Matthias : ich glaube nicht, dass es an der Tiefe der Pfadstruktur hängt, da diese mit c:\Dokumente und Einstellungen\Benutzer nicht wirklich tief/komplex genug ist. Ich denke eher, das Excel 2003 die xlsx-Datei beim Konvertieren temporär zwischenspeichert (daher auch C:\TEMP). Es ist schon richtig so, ich suche tatsächlich nur den Path, nicht den Fullname.
Ich hatte übrigens in der xlsx-Variante bereits ausprobiert, ein ThisWorkbook.Saved = true bzw. ein ThisWorkbook.Save vor die Ermittlung des ThisWorkbook.Path auszulösen, in der Hoffnung die Speicherung in Excel 2003 ergäbe eine Verbesserung. Pustekuchen, bei der xlsx-Variante bleibt die Rückmeldung C:\TEMP.
Weiss noch jemand Rat bei der harten Nuss ?
Gruß
Mexsalem

Anzeige
AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
04.11.2013 22:52:03
Mexsalem
Korrektur : Angabe "xlsx" muss logischerweise wegen dem Makro "xlsm" lauten.

AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
05.11.2013 08:22:10
Luschi
Hallo Mexsalem,
ich habe das mal mit Excel 2003 & Microsoft Office Compatibility Pack ausprobiert und *.xlsx sowie *.xlsm Dateien eöffnet. Bei mir wird aber mit
Thisworkbook.Path bzw. Thisworkbook.Fullname
der Originalpfad bzw. Originalpfad\Originaldateiname angezeigt.
Außerdem zeigt mit Excel 2003 nur den Dateinamen in der blauen Fensterüberschrift an und nicht den Verzeichnispfad dazu. Auch im Vba-Editor ist nichts von einer Laqufwerk/Pfad-Angabe zu sehen sondern nur der tatsächliche Dateiname.
Benenne doch mal 'C:\Temp\' um und siehe dann, was E_2003 jetzt macht.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
05.11.2013 21:14:39
Mexsalem
Hallo Luschi,
Danke für deine Idee, aber den Ordner umbenennen hat leider auch nicht geholfen.
Ich muss mal schauen, ob ich das Problem irgendwie anders angehen kann (weitere Forensuche, anderer Code oder ähnliches). Ich schließe daher den Thread.
Vielen Dank auch an Matthias und Hajo für ihre Mühe.
Gruß
Mexsalem

14 Forumthreads zu ähnlichen Themen

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
ThisWorkbook.Path
Paul
Hallo,
ich habe Probleme mit einem Makro das ich geschrieben habe. Es erstellt aus meiner Dienstplantabelle heraus eine CSV-Datei. Nun möchte ich das diese Datei im gleichen Ordner wie die Ursprungsdatei gespeichert wird. Da die Dienstplatabelle einige Kollegen nutzen die die Tabelle an untersc...
27.06.2015 10:05:30
Thread-ID: 1433490
10 Beiträge
ThisWorkbook.path mit unterschiedl. Ergebnissen
Peter

Guten Abend
Heute morgen habe ich in einem File mit der Abfrage im Direktbereich
ThisWorkbook.path das Ergebnis, wie etwa
H:\....\Ablage\Temp.xlsx
erhalten.
Nun erhalte ich bei der gleichen Abfrage
\\bezeichnung-abc\....\Ablage\Temp.xlsx
Also ursprünglich den Pfad mi...
26.10.2015 18:01:41
Thread-ID: 1454509
7 Beiträge
Anzeige
Dr. Watson bei ThisWorkbook.Path
Holger
Hallo!

wenn ich versuche einen relativen Pfad zum Aufruf einer Datei im VBA Code mittels act_path = ThisWorkbook.Path zu beschreiben, stürzt Excel ständig ab (NT - Dr. Watson), wahrscheinlich irgendeine Zugriffsverletzung, aber damit kenne ich mich nicht aus.

Gibt es Abhilfe?
16.12.2003 09:51:10
Thread-ID: 352474
6 Beiträge
ThisWorkbook.Path
Juan

Hallo Leute !
Wie kann ich eine Datei ansprechen die in Verzeichnis über ThisWorkbook.Path ist ? Also: Datei AA.xls soll aus Datei BB.xls geöffnet, dabei ist BB.xls in Unterverzeichnis von AA.xls. Direkt kann ich es nicht ansprechen weil Pfad ist nicht immer gleich.
Gruß Juan !
24.05.2004 20:54:50
Thread-ID: 432586
4 Beiträge
ThisWorkbook.Path, Da ist noch der Wurm drin
Steffi

Hallo,
habe ich das Richtig verstanden ?
Etwa so:
Private Sub CommandButton13_Click() 'Felge OpenFile ("D:\Felgenblatt\Felge1.gif") [ALT] End Sub
OpenFile Pfad = ThisWorkbook.Path & "\Felgenblatt\Felge1.gif" [NEU]
Bitte um kurze Rückantwort
Danke Steffi
13.12.2004 21:10:48
Thread-ID: 532450
2 Beiträge
ThisWorkbook.Path mit Unterordner
edie

Hallo Zusammen,
benötige Hilfe für folgendes Problem:
sPath = ThisWorkbook.Path so erweitern damit der Daten-Import
aus dem Unterordner "Planung" statt windet.
Habe probiert: sPath = ThisWorkbook.Path & "\Planung\"
funktioniert nicht. Kann mir jemand helfen?
Hier d...
17.09.2007 21:38:00
Thread-ID: 908148
4 Beiträge
ThisWorkbook.Name / zwei VBA Projekte / XLT
Mattias

Hi zusammen
Ich habe eine Exceltabelle "Vorlage.xls" sowie "Addin.xlt". Die Datei Addin lade ich im Excel über den Add-Ins-Manager ein, die Datei wird also immer geladen sobald ich Excel öffne. Sie enthält eine selber kreierte Symbolleiste u.a. mit einem Button "speichern". Nun möchte ich d...
28.09.2007 16:25:00
Thread-ID: 911544
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
9
6
23
5
3
1
3
4
5
2
5
6