Доброй ночи!
Есть рабочий макрос, выгружающий данные в txt-файл:
Подскажите, как его модифицировать, чтобы появилась возможность разделения выгрузки данных, по отдельным файлам, прописанных с дополнительном столбце пути файла и его имени?
Есть рабочий макрос, выгружающий данные в txt-файл:
Код |
---|
Sub WriteSERVICE(control As IRibbonControl) Dim rowsDict As Object, wsUnload As Worksheet Dim s As String, ss As String, j As Long, n As Long Set wsUnload = ActiveSheet Set rowsDict = CreateObject("Scripting.Dictionary") If wsUnload.Cells(wsUnload.Rows.Count, 7).Value <> "" Then n = wsUnload.Rows.Count Else n = wsUnload.Cells(wsUnload.Rows.Count, 7).End(xlUp).Row For j = 5 To n If Not rowsDict.Exists(wsUnload.Cells(j, 4).Value) Then rowsDict.Add wsUnload.Cells(j, 4).Value, wsUnload.Cells(j, 4).Value s = s & "[InstanceData]" & vbCrLf & "SERVICE=" & wsUnload.Cells(j, 4).Value & vbCrLf & vbCrLf End If Next j ss = ThisWorkbook.Path & Application.PathSeparator & Cells(3, 2) & "_" & Format(Now, "dd-mm-yy-hh-mm-ss") & "_SERVICE" & ".txt" Open ss For Output As #1 Print #1, s Close #1 MsgBox "Файл сформирован: " & ss, 64, "Excel" End Sub |