Добрый день! Макрос - автозапуск не работает.
Книга Ексель имеет 10 листов
На десятом листе прописан макрос, который должен при изменении на том же листе автоматом записывать новую информацию в блокнот (с первой по 28 строчку):
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
Sub V_Bloknot()
Dim i&, j&, TextLine As String
Open "D:\export.txt" For Output Lock Write As #1
For i = 1 To 28
TextLine = ""
For j = 1 To 4
TextLine = TextLine & Cells(i, j).Value & " "
Next j
Print #1, TextLine
Next i
Close #1
End Sub |
Пытался сделать автозапуск макроса после сохранения, к сожалению тоже не работает, выдает ошибку
Expected End Sub:
Код |
---|
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sub V_Bloknot()
Dim i&, j&, TextLine As String
Open "D:\export.txt" For Output Lock Write As #1
For i = 1 To 28
TextLine = ""
For j = 1 To 4
TextLine = TextLine & Cells(i, j).Value & " "
Next j
Print #1, TextLine
Next i
Close #1
End Sub
End Sub |
также пробовал:
1. В книге пишу:
Код |
---|
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
V_Bloknot
End Sub |
А в листе 10:
Код |
---|
Sub V_Bloknot() Dim i&, j&, TextLine As String
Open "D:\export.txt" For Output Lock Write As #1
For i = 1 To 28
TextLine = ""
For j = 1 To 4
TextLine = TextLine & Cells(i, j).Value & " "
Next j
Print #1, TextLine
Next i
Close #1
End Sub |
Кто знает, помогите с вопросом. Предпочтительнее запускать макрос именно после сохранения.