Макрос для распределения информации из файла в Word в таблицу Excel, Необходимо выделить определенные значения и поместить их в виде определенной структуры в excel-таблицу
Макрос для распределения информации из файла в Word в таблицу Excel, Необходимо выделить определенные значения и поместить их в виде определенной структуры в excel-таблицу
Sub Экспорт()
SavePath = ""
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = ""
.FilterIndex = 11
If .Show = -1 Then
SavePath = .SelectedItems(1)
End If
End With
If SavePath = "" Then Exit Sub
Dim cell As Range
Open SavePath For Output As #1
For Each cell In ActiveSheet.UsedRange
If Not IsEmpty(cell) Then
Print #1, cell
End If
Next
Close #1
End Sub