如何在Excel中使用vba生成范围选择对话框？ [英] How to generate the range selection dialog box using vba in Excel?

问题描述

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

其中xlWs是excel工作表

  Sub CreateTable（ByRef xlWs As Object）
 xlWs.ListObjects.Add（xlSrcRange，，，xlYes）.Name = _ 
Table1
'没有去在2003 
 xlWs.ListObjects（Table1）。TableStyle =TableStyleLight2
 End Subs into excel。 
  

将数据放入表格，但不显示任何范围对话框，如果我会使用GUI创建表。如何显示此对话框？

解决方案

您无法显示内置范围对话框，但可以显示一个要求的对话框一个这样的范围：

  Dim ThisRng As Range 
 Set ThisRng = Application.InputBox（Select a range Get Range，Type：= 8）
  

I have connected excel with mssql 2008 database and now the data is filled into excel but it is not a table. I want to create a table automatically when the data load.I have used

where xlWs is excel worksheet

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.

To make the data into table but it does not display any range dialog as it would do if I would create table using GUI. How to display such dialog?

解决方案

You cannot display the built in range dialog, but you can display a dialog box that asks for a range like this:

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

这篇关于如何在Excel中使用vba生成范围选择对话框？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！