如何在access中打开文本文件，并将其加载到vba excel中，并将文件路径存储在变量中？

Sub OpenTextFile()
    Dim filePath As String
    Dim excelApp As Object
    Dim excelWorkbook As Object
    
    ' 设置文本文件路径
    filePath = "C:\path\to\your\text\file.txt"
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel应用程序
    excelApp.Visible = True
    
    ' 创建新的工作簿
    Set excelWorkbook = excelApp.Workbooks.Add
    
    ' 导入文本文件到Excel工作簿
    excelWorkbook.Worksheets(1).QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=excelWorkbook.Worksheets(1).Range("A1")).TextFileParseType = xlDelimited
    
    ' 关闭Excel应用程序
    excelApp.Quit
    
    ' 释放对象
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    
    ' 存储文件路径到变量
    Dim filePathVariable As String
    filePathVariable = filePath
End Sub