可以通过以下步骤实现:
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
请将上述代码中的文件路径和文件名替换为实际的Excel文件路径和文件名,将"工作表名称"替换为实际的工作表名称。
Dim data As Variant
data = xlWorksheet.Range("A1:B10").Value
上述代码将Excel工作表中A1到B10范围内的数据存储在名为"data"的变量中。可以根据实际需求修改范围。
xlWorkbook.Close SaveChanges:=False
xlApp.Quit
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing
上述代码将关闭Excel文件并释放所有相关的对象。
这样,你就可以在Word VBA中使用Excel函数来检索Excel上的数据了。根据具体的需求,你可以进一步处理这些数据,例如将其插入到Word文档中或进行其他操作。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云