Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad beim Öffnen als Parameter in Variable mitgeben

Pfad beim Öffnen als Parameter in Variable mitgeben
21.11.2019 08:35:04
Meissner
Hallo zusammen,
ich habe mir eine Vorlagendatei in Excel erstellt, die mir eine vorhandene CSV Datei in eine xlsm umwandelt.
Das funktioniert auch perfekt. Gestartet wird diese Umwandlung entweder mit öffnen der Vorlage oder mit einer vbs Datei.
Dabei wird die Vorlage gestartet, mehrere Makros ausgeführt, die neue Datei gepeichert und die Vorlagendatei geschlossen.
Die CSV Datei wird von einem externen Programm erzeugt und in einem Arbeitsverzeichnis abgelegt. Das ist variabel.
z.B B:\Arbeit\Instanz1 , das nächste mal ist es Instanz2 usw.
Jetzt möchte ich diesen Pfad zum importieren der CSV beim Öffnen der Vorlagendatei in einer Variablen zur Verfügung stellen.
Das Makro der Vorlagendatei wird im Workbook_Open() mit call Start (so heißt mein Makro) sofort gestartet und hier brauche ich auch den Pfad dazu.
Ich hoffe Ihr versteht mich und könnt mir einen Tipp geben.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad beim Öffnen als Parameter in Variable mitgeben
21.11.2019 08:42:16
Hajo_Zi
Variable = Application.InputBox("Ordner", "Ordner eingeben", "C:\")

AW: Pfad beim Öffnen als Parameter in Variable mitgeben
21.11.2019 08:56:22
volti
Hallo Meisner,
hier ein erweitertes Beispiel:
Dabei wird der Dateiname in einem (ggf. versteckten) Tabellenblatt abgespeichert, um ihn bei der nächsten Abfrage wieder als Vorschlag zu haben.
Natürlich könntest Du auch ohne Abfrage immer die Nummer des zuletzt abgespeicherten Dateinamens am Dateiende hochzählen.
Private Sub Workbook_Open()
 Dim Dateiname As String
 Dateiname = Sheets("Tabelle1").Range("A$1").Value
 Dateiname = Application.InputBox("Pfad", "Bitte Pfad eingeben", Dateiname)
 If Dateiname <> "" Then
   Sheets("Tabelle1").Range("A$1").Value = Dateiname
   Call Start(Dateiname)
 End If
End Sub
Sub Start(Dateiname As String)
'code.....
End Sub

viele Grüße
Karl-Heinz
Anzeige
AW: Pfad beim Öffnen als Parameter in Variable mitgeben
21.11.2019 14:54:27
Meissner
Hi,
genau das mit der Abrage des Ordners möchte ich automatisieren.
Das externe Programm startet mittels der vbs das Umwandeln, also öffnet die Vorlage.
Da alles automatisch läuft, müsste der Programmaufruf irgendwie so stattfinden:
Entweder über einen CMD-Befehl
c:\.....\Program Files (x86)\Microsoft Office\....\EXCEL.EXE" Vorlage.xlsm .....
Nur so bekomme ich den Pfad zur CSV nicht.
oder über eine vbs starten:
Option Explicit
Dim xlApp , Pfad
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Pfad = "..........\Vorlage.xlsm"
xlApp.Workbooks.Open Pfad
set xlApp = nothing
Nur weiß ich nicht, ob man hier, und wenn ja, dann wie, ein Verzeichnispfad mit einbaut, der dann in Excel beim automatischen Starten zur Verfügung steht.
Vielleicht könnte man eine Variable in der Windowsumgebung erstellen, den Pfad dort reinschreiben und im Makro dann übernehmen. Aber wie das geht ?
Anzeige
AW: Pfad beim Öffnen als Parameter in Variable mitgeben
21.11.2019 18:04:07
volti
Hi,
wenn Du den Pfad von extern per Environ-Variablen aus einer VBS übergeben möchtest und dann auch von dort Excel startest, bietet sich folgendes an:
'In deiner VBS-Datei VBScript
'Set objShell = CreateObject("WScript.Shell")
'Set objEnv = objShell.Environment("USER")
'objEnv("MeinPfad") = "C:\Users"
Sub Workbook_Open()
'Mit Environ-Variablen
  Set objShell = CreateObject("WScript.Shell")
  Set objEnv = objShell.Environment("USER")
  MsgBox objEnv("MeinPfad")
End Sub

Weitere Möglichkeit ist, über eine Inidatei im Temp-Verzeichnis zu arbeiten, wo Du den Pfad reinschreibst und ihn in Excel wieder ausliest.
Stichwort: GetPrivateProfileString
Oder Du übergibst einen weiteren Parameter beim Excelaufruf mit dem Parameter /e
Stichwort zum Googlen: GetCommandLine
viele Grüße
Karl-Heinz
Anzeige
AW: Pfad beim Öffnen als Parameter in Variable mitgeben
22.11.2019 07:29:48
Meissner
Hi Volti,
vielen Dank für Deinen Input, hiermit kann ich etwas anfangen.
Super!
AW: Pfad beim Öffnen als Parameter in Variable mitgeben
22.11.2019 07:57:04
volti
Schön zu lesen.
Viel Erfolg beim weiteren Tüfteln.
Gruß Karl-Heinz

176 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Excel schneidet beim Kopieren alles über 255 ab
Joachim

Hi,
ich möchte eine komplette Tabellen von einer Mappe in die andere kopieren. Dabei werden mir aber alle Zellen, die mehr als 255 Zeichen haben, auf 255 gestuzt.
Excel meint dazu, ich soll alle Zellen , die mehr als 255 haben, einzeln kopieren :-((((
Mache ich was falsch ?
Da...
10.10.2008 10:48:00
Thread-ID: 1015526
17 Beiträge
Anzeige
Kann keine Spalten mehr im Sheet hinzufügen
vux

Hallo,
einfaches Prob. - mein Sheet ist irgendwie von der Spaltenanzahl beschränkt: bin bei Spalte "IV" und kann keine Spalten mehr hinzufügen.
Excel 2003, hab ein Sheet aus SPSS rüberkopiert.
Wie kann ich das fixen? Oder ist Excel in der Tat ab Spalte "IV" zu?
Danke!
08.05.2009 19:12:57
Thread-ID: 1073991
5 Beiträge
Excel-VBA stürzt ab beim Kopieren
Gunther

Hallo!
Ich hoffe, dass Ihr mir bei meinem Problem weiterhelfen könnt.
Ich hatte folgende Aufgabenstellung zu bearbeiten: In einem Verzeichnis befinden sich viele, gleich aufgebautet Excel-Datein. Jede Datei enthält mehrere Blätter die mit Berichten gefüllt sind. Nun soll ein neue Datei...
16.09.2009 11:40:13
Thread-ID: 1103178
9 Beiträge
WAV-Datei einbetten und beim Öffnen abspielen
Martha

Hallo liebe Forumler,
ich möchte eine bestimmte WAV-Datei (kein Standardsound!) so in meine Excel-Datei einbinden, dass Sie beim Öffnen einmalig abgespielt wird.
Dabei soll im VBA-Modul nicht auf eine WAV-Datei in einem Windows-Ordner verwiesen werden, sondern der Wavesound quasi in der...
25.11.2009 15:09:59
Thread-ID: 1119997
8 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
7
16
13
4
8
7
1
2
2
1
1
5
4
1
3
2
9
1
3
7
4
2
8