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

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

其中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创build表格，就会出现这种情况。 如何显示这样的对话框？

Answer 1

您不能显示内置范围对话框，但是您可以显示一个对话框，要求这样一个范围：

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

Answer 2

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