Leitura / Escrita Excel - Salvar sem perguntar

Segue um script utilizado no Cimplicity (GE) que simula a escrita em uma célula e leitura de outra célula com salvamento no fim "sem a pergunta do excel" se você quer sobrescrever o arquivo.

Muito útil para utilizarmos em aplicações conjuntas onde deverá ficar oculto o excel e não ter nenhum tipo de mensagem para atrapalhar.

Sub OnMouseDown(x As Long, y As Long, flags As Long)

dim ExcelApp as object
dim ExcelBook as object
dim SHeet as object

Set ExcelApp = CreateObject("Excel.application")
Set ExcelBook = ExcelApp.Workbooks.Open("c:\Test.xls")

ExcelBook.Sheets("Plan1").Select

'Exibe o conteúdo da célula na posição 2,3

' variavel = xlw.Application.Cells(2, 3).Value
MsgBox ExcelBook.Application.Cells(2, 3).Value

ExcelBook.Application.Cells(2, 3).Value = 8

MsgBox ExcelBook.Application.Cells(2, 3).Value


' Fechar a planilha sem salvar alterações
' Para salvar mude False para True

ExcelBook.Close True

' Liberamos a memória

Set ExcelBook = Nothing
Set ExcelApp = Nothing

End Sub