Excel - 使用两列中的文件名和文本生成文本文件

时间:2014-03-26 15:29:01

标签: excel excel-vba text vba

我需要从excel行创建文本文件。 第一列将包含文件名。 第二列的每一行都将包含文件的文本,该文件名在同一列上。 应该在同一个文件夹中创建每个文件(文件夹可以存在之前没有问题)。 有可能,我该怎么做? 谢谢, 利兹

1 个答案:

答案 0 :(得分:1)

使用以下数据:

pic

尝试以下方法:

Sub MakeFiles()
    Dim N As Long, i As Long, st As String
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        Close #1
        st = Cells(i, 1).Text
        Open st For Output As #1
        Print #1, Cells(i, 2).Text
        Close #1
    Next i
End Sub