Supportnet / Forum / Tabellenkalkulation

Hallo! Ich hätte mal eine Frage. Ich lasse über ein Makro das Dialogfeld Öffnen aufrufen mit: Application.Dialogs(xlDialogOpen).Show "C:\ . . ." Nun habe ich das Problem, das noch dieser Abfrageblock kommt, wie er es öffnen soll. Wenn man einen festen Pfad hat kann man die die Auswahl wie öffnen, per Code anfügen. Siehe hier: Workbooks.OpenText Filename:=aktPfad, Origin:=xlWindows, StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _ False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:= _ False, FieldInfo:=Array(Array(1, 1), Array(2, 1)) Nun die Frage, kann man diese Einstellungen auch dem Dialogfeld Öffnen übergeben, damit die Auswahlbox nicht mehr geöffnet wird. Oder kann man die Auswahlbox einfach ausblenden, da ich die Formatierung der Datei auch noch nach dem öffnen anhängen kann. Wie die Auswahl vorher ist interessiert nicht, da er es mit der Zeile Workbooks.Open Text ... wieder anpasst. Ich hoffe es kann mir wer helfen. Danke schonmal, Dungemond

Hallo Dungemond,

irgendwie stehe ich bei der Wärme heute leicht neben mir. Jedenfalls muss das scheinbar so sein, denn ich habe nun mehrfach Deine Frage durchgelesen und weiß ehrlich nicht, was Du eigentlich für ein Endresultat erwartest. Kannst Du noch mal etwas anders schreiben, was Du möchtest? Wäre sicherlich hilfreich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo!

Vieleicht ists bei mir auch die wärme und habe mich nicht deutlich ausgedrückt :)

Wenn ich ´ Application.Dialogs(xlDialogOpen).Show ´ ausführe wird das Öffnen-Fenster geöffnet. Ich wähle dort eine Datei uns und will diese in meinem Excel öffnen. Es öffnet dieses aber nicht einfach, sonndern es öffnet sich zuerst noch der Textkonvertierungs-Assistent. Dort muss ich dann noch so Sachen wie z.B. Ursprünglicher Datentyp, Datenursprung ... einstellen.
Nun meine Frage, ist es möglich diesen Textkonvertierungs-Assistent zu umgehen oder ihn nicht anzeigen zu lassen?
Ich will einfach nach dem auswählen der Datei im Öffnendialog auf OK klicken und dann nichts mehr einstellen müssen. Also das es einfach dann geöffnet wird.

Ich hoffe ich konnte es nun deutlicher machen.

Ich dank dir schon mal für deine Bemühungen,
Gruß Dungemond

Nabend Dungemond,

sorry, aber die Antwort hast Du doch schon selber in Deiner Frage aufgeführt. Mit dem dem von Dir aufgeführten Code

Workbooks.OpenText Filename:=aktPfad, Origin:=xlWindows, StartRow:=1, _ 
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _ 
False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:= _ 
False, FieldInfo:=Array(Array(1, 1), Array(2, 1)) 

wird doch eine Datei importiert ohne das Dialogfenster zu öffnen. Was funktioniert da nicht, bzw. was soll daran anders werden? Bei anderen Kriterien, zeichne Dir den Code doch mit dem Makrorekorder auf und füge den aufgezeuchneten Code dann in Dein makro ein.

Oder habe ich etwa immer noch nicht verstanden, um was es Dir geht.?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver!

Das der Code Workbooks.OpenText ... die ganzen einstellungen macht, ist mir auch klar, nur leider verhintert er nicht die Öffnung des Textkonvertierungs-Assistent der sich beim Ausführen von Application.Dialogs(xlDialogOpen).Show öffnet.
Was ich dort einstelle ist dann egal, weil es der Code dann wieder berichtigt.
Mein Problem ist nun, das ich verhindern will das sich der Textkonvertierungs-Assistent öffnet.
Er soll einfach nur Öffnen und dann konvertiert werden, ohne das ich noch was einstellen muss.

Ich hoffe du hast eine Idee.

Dank dir nochmal für deine Mühen,
Gruß Dungemond

Hallo Dungemond

wenn ich die von Dir aufgeführte Methode bei mir mal laufen lasse, wird bei mir nichts geöffnet, aúch nicht das Dialogfenster des Asisstenten, sondern es wird die Datei, die in der Variablen "aktPfad" steht importiert. Die Trennung ist das Tabzeichen. Genau das, also dass die Datei ohne Dialogfenster geöffnet wird, wolltest Du doch. Daher weiß ich nicht, wo Dein Problem jetzt liegt.
Welche Excelversion verwendest Du? Um was für ein Dateitypen handelt es sich bei der zu importierenden Datei?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Ok, ich glaube da haben wir grad an ein ander vorbei geredet :)
Es geht mir um Application.Dialogs(xlDialogOpen).Show mit dem andern habe ich kein Problem, das passt alles. Ich speicher dann über aktPfad = Application.ActiveWorkbook.FullName
den Pfad den ich im DialogOpen ausgewählt habe.
Wenn du eine Datei über Application.Dialogs(xlDialogOpen).Show öffnest, kommt dann bei dir kein Textkonvertierungs-Assistent ?

Könntest du mal bitte testen, Danke schonmal.
Gruß Dungemond

PS: ich habe Excel 2003

Hallo Dungemond,

ich glaube, ich habe nun verstanden, was Du möchtest.

Teste das mal mit dem nachfolgenden Makro, was Du in ein StandardModul kopieren müsstest.

Option Explicit

Sub Öfnen()
Dim aktPfad$
aktPfad = Application.GetOpenFilename
If Dir(aktPfad$) <> "" Then
Workbooks.OpenText Filename:=aktPfad, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:= _
False, FieldInfo:=Array(Array(1, 1), Array(2, 1))
End If
End Sub

Mit dem Code wird das Dialogfenster zum Auswählen einer Datei geöffnet. Nach Auswahl wird die Datei importiert, aber ohne den Assistenten anzuzeigen.

Meintest Du das so? Ich hoffe doch. Ansonsten melde Dich wieder.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver!

Genau das war es :)
Vielen Dank.

Hätte aber noch was, ich hatte seither
Application.Dialogs(xlDialogOpen).Show "C:\*Ordner*\*Datei*.txt"

Also eine Vordefinierung des Pfades, bzw der Datei.

Wäre klasse, wenn es da noch eine Einfache Lösung für gäbe. Ist aber auch net ganz so wichtig, die Funktion ist nun hergestellt und das ist wichtiger.

Ich kann nur sagen, klasse Forum und klasse Leute die gerne und sehr gut helfen.

Gruß Dungemond

Hi Dungemond,

dann sieht das Makro folgendermaßen aus:

Option Explicit

Sub Öfnen()
Dim aktPfad$
ChDir "C:\Ordner\"
aktPfad = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If Dir(aktPfad$) <> "" Then
Workbooks.OpenText Filename:=aktPfad, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:= _
False, FieldInfo:=Array(Array(1, 1), Array(2, 1))
End If
End Sub

Bei dem Makro wird automatisch der Inhalt des Verzeichnisses "C:\Ordner" angezeigt und dort dann nur Dateien mit der Endung ".txt".

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver!

Super, vielen Dank.
Wünsche dir noch einen schönen Tag.

Kann es nur nochmal sagen, super Forum, super Leute, kann ich nur weiter empfehlen.

Hi Oliver!

Ich habe nun doch noch ein kleines Problem.

Wenn ich das Makro nun ausführe und er mir das Öffnenfenster auf macht, dann bin ich leider nicht im angegebenen Pfad
ChDir "C:\Ordner\"
sondern im Ordner ´Eigene Dateien´. Wenn ich den Ordner dann mal ausgewählt hatte, merkt er ihn sich.
Aber wie gesagt, bei erststart geht er in ´Eigene Dateien´, als würde er die Zeile ChDir einfach übergehen.

Danke schon mal,
Gruß Dungemond

Hmm, irgendwie hat er es doch gemacht, aber habe nun fest gestellt, das er das garnicht machen soll. Vondemher muss ich es eh wieder raus nehmen.

Danke trozdem,
Gruß Dungemond

• Nerviges Problem beim Öffnen der Festplatte
• Laufwerke lassen sich nicht normal öffnen
• Warum werde nach einschalten des Computersich nicht mehr nach dem Administratorkennwort gefragt?
• Wie kann ich mich unter Windows XP mit Administrator-Kennwort anmelden?