Cách tạo hộp thoại lựa chọn phạm vi bằng cách sử dụng vba trong Excel?

Question

Tôi đã kết nối excel với cơ sở dữ liệu mssql 2008 và bây giờ dữ liệu được điền vào excel nhưng nó không phải là một bảng. Tôi muốn tạo ra một bảng tự động khi load.I dữ liệu đã sử dụng

nơi xlWs là excel bảng

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. 

Để làm cho dữ liệu vào bảng nhưng nó không hiển thị bất kỳ hộp thoại nhiều như nó sẽ làm gì nếu tôi tạo bảng bằng GUI. Làm thế nào để hiển thị hộp thoại như vậy?

Answer 1

Bạn không thể hiển thị được xây dựng trong hộp thoại nhiều, nhưng bạn có thể hiển thị một hộp thoại yêu cầu cho một phạm vi như thế này:

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

Answer 2

Tôi đoán bạn có thể buid một hình thức với một điều khiển tầm xa, nhưng tại sao không chỉ cần sử dụng ActiveCell làm phạm vi đích?
Cuối cùng bạn có thể thêm MsgBox để xác nhận rằng "Bảng sẽ được tạo tại ô hiện đang hoạt động. Nhấp OK để tiếp tục hoặc Huỷ" (hoặc cái gì đó tương tự).