Microsoft Excel

Herbers Excel/VBA-Archiv

Datei endungen | Herbers Excel-Forum


Betrifft: Datei endungen von: Einzel
Geschrieben am: 13.01.2010 22:47:59

Hallo,
Möchte über VBA eine datei öffnen die sich über eine Inputbox zusammensetzt.

a = o & Lesen2 & ".xlsm"
Workbooks.Open a

Nun möchte ich aber weil ich nicht genau weiß ob .xlsm, .xlsx oder. xls die Dateiendung ist, diesen Code
a = o & Lesen2 & ".xlsm" so verändern das er die Endungen mit Oder verknüpft. Doppelte Dateinamen mit Endung z.B. xls und xlsm kommen nicht vor.
Weis jemand wie das geht?
MfG
Stephan

  

Betrifft: AW: Datei endungen von: Ramses
Geschrieben am: 13.01.2010 22:51:16

Hallo

Probier mal

a = o & Lesen2
If Dir(a & ".xls")<>"" then
workbooks.open a
elseif dir(a & ".xlsx" <> Then
workbooks.open a
elseif dir(a & ".xlsm" <> Then
workbooks.open a
end if

Gruss Rainer


  

Betrifft: AW: Datei endungen von: Einzel
Geschrieben am: 13.01.2010 22:55:20

Hmmmm er gibt mir für elseif dir(a & ".xlsx" <> Then und elseif dir(a & ".xlsm" <> Then einen Syntaxfehler.
MfG
Stephan


  

Betrifft: AW: Datei endungen von: Einzel
Geschrieben am: 13.01.2010 23:01:47

Fehler gefunden

a = o & Lesen2
If Dir(a & ".xls") <> "" Then
Workbooks.Open a
ElseIf Dir(a & ".xlsx") <> "" Then
Workbooks.Open a
ElseIf Dir(a & ".xlsm") <> "" Then
Workbooks.Open a
End If

Supi Danke


  

Betrifft: Einfacher von: Josef Ehrensberger
Geschrieben am: 13.01.2010 23:24:40

Hallo Stefan,

noch einfacher.

a = o & Lesen2

If Dir(a & ".xls*") <> "" Then
  Workbooks.Open a
End If

Gruß Sepp



Beiträge aus den Excel-Beispielen zum Thema "Datei endungen "