Microsoft Excel

Herbers Excel/VBA-Archiv

Ordner öffnen | Herbers Excel-Forum


Betrifft: Ordner öffnen von: Andre´
Geschrieben am: 23.10.2008 19:21:26

Hallo alle zusammen,

Ich habe unter C:\Daten\

folgende Ordnerstruktur enthalten (nach Jahr und Monat)

2008_8
2008_9
2008_10

Es ist also immer der aktuelle Monatsordner enthalten.

Wie kann ich mit einem Makro den aktuellen Ordner im Explorer öffnen (also den 2008_10).

Vielen Dank im Voraus!

MFG Andre

  

Betrifft: AW: Ordner öffnen von: chris b.
Geschrieben am: 23.10.2008 19:41:11

Hallo Andre,
habe Dir mal das hier zusammengebaut.
Was hälst du davon ?

Sub oeffnen()
Dim aktj
Dim aktm
Dim oeffne

aktj = Year(Now)
aktm = Month(Now)
oeffne = aktj & "_" & aktm

Shell "Explorer ,C:\Daten\" & oeffne, vbNormalFocus

End Sub




gruß Chris


  

Betrifft: Danke Chris funktioniert auch :-)) von: Andre´
Geschrieben am: 23.10.2008 19:52:26




  

Betrifft: Habs gefunden von: Andre´
Geschrieben am: 23.10.2008 19:50:18


Sub aktuellenOrdner()
  Shell "Explorer ,C:\Daten\" & Year(Date) & "_" & Month(Date), vbNormalFocus
End Sub



MFG Andre


Beiträge aus den Excel-Beispielen zum Thema "Ordner öffnen"