我已将excel与mssql 2008数据库连接,现在数据已填入excel但不是表.我想在数据加载时自动创建一个表.我使用过
其中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.
Run Code Online (Sandbox Code Playgroud)
要将数据放入表中,但它不显示任何范围对话框,就像我使用GUI创建表一样.如何显示这样的对话框?
我想允许用户选择可能在不同工作簿中的范围.
我试图用inputbox("",type:= 8)来做这个,它可以在工作簿中选择数据,但拒绝允许我在不同的工作簿中选择一个范围.
因此,我想要一个允许我执行此任务的对话框.
这不是usedrange问题.
例如,在Excel中,用户使用鼠标选择范围(可能为空),例如B4:C12
并且假设在此之后没有取消选择范围用户按下宏,宏应该告诉B4:C12.
有人能举例吗?
宏应该是以下几点:
Sub showrng()
MsgBox SelectedRange.Address(ReferenceStyle:=xlA1)
End Sub
Run Code Online (Sandbox Code Playgroud)