VBA 代码集

  Dim MyMac
    Set MyMac = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each MyMacAddress In MyMac
      If MyMacAddress.IPEnabled = True Then
      MsgBox "本机网卡MAC地址是：" & MyMacAddress.MacAddress
    Exit For
    End If
    Next

    Dim strDate As String, strEntity As String
    strDate = Format(Sheets("sheet1").[b2], "yyyy-MM-dd")  
    strEntity = Sheets("sheet1").[b3]
            
    Dim strSql As String    
    ‘查询语句，
     strSql = "select * from xxxx where ..."
        
     Sheets("sheet1").Range("A7:J65535").ClearContents ‘清除内容
        
     Dim ds1 As ADODB.Recordset
     Set ds1 = runSql(strSql)
     ‘根据查询语句获得数据,并填充至A7
      Worksheets("sheet10").Range("A7").CopyFromRecordset ds1
      Set ds1 = Nothing      

Option Explicit

Public conn As ADODB.Connection
Public Const strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=ts123;Initial Catalog=SQLDB;Data Source=.;Connect Timeout=720; "


Public Function runSql(strSql) As ADODB.Recordset
    Dim ds As ADODB.Recordset
     Set ds = New ADODB.Recordset
     OpenConn          
     ds.Open strSql, conn     
     Set runSql = ds
     CloseConn     
End Function

Public Function OpenConn()
    If conn Is Nothing Then
        Set conn = New ADODB.Connection
    End If
    If conn.State <> 1 Then
        conn.Open strConn
    End If
End Function


Public Function CloseConn()
    If conn.State = 1 Then
        Set conn = Nothing
    End If
End Function