Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Pfad und Dateiname ändert sich von selbst

Pfad und Dateiname ändert sich von selbst
30.10.2014 10:48:21
selbst
Hey zusammen,
habe ein sehr merkwürdiges Problem bezüglich des öffnens von Excel-Dateien.
Dim wb As Excel.Workbook
Dim Pfad As String
Dim Datei As String
Dim FullName As String
1.Versuch: (klappt nicht wie gewünscht)
Set wb = Workbook.Open ("C:\Users\Benutzer1\Desktop\hello world.xls")
Pfad = wb.Path 'Pfad bleibt leer
Datei wb.Name 'Fügt von selbst eine Zahl an den Dateinamen
FullName = wb.Fullname 'Enthält nur den Dateinamen
2.Versuch: (klappt nicht wie gewünscht)
Set wb = CreateObject ("ExcelApplication").Workbook.Open("C:\Users\Benutzer1\Desktop\hello world.xls")
Pfad = wb.Path 'Pfad bleibt leer
Datei wb.Name 'Fügt von selbst eine Zahl an den Dateinamen
FullName = wb.Fullname 'Enthält nur den Dateinamen
3.Versuch: (klappt nicht wie gewünscht)
Set wb = GetObject("C:\Users\Benutzer1\Desktop\hello world.xls")
Pfad = wb.Path 'Pfad bleibt leer
Datei wb.Name 'Fügt von selbst eine Zahl an den Dateinamen
FullName = wb.Fullname 'Enthält nur den Dateinamen
4.Versuch: (klappt wie gewünscht, nur ist wb dann kein Workbook Object)
Dim wb As Object
Set wb = CreateObject("FileSystemObject).GetFile("C:\Users\Benutzer1\Desktop\hello world.xls")
Pfad = wb.Path 'Enthält den Pfad
Datei wb.Name 'Enthält den normalen Dateinamen
Kann mir dabei vielleicht jemand bei helfen, woran es liegen könnte, dass das öffnen nicht mithilfe von "Workbook.Open" oder "GetObject" klappt?
Ich habe daher die Vermutung, dass es am Workbook Object liegt, wundert mich jedoch auch, da es sich eigentlich um eine .xls Datei handelt .
Dies geschieht auch nur in ca. 2 Dateien von 1000(daher eigentlich auch verkraftbar, aber dennoch ärgerlich), diese werden einzeln zum lesen geöffnet, um bestimmte Werte daraus zu lesen.
Es handelt sich auch definitiv um eine .xls Datei und diese wird auch von niemand anderem ein zweites mal geöffnet, daher verwundert mich das anfügen einer Zahl an den Dateinamen auch sehr
Gruß
Eichi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad und Dateiname ändert sich von selbst
30.10.2014 11:20:32
selbst
bei mir klappt es.
Option Explicit
Sub offen()
Dim WB As Workbook
Dim Pfad As String
Set WB = Workbooks.Open("F:\Privat\Internet\Homepage\VBA\00_davor.xls")
Pfad = WB.Path 'Pfad bleibt leer
End Sub

Anzeige
AW: Pfad und Dateiname ändert sich von selbst
30.10.2014 11:47:23
selbst
Es funktioniert bei mir ja auch in den aller meisten Dateien.
Jedoch in ganz wenigen nicht, daher habe ich gehofft, dass vielleicht jemand weis, woran soetwas liegen könnte, dass es gerade eben mit workbook.open / workbook-object o.ä. nicht funktioniert, jedoch mit einem filesystemobject

Anzeige
AW: Pfad und Dateiname ändert sich von selbst
30.10.2014 11:56:23
selbst
du vergisst immer da "s" aber das wird schon seinen Grund haben.
Ich kann das nicht prüfen, was wohl daran liegt das ich die Datei nicht sehe.
Gruß Hajo

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige