Integrierte Excel-Dialoge

Question

Weiß jemand, wie die import data nennt integrierten Dialog aus einem Makro Excel (VBA)?

Ich habe versucht, Application.Dialogs.Item(...).Show aber ich kann nicht den richtigen Dialog zu finden. Bitte helfen.

Vielen Dank im Voraus.

Answer 1

Die nächstgelegene ich finden kann, um das Dialogsystem ist:

Application.Dialogs(xlDialogImportTextFile).Show

Sie können einen Verweis auf die Befehlsleiste Schaltfläche (zumindest für mich sowohl in 2k3 und 2k7) erhalten über:

Set button = Application.CommandBars.FindControl(ID:=6262)

Aber Aufruf der Execute Methode auf die Taste nicht. Leider scheint die kurze Antwort zu sein, dass es nicht möglich ist.

Sie können Abfragetabellen-Objekte von Hand hinzufügen. Obwohl nicht optimal Weg, könnten Sie Ihre eigene einfache Schnittstelle entwerfen für die Quelldaten auswählen.

Answer 2

Wenn Sie den Objektbrowser auswählen und die Suche nach etwa xlDialogImportTextFile, erhalten Sie eine Liste der möglichen Dialoge erhalten.

EDIT: Vielleicht etwas auf diesen Linien passen würde:

'Allow user to select text file
sf = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If sf <> False Then
    'Open text file
    Workbooks.OpenText sf
End If

Answer 3

Ich glaube nicht, dass es ein VBA äquivalent, weil in einem Fall, dass Sie Daten in ein Arbeitsblatt zurückkehren, während im anderen Fall werden die Daten in einen Re-Cord in Speicher abgelegt.

Diese Flickschusterei soll den Dialog für Sie Pop-up, aber:

SendKeys "%ddd"