vba中读写excel

在VBA中，你可以使用`OpenTextFile`函数读取Excel文件，`SaveAsTextFile`或`WriteText`函数来写入Excel文件。以下是一些基本操作：

**读取Excel文件（文本模式）[^1]**：

Sub ReadFromExcel()
    Dim filePath As String
    filePath = "C:\path\to\your\file.xlsx"
    
    ' 使用FileOpen打开文件
    Open filePath For Input As #1
    
    ' 读取每一行
    Do Until EOF(1)
        Line Input #1, lineContent
        Debug.Print lineContent ' 这里可以进一步处理读取的数据
    Loop
    
    ' 关闭文件
    Close #1
End Sub

**写入Excel文件（文本模式）**：

Sub WriteToExcel()
    Dim filePath As String
    filePath = "C:\path\to\your\output.txt"
    Dim data As String
    data = "Some data to write"
    
    ' 创建一个新的文本文件
    Open filePath For Output As #1
    
    ' 写入数据
    Print #1, data
    
    ' 关闭文件
    Close #1
End Sub

' 若要将数据写入Excel工作簿，需使用`ActiveWorkbook.Sheets.Add`创建新工作表并用`Range.Value`设置数据