如何在Excel中使用vba生成范围选择对话框？

Question

我已将excel与mssql 2008数据库连接，现在数据已填入excel，但它不是表格。我想在数据加载时自动创建一个表。我已经使用了

  

其中xlWs是excel工作表

Sub CreateTable(ByRef xlWs As Object)
    xlWs.ListObjects.Add(xlSrcRange, , , xlYes).Name = _
        "Table1"
        'No go in 2003
    xlWs.ListObjects("Table1").TableStyle = "TableStyleLight2"
End Subs into excel.

要将数据放入表中，但它不显示任何范围对话框，就像我使用GUI创建表一样。如何显示这样的对话框？

Answer 1

您无法显示内置范围对话框，但您可以显示一个对话框，要求输出如下范围：

Dim ThisRng As Range
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8)

Answer 2

我猜你可以使用范围控制来建立一个表单，但为什么不简单地使用ActiveCell作为目标范围？
您最终可以添加一个MsgBox来确认“将在当前活动的单元格中创建表。单击”确定“继续，或”取消“（或类似的东西）。