Excel內置對話框

Question

有沒有人知道如何從宏（vba）中調用import data內置對話框excel？我試過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等價物，因爲在一種情況下，您將數據返回到工作表，而在另一種情況下，數據將放入內存中的記錄集中。

這種雜牌應該彈出對話框，讓你，但是：

SendKeys "%ddd"