Экспорт в Excel по шаблону?

MasterWEB

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

MasterWEB

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 ничего не передается.


MasterWEB

> Автор: MasterWEB> Делаю так.. эксель открывается, а данные из text1.text ничего не передается.Странно, а должно, если конечно в текст1 что-то есть ;)Ошибки какие-то есть?З.Ы. objXLApp.SheetsInNewWorkbook = 1 этого делать не нужно при открытии существующей книги, эта настройка для количества листов в создаваемой книге