VBA在不打开工作表的情况下获取数据

可以使用VBA中的ADO对象来获取数据，这种方法不需要打开工作表。

首先需要引用Microsoft ActiveX Data Objects库。在VBA编辑器中，点击菜单栏中的“工具” -> “引用”，勾选“Microsoft ActiveX Data Objects x.x Library”。

接着可以使用以下代码来获取数据：

Sub GetData()
    Dim cn As Object
    Dim rs As Object
    Dim strSql As String
    Dim strConnection As String
    Dim strFilePath As String
    Dim strSheetName As String
    
    '设置数据库连接字符串
    strFilePath = ThisWorkbook.FullName
    strSheetName = "Sheet1"
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFilePath & _
        ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";"
    
    '设置SQL语句
    strSql = "SELECT * FROM [" & strSheetName & "$]"
    
    '创建连接对象和记录集对象
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    '打开连接并执行SQL语句
    cn.Open strConnection
    rs.Open strSql, cn
    
    '将数据填充到工作表中
    Range("A1").CopyFromRecordset rs
    
    '关闭连接和记录集对象
    rs.Close
    cn.Close
    
    Set rs = Nothing
    Set cn = Nothing
End Sub

上述代码中，strFilePath和strSheetName分别表示Excel文件路径和工作表名称，可以根据实际情况进行修改。IMEX=1表示将所有列都作为文本类型进行处理，避免数据类型转换错误。执行完该代码后，数据将会被填充到工作表中。