如何将excel的每一行内容都转化成一个txt文件（vba方法&python方法）

VBA方法：

Sub ExportRowsToTextFiles()
    Dim MyFile As String, i As Integer
    Const FilePath As String = "C:\Users\UserName\Desktop\"
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        MyFile = FilePath & "Row_" & i & ".txt"
        Open MyFile For Output As #1
        Print #1, Join(Application.Transpose(Application.Transpose(ActiveSheet.Cells(i, 1).Resize(1, ActiveSheet.UsedRange.Columns.Count).Value)), vbTab)
        Close #1
    Next i
End Sub

这个宏将当前活动工作表中的每一行转换为一个文本文件，文件名以“Row_”和行号命名，并将文件保存在指定的文件夹中（请将代码中的“FilePath”更改为您想要的文件夹路径）。

Python方法：

import pandas as pd

df = pd.read_excel('example.xlsx') # 打开Excel文件
for i, row in df.iterrows(): # 迭代每一行
    file_name = f"Row_{i+1}.txt" # 生成文件名
    row.to_csv(file_name, sep='\t', index=False, header=False) # 写入文本文件

这段Python代码使用pandas库打开Excel文件，然后迭代每一行。对于每一行，它将行内容写入以行号命名的文本文件中，使用制表符作为分隔符，不包括行和列的索引。