Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

vpess

Problema ao Exportar para Excel

Mensagens Recomendadas

vpess

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:

errodm.jpg

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

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.