如何在Excel中使用vba生成範圍選擇對話框？

Question

我已經將excel與mssql 2008數據庫連接起來，現在數據填充到excel中，但它不是表格。我想自動創建表時的數據load.I已經使用

其中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以確認「表格將在當前活動的單元格中創建。單擊確定繼續，或取消」（或類似的）。