Здравствуйте. У меня не получается выполнить следующую операцию. Необходимо сохранить фиксированные области на одном листе в файлы формате текст (.txt) с кодировкой ansi с указанным в примере расширением (.obl). Сохраняемые файлы должны находиться во вложенной папке с наименованием «Раскрой» вне зависимости от вложенности файла источника. Имена сохраняемых файлов необходимо задавать из ячейки над сохраняемой таблицей (зелённая заливка). Вариант сохранения файлов с кодировкой на юникод. На данном листе Excel необходимо выполнить кнопку запуска макроса выполняющего создание и сохранение файлов.
Здравствуйте. У меня не получается выполнить следующую операцию. Необходимо сохранить фиксированные области на одном листе в файлы формате текст (.txt) с кодировкой ansi с указанным в примере расширением (.obl). Сохраняемые файлы должны находиться во вложенной папке с наименованием «Раскрой» вне зависимости от вложенности файла источника. Имена сохраняемых файлов необходимо задавать из ячейки над сохраняемой таблицей (зелённая заливка). Вариант сохранения файлов с кодировкой на юникод. На данном листе Excel необходимо выполнить кнопку запуска макроса выполняющего создание и сохранение файлов.A8208
Sub ExportFromRangeToTxt(rng As Range, txtFileName As String) Dim NumRows As Long, NumCols As Integer Dim r As Long, c As Integer, Data As String
With rng NumCols = .Columns.Count NumRows = .Rows.Count
Open txtFileName For Output As #1 For r = 1 To NumRows For c = 1 To NumCols Data = Data & .Cells(r, c).Value If c < NumCols Then Data = Data & vbTab Else If r < NumRows Then Data = Data & vbNewLine End If Next c Next r Print #1, Data; Close #1 End With End Sub
[/vba]
[vba]
Код
Sub ExportFromRangeToTxt(rng As Range, txtFileName As String) Dim NumRows As Long, NumCols As Integer Dim r As Long, c As Integer, Data As String
With rng NumCols = .Columns.Count NumRows = .Rows.Count
Open txtFileName For Output As #1 For r = 1 To NumRows For c = 1 To NumCols Data = Data & .Cells(r, c).Value If c < NumCols Then Data = Data & vbTab Else If r < NumRows Then Data = Data & vbNewLine End If Next c Next r Print #1, Data; Close #1 End With End Sub
Добрый день. У меня в принципе похожая задача - есть xls файл в котором на 10-15 листах есть данные в табличной форме (в примере всего два листа сделал), необходимо с помощью макроса переконвертировать данные в формат txt (в кодировке СР1251) по приложенному образцу, для последующего импортирования его в другое ПО.
Добрый день. У меня в принципе похожая задача - есть xls файл в котором на 10-15 листах есть данные в табличной форме (в примере всего два листа сделал), необходимо с помощью макроса переконвертировать данные в формат txt (в кодировке СР1251) по приложенному образцу, для последующего импортирования его в другое ПО.Wizzards07