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"