下面是一个使用ADODB从已关闭的工作簿导入数据的示例代码:
Sub ImportDataFromClosedWorkbook()
Dim conn As Object
Dim rs As Object
Dim strConn As String
Dim strSQL As String
Dim strFilePath As String
Dim strSheetName As String
' 设置要导入的文件路径和工作表名称
strFilePath = "C:\Path\To\Workbook.xlsx"
strSheetName = "Sheet1"
' 创建连接对象
Set conn = CreateObject("ADODB.Connection")
' 设置连接字符串
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFilePath & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
' 打开连接
conn.Open strConn
' 创建记录集对象
Set rs = CreateObject("ADODB.Recordset")
' 构建SQL查询语句
strSQL = "SELECT * FROM [" & strSheetName & "$]"
' 执行查询
rs.Open strSQL, conn
' 将查询结果导入到当前工作表的A1单元格开始的位置
Sheet1.Range("A1").CopyFromRecordset rs
' 关闭记录集和连接
rs.Close
conn.Close
' 释放对象变量
Set rs = Nothing
Set conn = Nothing
MsgBox "数据已成功导入。"
End Sub
你需要根据自己的实际情况修改strFilePath
和strSheetName
变量的值。此代码将从指定的已关闭工作簿路径中的指定工作表中导入数据到当前工作表的A1单元格开始的位置。请根据需要调整目标位置。
上一篇:按照共享属性值合并对象数组
下一篇:按照工作表名称排序