myexcel代码

myexcel代码Private Sub CommandButton1_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Rec