使用VBA将变量和表数据传递到文本文件

Sub WriteVariableToFile()
    Dim filePath As String
    Dim variableValue As String
    
    ' 设置文件路径
    filePath = "C:\path\to\file.txt"
    
    ' 设置变量的值
    variableValue = "Hello, World!"
    
    ' 打开文件以进行写入
    Open filePath For Output As #1
    
    ' 将变量的值写入文件
    Print #1, variableValue
    
    ' 关闭文件
    Close #1
End Sub

Sub WriteTableDataToFile()
    Dim filePath As String
    Dim tableName As String
    Dim rs As Recordset
    
    ' 设置文件路径
    filePath = "C:\path\to\file.txt"
    
    ' 设置表名
    tableName = "TableName"
    
    ' 打开表
    Set rs = CurrentDb.OpenRecordset(tableName)
    
    ' 打开文件以进行写入
    Open filePath For Output As #1
    
    ' 遍历表数据并将其写入文件
    Do Until rs.EOF
        Print #1, rs.Fields("FieldName").Value
        rs.MoveNext
    Loop
    
    ' 关闭文件
    Close #1
    
    ' 关闭记录集
    rs.Close
    Set rs = Nothing
End Sub