Вывод строк .csv в ряд текстовых файлов

Question

Как выводить строки .csv в серию отдельных текстовых файлов?

Я видел эту ссылку, и подход должен быть похож .. Outputting Excel rows to a series of text files

Может кто-нибудь помочь мне знать шаги, и если я должен использовать Excel и предложить шаги, чтобы достичь вышеуказанных результатов, как в ссылке или иным образом. Заранее спасибо ...

Answer 1

Предполагая, что вы на самом деле с помощью Excel теперь ...

Во-первых, как я уже говорил в одном из своих комментариев, вы должны начать here, чтобы узнать об использовании Visual Basic для приложений (VBA) по своему усмотрению.

В Excel проще всего активировать вкладку разработчика , чтобы получить доступ к редактору Visual Basic.

1. Перейти к Файл>Опции>Настройка ленты.
2. Проверьте вкладку «Разработчик». Нажмите «ОК».
3. К Разработчик и под секцией Code: Visual Basic. Нажмите эту кнопку, чтобы открыть редактор VBA.

Теперь вы можете создавать субматы VBA. Вы можете поместить их в конкретные листы, книгу в целом или модули в вашем PERSONAL.XLSB, который позволяет любой книге Excel с макросами, позволяющими их запускать.

Возможно, вам потребуется создать модуль. Если это так:

1. Щелкните правой кнопкой мыши на VBAProject (PERSONAL.XLSB).
2. InsertModule
3. Назовите его.

Теперь вы можете вставить код в модуль, и у вас есть «макрос».

Самый простой способ запустить это в

1. Перейти к вкладке Developer.
2. Хит Макросы.
3. Выберите свой макрос.
4. Хит Пробег.

Вы также можете назначить комбинацию клавиш, нажав Options ... в том же 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