摘要：Read from SQL Server: 1 Sub Read_SQL() 2 3 Dim i As Integer, j As Integer, sht As Worksheet 4 Dim cn As New ADODB.Connection 5 Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表 6 ... 阅读全文

摘要：You can insert a button in the Excel with function below: 1 Sub Excel_To_SQL() '定义过程名称 2 3 Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表 4 D... 阅读全文