Dim xlApp As Object
Dim xlWkb As Object
Dim xlsheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlsheet = xlWkb.Sheets( 1 )
xlsheet.Application.Cells( 1 ,  3 ).Value =  100 
xlsheet.Application.Cells( 1 ,  3 ).Value =  200 

Dim xlApp As Object
Dim FNShablon As String
Dim xlWkb As Object
Dim xlsheet1 As Object
Dim xlsheet3 As Object

FNShablon = "C:\SHABLON.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open(FNShablon)
Set xlsheet1 = xlApp.worksheets("Лист1")
Set xlsheet3 = xlApp.worksheets("Лист3")
xlsheet1.Application.Cells( 1 ,  3 ).Value =  100 
xlsheet3.Application.Cells( 2 ,  3 ).Value =  200 

xlsheet1.Application.Cells( 1 ,  3 ).Value =  100 
xlsheet3.Application.Cells( 1 ,  3 ).Value =  200 

xlsheet1.Cells( 1 ,  3 ).Value =  100 
xlsheet3.Cells( 1 ,  3 ).Value =  200