- Код: Выделить всё
Private Sub Command1_Click()
Dim objExcel As Excel.ApplicationSet
objExcel = New Excel.Application
objExcel.Visible = True
objExcel.Workbooks.OpenXML App.Path & "\Documents\Be.xls"
objExcel.Sheets("Лист3").Select
objExcel.Workbooks("Be.xls").Sheets("Лист3").Activate
objExcel.Range("A1").Value = "1"
objExcel.Range("A2").Value = "2"
objExcel.Range("A3").Value = "3"
objExcel.Range("A4").Value = "4"
objExcel.Range("B1").Value = "Сидоров"
objExcel.Range("B2").Value = "Петров"
objExcel.Range("B3").Value = "Иванов"
objExcel.Range("B4").Value = "Зайцев"
objExcel.Workbooks("Be.xls").Sheets"Лист3").Sort.SortFields.Clear
objExcel.Workbooks("Be.xls").Sheets("Лист3").Sort.SortFields.Add Key:=Range("B1:B4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With objExcel.Workbooks("Be.xls").Sheets("Лист3").Sort
.SetRange Range("A1:B4")
.Header = xlGuess
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
MsgBox "Продолжить?", vbOKOnly + vbExclamation, "Сообщение"
objExcel.Application.DisplayAlerts = False
objExcel.Application.Quit
objExcel.Application.DisplayAlerts = True
Set objExcel = Nothing
End Sub
При первом выполнении кода все работает отлично, а вот при повторном нажатии на Command1 выдает ошибку. Подскажите причину. Заранее благодарен.
