Herbers Excel/VBA-Archiv

Pfad und Dateiname ändert sich von selbst

• Pfad und Dateiname ändert sich von selbst von Eichi vom 30.10.2014 10:48:21
• AW: Pfad und Dateiname ändert sich von selbst - von Hajo_Zi am 30.10.2014 11:20:32
  • AW: Pfad und Dateiname ändert sich von selbst - von Eichi am 30.10.2014 11:47:23
    • AW: Pfad und Dateiname ändert sich von selbst - von Hajo_Zi am 30.10.2014 11:56:23

Betrifft: Pfad und Dateiname ändert sich von selbst von: Eichi
Geschrieben am: 30.10.2014 10:48:21

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

Betrifft: AW: Pfad und Dateiname ändert sich von selbst von: Hajo_Zi
Geschrieben am: 30.10.2014 11:20:32

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

Betrifft: AW: Pfad und Dateiname ändert sich von selbst von: Eichi
Geschrieben am: 30.10.2014 11:47:23

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

Betrifft: AW: Pfad und Dateiname ändert sich von selbst von: Hajo_Zi
Geschrieben am: 30.10.2014 11:56:23

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

Beiträge aus den Excel-Beispielen zum Thema "Pfad und Dateiname ändert sich von selbst"