Dim XL As New Excel.Application
Dim wsNewSheet As Worksheet
Private Sub Form_Load()
XL.Workbooks.Open "E:\MyBook.xls"
XL.Visible = True
Set XL = XL.ActiveWorkbook.Sheets.Application
Set wsNewSheet = ActiveWorkbook.Worksheets.Add
wsNewSheet.Name = "12345" 'появляется ещё один лист с именем 12345
End Sub
Как добавить новый лист в XLS-файл из VB?
P.S. Везде только VBA, а вот про работу в Excel'е непосредственно из VB мало информации... :(
Код: