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
