Excel'de vba kullanarak aralık seçim iletişim kutusu nasıl oluşturulur?

Question

mssql 2008 veritabanı ile excel'e bağlandım ve şimdi veriler excel'e dolduruldu ama bir tablo değil. veri load.I kullanmış zaman otomatik olarak bir tablo oluşturmak istiyorum xlWs Excel çalışma sayfası olduğunu

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. 

tabloya veri yapmak için ama o kadar her aralığın iletişim göstermez GUI kullanarak tablo oluşturabilirdim. Bu diyalog nasıl görüntülenir?

Answer 1

Sen aralık iletişim inşa gösteremez, ancak böyle bir dizi soran bir iletişim kutusu görüntüleyebilir:

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

Answer 2

Sana bir aralık denetimi ile bir form buid sanırım ama neden olmasın ActiveCell'i hedef aralık olarak mı kullanıyorsunuz?
Sonunda "Tablo şu anda etkin hücrede oluşturulacağını doğrulamak için bir MsgBox ekleyebilirsiniz. Devam etmek için Tamam 'ı veya İptal" (veya benzer bir şey).