将运行库和计算机名称写对后，通过下面这一段代码可以读到所有的变量名并读到到excel中。

strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;" & "Initial Catalog=" & strDatabase & ";" & "Data Source=" & strSQLServer & "\WINCC"'定义连接字符串 

　　strSQL = "SELECT ValueName FROM Archive" 

　　'命令字符串为从Archive表中选中ValueName 

　　Set objConn = CreateObject("ADODB.Connection") 

　　'创建一个数据库连接 

　　objConn.ConnectionString = strConn 

　　objConn.Open 

　　'打开数据库 

　　Set objRecSet = CreateObject("ADODB.Recordset") 

　　'创建一个数据库记录集 

　　With objRecSet 

　　.ActiveConnection = objConn 

　　.Source = strSQL 

　　.Open 

　　End With 

　　Dim K As Integer 

　　K = 0 

　　Do While Not objRecSet.EOF '本例中从1行向下第一列填充位号名称 

　　For Each fielD In objRecSet.Fields 

　　Sheets(1).Cells(1 + K， 1) = fielD.Value 

　　K = K + 1 

　　Next 

　　objRecSet.MoveNext 

　　Loop