Shulou(Shulou.com)06/01 Report--

Option ExplicitSub Output Data Sheet (strSql As String, Work As String)'Transfer Processing'''''''''''''''''''''''''''''''''''''''''Dim data As New Database Dim cn As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim sht As WorksheetDim i As IntegrDim Lm As IntegrDim h As IntegrSet sht = ThisWorkbook. Worksheets (Work) cn. Open data. SQL database 'circular query to the column name, the number of column name definition cycle. rs. Open strSql, cn 'Execute the SQL command contained in strSQL, the result is saved in rs recordset object i = 0 Lm = rs. Fields. Count' Number of column names definition While i

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.