VBA提取文件信息，在最后一行数据后添加任何新信息

VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic语言的宏编程语言，用于在Microsoft Office应用程序中自动化任务和定制功能。它可以通过编写脚本来操作和控制Office文档、数据和应用程序。

在VBA中提取文件信息并在最后一行数据后添加新信息可以通过以下步骤实现：

打开VBA编辑器：在Excel中按下Alt + F11，打开Visual Basic for Applications编辑器。
创建新的宏：在VBA编辑器中，选择插入（Insert）-> 模块（Module），创建一个新的模块。
编写VBA代码：在新的模块中编写VBA代码来提取文件信息并添加新信息。以下是一个示例代码：

Sub ExtractFileInfo()
    Dim filePath As String
    Dim fileName As String
    Dim lastRow As Long
    
    ' 获取文件路径和文件名
    filePath = "C:\Path\To\Your\File.xlsx"
    fileName = Dir(filePath)
    
    ' 打开文件
    Workbooks.Open filePath
    
    ' 获取最后一行数据的行号
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 在最后一行数据后添加新信息
    With ActiveSheet
        .Cells(lastRow + 1, 1).Value = "New Information"
    End With
    
    ' 保存并关闭文件
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    ' 清除对象引用
    Set wb = Nothing
End Sub

在上述示例代码中，首先定义了文件路径和文件名，然后使用Workbooks.Open方法打开文件。接下来，使用ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row获取最后一行数据的行号。最后，使用Cells属性在最后一行数据后添加新信息，并使用ActiveWorkbook.Save保存文件，ActiveWorkbook.Close关闭文件。