vpess 0 Denunciar mensagem Publicado 12 de Abril de 2010 Boa noite, Estou com um pequeno problema ao exportar uns dados para excel. Acontece que a primeira vez que exporto não dá problemas, se voltar a carregar no botao para exportar dá-me a seguinte mensagem: O código: Private Sub Command8_Click() conexao procura = Trim(CStr(servico.Text)) Dim oApp As Excel.Application Dim oWB As Excel.Workbook 'Create an Excel instalce. Set oApp = New Excel.Application 'Open the desired workbook Set oWB = oApp.Workbooks.Open(FileName:="C:\teste\baixameo.xls") 'Do any modifications to the workbook. SQL = "select * from ot where servico='" + procura + "' ORDER BY servico asc" rs.Open SQL, conn, 1, 3 oApp.Application.Visible = True a = "A" b = "B" c = "C" d = "D" Range(b & 9).FormulaR1C1 = "NÃO" oWB.Application.Quit Set oWB = Nothing oApp.Application.Quit Set oApp = Nothing End Sub Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites