宏EXCEL代码 Sub Macro1() Dim cnn As New ADODB.Connection Dim mydata As String, myTable As String, SQL As String mydata = "TEST" myTable = "Table1&q