Sub ТЕКСТ ()
Sheets("N").Select
Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
c = ColValue.Column
Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
r = RowValue.Row
Set MyRange = Range("A1", Cells(r, c))
MyRange.Select
p = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=p & "\N.txt", FileFormat:=42
ActiveWorkboos.Close
Workbooks.Open ThisWorkbook.Path & "\Аксел_ДП.xlsm"
Sheets("E").Select
Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
c = ColValue.Column
Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
r = RowValue.Row
Set MyRange = Range("A1", Cells(r, c))
MyRange.Select
p = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=p & "\E.txt", FileFormat:=42
Workbooks.Open ThisWorkbook.Path & "\Аксел_ДП.xlsm"
Sheets("Z").Select
Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
c = ColValue.Column
Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
r = RowValue.Row
Set MyRange = Range("A1", Cells(r, c))
MyRange.Select
p = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=p & "\Z.txt", FileFormat:=42
Workbooks.Open ThisWorkbook.Path & "\Аксел_ДП.xlsm"
End Sub |
