如何在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)