Question

How to output .csv rows to a series of seperate text files?

I saw this link, and the approach should be similar.. Outputting Excel rows to a series of text files

Can anyone help me know the steps and if i should use excel and suggest the steps, to achieve the above results as in the link or otherwise. Thanks in advance...

Answer 1

假设您现在正在使用Excel ...

首先，就像我在其中一条评论中所说，你应该开始here来了解如何自己使用Visual Basic for Applications（VBA）。

在Excel中，最简单的方法是激活 Developer 选项卡以访问Visual Basic编辑器。

转到文件＆gt; 选项＆gt; 自定义功能区。
检查开发人员标签。单击“确定”。
转到开发人员，Code部分下是 Visual Basic 。单击此按钮打开VBA编辑器。

现在你可以制作VBA潜艇了。您可以将它们放在特定工作表，整个工作簿或PERSONAL.XLSB中的模块中，这些模块允许任何启用了宏的Excel工作簿来运行它们。

您可能需要创建一个模块。如果是这样的话：

右键点击 VBAProject (PERSONAL.XLSB) 。
Insert＆GT; Module
命名。

您现在可以将代码粘贴到模块中，并且有一个＆＃34;宏＆＃34;。

最简单的方法是

转到开发人员标签。
点击宏。
选择您的宏。
点击运行。

您还可以通过在同一Macros菜单中点击选项... 来指定键盘快捷键。

现在，您可以从here复制并粘贴代码。稍作修改：

Sub Export_Files()
    Dim sExportFolder, sFN
    Dim rTitle As Range
    Dim rContent As Range
    Dim oSh As Worksheet
    Dim oFS As Object
    Dim oTxt As Object

    'sExportFolder = path to the folder you want to export to
    'oSh = The sheet where your data is stored
    sExportFolder = "C:\Disclaimers"
    Set oSh = Sheet1

    Set oFS = CreateObject("Scripting.Filesystemobject")

    For Each rTitle In oSh.UsedRange.Columns("A").Cells
        Set rContent = rTitle.Offset(, 1) & ", " & rTitle.Offset(, 2)   '<--This will put in your Column B and C value. You can delimit with whatever you desire; I used a comma and space.
        'Add .txt to the article name as a file name
        sFN = rTitle.Value & ".txt"
        Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & sFN, 2, True)
        oTxt.Write rContent.Value
        oTxt.Close
    Next
End Sub

Outputting .csv rows to a series of text files

1 个答案: