• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

JTualufo

VBA Exel e internet

2 mensagens neste tópico

Boas, gostaria de saber se há uma forma de criar um botão em VBA, que ao clica-lo envia dados de uma planilha do exel no pc1 (Computador1) para o uma planilha de exel do pc2(Computador2) com se o pc2 fosse servidor ou base de dados central, com vista a sincronizar a informação digitada no sistema...

há uma função do exel 2007 (Connections), tou a tentar investiga-la mas ainda nao descobri como adequa-la as minhas necessidades!!!

peco ajuda amigos  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Option Explicit

Sub Move2ClosedWB()
    Dim strValue As String    'Muda para  Long se for numero
    Const tPath As String = "C:\novapasta\" ' caminho para localização do ficheiro tipo:http://servidor/...
    Dim TargetWB As Workbook    
    Dim wSht   As Worksheet

    Set wSht = ThisWorkbook.ActiveSheet

    On Error GoTo exit_handler
    Application.ScreenUpdating = False   
       Set TargetWB = Workbooks.Open(tPath & "nomedoarquivo.xls") ' aqui terás de mudar para o nome do teu "master"
    wSht.Move Before:=TargetWB.Sheets(1)
    TargetWB.Close SaveChanges:=True
exit_handler:
    Application.ScreenUpdating = True

    Set TargetWB = Nothing
    Set wSht = Nothing
End Sub

Supondo que se trata de uma Intranet e que é possivel editar os ficheiros no servidor.

0

Partilhar esta mensagem


Link 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