使用vb代码遍历Excel的特定单元格并导出

Sub ExportSpecificCells()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim rngData As Object
    Dim cell As Object
    Dim exportData As String
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\file.xlsx")
    
    ' 选择要操作的工作表
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
    
    ' 定义要遍历的单元格范围
    Set rngData = xlWorksheet.Range("A1:A10")
    
    ' 遍历每个单元格并将值存储到字符串中
    For Each cell In rngData
        exportData = exportData & cell.Value & vbCrLf
    Next cell
    
    ' 将导出的数据保存到文本文件
    Open "C:\path\to\your\output.txt" For Output As #1
    Print #1, exportData
    Close #1
    
    ' 关闭Excel应用程序
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    
    ' 释放对象引用
    Set rngData = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub