Excelの組み込みダイアログ

Question

マクロ（vba）より優れた import data 組み込みダイアログを呼び出す方法を知っている人はいますか？

Application.Dialogs.Item（...）。Show を試しましたが、正しいダイアログが見つかりません。 助けてください。

事前に感謝します。

Answer 1

ダイアログシステムを使用して最も近いものは次のとおりです。

Application.Dialogs(xlDialogImportTextFile).Show

コマンドバーボタンへの参照を取得できます（少なくとも私にとっては2k3と2k7の両方で）：

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

ただし、ボタンの Execute メソッドの呼び出しは失敗します。悲しいことに、短い答えはそれが不可能だと思われる。

QueryTableオブジェクトは手動で追加できます。最適なパスではありませんが、ソースデータを選択するための独自のシンプルなインターフェイスを設計できます。

Answer 2

オブジェクトブラウザを選択して、たとえばxlDialogImportTextFileを検索すると、可能なダイアログのリストが表示されます。

編集： おそらく、これらの行に何かが合うでしょう：

'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

VBAに相当するものはないと思います。1つのケースではデータをワークシートに返し、別のケースではデータはメモリのレコードセットに格納されるためです。

このクラッジはダイアログをポップアップするはずです：

SendKeys "%ddd"