Покажите плз кто нибудт пример кода для экспорта значений из, например, text1.text, text2.text в эксель шаблон? например в этом шаблоне проставлены буквы a1, b1, c1. Нужно заменить а1 на text1.text, а2 на text2.text и т.д. в шаблоне, есть у кого такое? Может было лучшим будет какой то другой вариант? Спасибо.

Option Explicit
Public objXLApp As Application
Public objWbNewBook As Workbook
Public objSheets As Worksheet

Private Sub Command1_Click()
Set objXLApp = CreateObject("Excel.Application")
objXLApp.SheetsInNewWorkbook = 1
Set objWbNewBook = objXLApp.Workbooks.Open("c:\123.xls")
If objWbNewBook Is Nothing Then Exit Sub
objXLApp.Visible = True
Set objSheets = objWbNewBook.Worksheets(1)
With objSheets
Text1.Text = .Cells(1, 1) ' Прочитать ячейку А1
End With
End Sub

Private Sub Command3_Click()
Set objXLApp = CreateObject("Excel.Application")
objXLApp.SheetsInNewWorkbook = 1
Set objWbNewBook = objXLApp.Workbooks.Open("c:\12345.xls")
If objWbNewBook Is Nothing Then Exit Sub
objXLApp.Visible = True
Set objSheets = objWbNewBook.Worksheets(1)
With objSheets
.Cells(1, 1) = Text1.Text ' Вставит значения в ячейку А1
End With
End Sub


Делаю так.. эксель открывается, а данные из text1.text ничего не передается.