Excel怎么把数据生成描述性文本,每一行列导出到txt或者word中,需要什么函数公式?

2024-10-30 15:23:28
有3个网友回答
网友(1):

答:公式不易实现,我利用VBA编写了一段代码,实现了将数据导出到D盘中名为"输出结果.txt"的文件中。

按ALT+F11组合键,打开VB窗口,执行"插入"-"模块",复制下面代码进去,在所示工作表为活动工作表的情况下,按F5运行程序即得到结果。

Sub demo()
    Dim Cell As Range
    Dim CurRow As Range
    Dim i As Long, j As Long
    Dim TempStr As String
    Open "D:\" & "输出结果.txt" For Output As #1
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Not IsEmpty(Cells(i, "A")) Then
            Print #1, Cells(i, "A") & ",";
            Set CurRow = Range("B" & i & ":T" & i).SpecialCells(xlCellTypeVisible)
            For Each Cell In CurRow
                If Not IsEmpty(Cell) Then
                    If InStr(1, Cells(1, Cell.Column), "(") > 0 Then
                        TempStr = TempStr & Split(Cells(1, Cell.Column), "(")(0) & Cell.Text & Replace(Split(Cells(1, Cell.Column), "(")(1), ")", "") & ","
                    Else
                        TempStr = TempStr & Cells(1, Cell.Column) & Cell.Text & ","
                    End If
                End If
            Next
            TempStr = Left(TempStr, Len(TempStr) - 1) & ";"
            Print #1, TempStr
        End If
    Next
    Close #1
    MsgBox "导出完成!"
End Sub

网友(2):

Word与Excel表联合使用。
使用word做一个模板,通过邮件合并功能,获取Excel表的相应数据。

网友(3):

你好可以使用邮件合并的方法来做。