PDA

Vollständige Version anzeigen : Excel Dok über Schaltfläche öffnen entweder von I oder J.


Lex8
04.07.2014, 14:51
Hi Leute mit einem Word Dok. hab ich das schon hinbekommen siehe Code:

Sub Bestatterliste()
If Dir("I:\Bestatterliste\Verständigungsliste Bestatter.doc") <> "" Then
CreateObject("word.application").Documents.Open("I:\Bestatterliste\Verständigungsliste Bestatter.doc").Application.Visible = True
End If
On Error Resume Next
If Dir("J:\Bestatterliste\Verständigungsliste Bestatter.doc") <> "" Then
CreateObject("word.application").Documents.Open("J:\Bestatterliste\Verständigungsliste Bestatter.doc").Application.Visible = True
End If
End Sub

Jetzt möchte ich dies mit einer Excel liste machen. Mir fehlen aber die Details für application usw.

vill kann mir jemand weiterhelfen.

Weiters möchte ich dies mit einem normalen Ordner im Explorer machen.

vielen dank im voraus

mfg

Lex

Hajo_Zi
04.07.2014, 15:47
Hallo Lex,

wir sind hier ja in einem Excel Forum
Workbooks.Open "J:\Bestatterliste\Verständigungsliste Bestatter.xlsx"

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Lex8
04.07.2014, 15:53
Hallo,

Sub Kräfteübersicht()
If Dir("I:\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersicht\Kräfteübersicht Vorlage.xlsm") <> "" Then
CreateObject("excel.application").Workbooks.Open("I:\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersicht\Kräfteübersicht Vorlage.xlsm").Application.Visible = True
End If
On Error Resume Next
If Dir("J:\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersicht\Kräfteübersicht Vorlage.xlsm") <> "" Then
CreateObject("excel.application").Workbooks.Open("J:\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersicht\Kräfteübersicht Vorlage.xlsm").Application.Visible = True
End If
End Sub




Hat super geklappt vielen dank.

kannst du mir vill. bitte noch mit dem Ordner helfen.

Es sollte der Ordner

"I:\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersicht"
geöffnet werden.
Wenn dieser nicht vorhanden ist dann soll
"J:\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersicht"

geöffnet werden.

danke im voraus

gruß lex

aloys78
04.07.2014, 16:01
Hallo Lex,

eine Möglichkeit:
Sub Bestatterliste()
Const sPfad As String = ":\2014 BLS UNTERLAGEN Öffentlich\2014 Kräfteübersich\Kräfteübersicht Vorlage.xlsm"
If Dir("I" & sPfad) <> "" Then
Workbooks.Open "I" & sPfad
ElseIf Dir("J" & sPfad) <> "" Then
Workbooks.Open "J" & sPfad
End If
End Sub

Gruß
Aloys

Hajo_Zi
04.07.2014, 16:03
Hallo Lex, das machst Du doch schon mit Dir.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Lex8
04.07.2014, 16:14
hi aloys78

dein code funkt auch, vielen Dank.

nun fehlt mir nur noch das mit den Ordnern.

@Hajo_Zi
ja stimmt schon mit Dir, jedoch weis ich so wies beim excel Workbooks.Open

nicht was ich da beim Ordner eingeben muss.
vill. kannst du mir hierbei noch nen code verfassen bitte.

gruß lex

aloys78
05.07.2014, 09:06
Hallo Lex,
dein code funkt auch, vielen Dank.
nun fehlt mir nur noch das mit den Ordnern.
Kannst du mal näher beschreiben, was du da konkret haben möchtest ?

Gruß
Aloys