VBA Excel从已关闭的文件中获取工作簿对象或通过工作表索引引用Excel SQL表

基础概念

VBA（Visual Basic for Applications）是Microsoft Office软件中的编程语言，用于自动化和扩展Office应用程序的功能。Excel中的VBA允许用户编写宏和自定义函数来处理数据和操作Excel文件。

类型

VBA可以用于操作Excel的不同对象，包括工作簿（Workbook）、工作表（Worksheet）、单元格（Range）等。

应用场景

数据处理和分析
自动化报告生成
创建自定义函数和工具
自动化Excel的用户界面

从已关闭的文件中获取工作簿对象

通常情况下，VBA无法直接从已关闭的Excel文件中获取工作簿对象。因为工作簿对象是与打开的文件相关联的，一旦文件关闭，相关的对象就会失效。

解决方法

重新打开文件：在VBA代码中重新打开文件，然后操作工作簿对象。
使用ADODB连接：通过ADODB（ActiveX Data Objects Database）连接到Excel文件，读取数据。

Dim conn As Object
Dim rs As Object
Dim filePath As String

filePath = "C:\path\to\your\file.xlsx"

Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties='Excel 12.0;HDR=YES;'"

Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM [Sheet1$]", conn

' 处理数据...

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

通过工作表索引引用Excel SQL表

在VBA中，可以通过工作表索引来引用特定的工作表，并执行SQL查询。

示例代码

Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim conn As Object
Dim rs As Object

Set xlApp = New Excel.Application
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\file.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets(1) ' 通过索引引用工作表

' 获取数据范围
Set xlRange = xlWorksheet.Range("A1:D100")

' 创建ADODB连接
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & xlWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES;'"

' 执行SQL查询
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM [" & xlWorksheet.Name & "$A1:D100]", conn

' 处理数据...

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

xlWorkbook.Close SaveChanges:=False
Set xlWorkbook = Nothing
Set xlWorksheet = Nothing
Set xlApp = Nothing