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

Question

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

where xlWs is excel worksheet

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)