Compatibilidade excel 2003 e 2007
Enviado: Sex Set 30, 2011 7:42 am
Bom dia
Estou a fazer um botão de comando no excel via VBA, que tem como função abrir um ficheiro de excel.
Este botão é feito em excel 2007 mas com extensão xls(Livro de excel 97-2003 compatibilidade)
O ficheiro onde funciona o botão é para ser utilizado num servidor, mas o que acontece é o seguinte:
Na maquina de cliente com excel 2007 não há problema funciona na perfeição, mas na máquina de cliente com excel 2003 não funciona dá um erro "1004" diz que a Workbooks.open falha.
Já abri esse ficheiro (com o botão) no c:\ numa máquina de cliente e funciona, mas através do servidor não funciona.
Será que o problema está na versão ou seja no 2003 a Reference VBAProject - Microsoft Office 11.0 Object Library e no 2007
tem Microsoft Office 12.0 Object Library.
A minha pergunta é:
Existe algum código para seleccionar este problema
O código que estou a utilizar é este:
Private Sub CommandButton1_Click()
MsgBox "Acertou em " & " " & [c5] & " " & "respostas", vbInformation, "Correcção do teste"
If [c5].Value >= 22 Then
MsgBox "Passou á 2ª parte do teste", vbInformation, "Teste de Compreensão da Língua Escrita - Parte 2"
Application.Workbooks.Open fileName:= _
"http://nome do servidor/nome da pasta/nome do livro.xls"
Else
MsgBox ("Volta a fazer o teste"), vbCritical, "Correcção do teste"
End If
End Sub
Desde já muito obrigada
Estou a fazer um botão de comando no excel via VBA, que tem como função abrir um ficheiro de excel.
Este botão é feito em excel 2007 mas com extensão xls(Livro de excel 97-2003 compatibilidade)
O ficheiro onde funciona o botão é para ser utilizado num servidor, mas o que acontece é o seguinte:
Na maquina de cliente com excel 2007 não há problema funciona na perfeição, mas na máquina de cliente com excel 2003 não funciona dá um erro "1004" diz que a Workbooks.open falha.
Já abri esse ficheiro (com o botão) no c:\ numa máquina de cliente e funciona, mas através do servidor não funciona.
Será que o problema está na versão ou seja no 2003 a Reference VBAProject - Microsoft Office 11.0 Object Library e no 2007
tem Microsoft Office 12.0 Object Library.
A minha pergunta é:
Existe algum código para seleccionar este problema
O código que estou a utilizar é este:
Private Sub CommandButton1_Click()
MsgBox "Acertou em " & " " & [c5] & " " & "respostas", vbInformation, "Correcção do teste"
If [c5].Value >= 22 Then
MsgBox "Passou á 2ª parte do teste", vbInformation, "Teste de Compreensão da Língua Escrita - Parte 2"
Application.Workbooks.Open fileName:= _
"http://nome do servidor/nome da pasta/nome do livro.xls"
Else
MsgBox ("Volta a fazer o teste"), vbCritical, "Correcção do teste"
End If
End Sub
Desde já muito obrigada