Excel에서 vba를 사용하여 범위 선택 대화 상자를 생성하는 방법은 무엇입니까?

Question

나는 mssql 2008 데이터베이스로 엑셀을 연결했고 데이터는 엑셀로 채워지지만 테이블은 아니다. 데이터 load.I 사용한 때 자동으로 테이블을 생성 할 xlWs 엑셀 워크 시트를입니다

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

나는 당신이 범위 제어와 양식을 buid 수도 있겠죠,하지만 왜 단순히 ActiveCell을 대상 범위로 사용 하시겠습니까?
MsgBox를 추가하면 "현재 활성 셀에 테이블이 만들어집니다. 계속하려면 확인을 클릭하거나 취소"(또는 이와 비슷한)를 확인할 수 있습니다.