Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Pfad per VBA auslesen lassen
#1
Hallo VBA-Freunde,
ich grüble wieder mal über eine VBA-Lösung:
Ich habe eine Excelmappe, die heißt Collectingsheet.xlsm.

Es soll nun folgendes geschehen:
Der User öffnet eine Excelmappe z.B „2014-05-12 Smartsheet.xlsm“ und bearbeitet diese Mappe. Irgendwo auf dem Rechner ist die Collectingsheet.xlsm gespeichert. nach dem Bearbeiten der geöffneten Mappe soll die Tabelle „Summery“ in die Collectingsheet.xlsm gespeichert werden.

Wenn das in dem gleichen Ordner stattfinden würde, wäre es ja kein Problem den Pfad auslesen zu lassen. Da ich aber keine Möglichkeit habe, den Usern einen Speicherort der „Collectingsheet.xlsm“ vorzuschreiben, die einen machen es auf dem Server, die anderen auf ihrem Laptop, bräuchte ich eine Möglichkeit den Pfad zu der Mappe „Collectingsheet.xlsm“ per VBA in der Mappe „2014-05-12 Smartsheet.xlsm“ einlesen zu lassen, damit ich zum Speichern der Daten die Mappe „Collectingsheet.xlsm“ öffnen kann.

Die User öffnen am Anfang eine Mustermappe "Smartsheet.xlsm" in der das Makro zum Auslesen verankert werden soll. Die Mappe "Smartsheet.xlsm" wird beim beenden dann woanders gespeichert.

Wer weis mir da eine Lösung?

Vielen Dank schon im voraus.
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
to top
#2
Hallo Heinz,
Soll der User beim Pfad definieren die Mappe C.. auch öffnen oder soll die automatisch gefunden werden? Im letzten Fall muss der User beim automatischen Suchen ggf. eine Auswahl treffen, falls es die Datei mehr als ein mal gibt. Bei größeren Datenmengen kann die Suche auch etwas länger dauern.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#3
Hallo Andre,
wir machen es jetzt anders. Beim Speichern des smartsheets wird beim Beenden der Mappe der Speicerpfad
der Mappe in eine zentrale Mappe geschrieben.
Danke
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
to top
#4
Hallo Heinz,

hier mal nur der Vollständigkeit halber ein Ansatz, falls die entsprechende Exceldatei neben weiteren Exceldateien offen ist. Ich habe hier die Namen der Mappen mit dem großgeschriebenen Namen verglichen. Letztendlich weiß man vielleicht nicht, wie die Datei im Einzelfall gespeichert wurde. Test.xls, test.xls, Test.XLS oder wie auch immer.

Code:
Sub MappenPfad()
'Variablendeklarationen
'Workbook
Dim mappen As Workbook
'Schleife ueber alle offenen Mappen
For Each mappen In Workbooks
  'Wenn der grossgeschriebene Name der Mappe TEST.XLS ist, dann
   If UCase(mappen.Name) = "TEST.XLS" Then
   'Pfad der Mappe ausgeben
   MsgBox UCase(mappen.Path)
  'Ende Wenn der grossgeschriebene Name der Mappe TEST.XLS ist, dann
   End If
'Ende Schleife ueber alle offenen Mappen
Next
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Tabelle oder Bereich über "Name" auswählen und anzeigen lassen Bernilli 7 198 30.09.2016, 12:17
Letzter Beitrag: Ego
  Sortieren nach Artikel in einem Pfad ModernPixel 2 125 25.09.2016, 07:33
Letzter Beitrag: schauan
Sad Formelwerte lassen sich nicht ändern Pivo 3 209 20.09.2016, 08:59
Letzter Beitrag: Rabe
  VBA textliste mit Pfad Jürschen175 1 98 18.09.2016, 12:19
Letzter Beitrag: IchBinIch
  Pfad in der Zelle dann öffnen durch Button Jürschen175 8 199 18.09.2016, 11:31
Letzter Beitrag: Jürschen175
Question Farbfelder zählen lassen - #BEZUG! Problem!? Yankee93 14 646 02.09.2016, 08:04
Letzter Beitrag: Yankee93
Question Über bed. Formatierung Geburtstage im Monatskalender anzeigen lassen Lusche800 21 762 01.09.2016, 09:23
Letzter Beitrag: Lusche800
  in buchhaltungsformat 0 anzeigen lassen? Lukaslukas 2 203 18.07.2016, 11:57
Letzter Beitrag: Lukaslukas
  Problem bei "Attachments.Add" Pfad einlesen Bernie 2 192 04.07.2016, 11:36
Letzter Beitrag: Bernie
  atenüberprüfungsfeld beim start mit einer leeren Zeile anzeigen lassen seyan1408 10 559 29.06.2016, 13:06
Letzter Beitrag: seyan1408

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste