S
segail
Как создать код с учетом что на листе всегда находится кнопка CommandButton5
Клик по кнопе CommandButton1 (данная кнопка находится на форме) если лист Excel чистый, то выполняется какое либо действие. Если лист Excel заполнен данными (шрифт, границы или заливка) то действие не выполняется.(действие я пропишу сам)
Внизу показано то, что мне необходимо. Многоточие поставлено потому что, действие очень длинное, я просто не стал его прописывать.
Что и куда необходимо добавить, что бы данный код работал?
--------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click() <--------------------------------------------------------------------------------Клик по кнопке.
Application.Goto Reference:="_01_Данные" <-------------------------------Выполняется действие если лист чистый.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Program Files\IL vgsm\V ГСМ\V_ГСМ_1_00_IL_09.txt", Destination:=Range("$A$6"))
.Name = "V_ГСМ_1_00_IL_09"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
………………………….
(“Данное действие не выполнимо. Произведите сброс.”) <---------Выходит сообщение если лист имеет данные
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------
Клик по кнопе CommandButton1 (данная кнопка находится на форме) если лист Excel чистый, то выполняется какое либо действие. Если лист Excel заполнен данными (шрифт, границы или заливка) то действие не выполняется.(действие я пропишу сам)
Внизу показано то, что мне необходимо. Многоточие поставлено потому что, действие очень длинное, я просто не стал его прописывать.
Что и куда необходимо добавить, что бы данный код работал?
--------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click() <--------------------------------------------------------------------------------Клик по кнопке.
Application.Goto Reference:="_01_Данные" <-------------------------------Выполняется действие если лист чистый.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Program Files\IL vgsm\V ГСМ\V_ГСМ_1_00_IL_09.txt", Destination:=Range("$A$6"))
.Name = "V_ГСМ_1_00_IL_09"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
………………………….
(“Данное действие не выполнимо. Произведите сброс.”) <---------Выходит сообщение если лист имеет данные
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------