Gravar Dados Em Outro Arquivo Excel

[soadbra]

Olá pessoal, sou novo no forum e já estou precisando da ajuda de vocês, é o seguinte:

Tenho esse código que envia o relatório de saída para outra planilha.

Eu gostaria que esse relatorio fosse enviado para a "PLAN1" do arquivo "C:\CONTROLE DE ESTOQUE.XLS" , tentei fazer isso acrescentando algumas linhas, mas deu erro do tipo : "O arquivo é somente de leitura" ou algo do tipo.

Private Sub cmdExecutar_Click()

Dim CADASTRO(1 To 8)

CADASTRO(1) = UCase(Me.cboCodigo.Text)

CADASTRO(2) = UCase(Me.txtDataSaida.Text)

CADASTRO(3) = UCase(Me.txtLargura.Text)

CADASTRO(4) = UCase(Me.txtComprimento.Text)

CADASTRO(5) = UCase(Me.txtOnda.Text)

CADASTRO(6) = UCase(Me.txtQld.Text)

CADASTRO(7) = UCase(Me.txtQtdChapas.Text)

CADASTRO(8) = UCase(Me.cboCliente.Text)

Dim projetos As Object

Dim l, i

Set projetos = Plan4.Cells(1, 1).CurrentRegion

l = projetos.Rows.Count + 1

For i = 1 To 8

Plan4.Cells(l, i).Value = Trim(CADASTRO(i))

Next i

On Error GoTo Err_Handler

With MeuBD

.OpenRs ("SELECT * FROM [Plan1$] WHERE CÓDIGO=" & CLng(Me.cboCodigo))

lngNovoValor = rs.Fields("QUANTIDADE") - CLng(Me.txtQtdChapas)

strSQLAtualizar = "UPDATE [Plan1$] SET QUANTIDADE=" & lngNovoValor

strSQLAtualizar = strSQLAtualizar & " WHERE CÓDIGO=" & CLng(Me.cboCodigo)

.ExecuteSQL (strSQLAtualizar)

.CloseRS

AtualizarControles "SELECT * FROM [Plan1$] WHERE CÓDIGO=" & CLng(Me.cboCodigo)

End With

Msgbox "O ITÊM SELECIONADO FOI ATUALIZADO COM SUCESSO"

CleaUp:

On Error Resume Next

MeuBD.CloseRS

Unload Me

Exit Sub

Err_Handler:

Msgbox Err.Description, vbCritical, Err.Number

Resume CleaUp

End Sub

[Graymalkin]

Até onde me lembro não é possível atualizar tabelas em um arquivo do Excel usando o mecanismo JET. Para tal fim eu aconselharia a utilização de automação do Excel.

Abraços,

Graymalkin

[soadbra]

Mas eu so quero consertar o codigo de tal modo que ele envie os dados do formulario para o arquivo : Controle de estoque.xls .