locked
Dúvida - "chamando" um diretório de rede RRS feed

  • Pergunta

  • Pessoal,

     

    Há algum jeito de o VBA reconhecer a referencia a uma planilha que se encontra em um diretório de Rede? 

     

    Desde já agradeço a ajuda.

    quarta-feira, 16 de março de 2011 13:24

Todas as Respostas

  • Qual o objetivo?

    acho que nao entendi a duvida


    Caio Vitullo
    quinta-feira, 17 de março de 2011 01:38
  • Possuo este código. Porém, quando coloco o caminho de uma pasta de rede (aqui da empresa) no valor da célula PASTA_DADOS, ocorre um erro na aplicação, dizendo que o caminho não é reconhecido.

    Colocando qualquer outro caminho (que não seja um diretório de REDE) no valor da célula PASTA_DADOS, a aplicação é feita sem problemas.

    Então, como fazer para o VBA "aceitar" um caminho de uma pasta de rede?

    Private Sub DestinoDados()
    
     Dim abrirArquivo As Boolean
    
     Dim wb As Workbook
    
     Dim caminhoCompleto As String
    
     Dim ARQUIVO_DADOS As String
    
     Dim PASTA_DADOS As String
    
     abrirArquivo = True
    
     ARQUIVO_DADOS = Range("ARQUIVO_DADOS").Value
    
     PASTA_DADOS = Range("PASTA_DADOS").Value
    
     If ThisWorkbook.Name <> ARQUIVO_DADOS Then
    
     If PASTA_DADOS = vbNullString Or PASTA_DADOS = "" Then
    
     caminhoCompleto = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, vbNullString) & ARQUIVO_DADOS
    
     Else
    
     If Right(PASTA_DADOS, 1) = "\" Then
    
     caminhoCompleto = PASTA_DADOS & ARQUIVO_DADOS
    
     Else
    
     caminhoCompleto = PASTA_DADOS & "\" & ARQUIVO_DADOS
    
     End If
    
     End If
    
     For Each wb In Application.Workbooks
    
     If wb.Name = ARQUIVO_DADOS Then
    
     abrirArquivo = False
    
     Exit For
    
     End If
    
     Next
    
     If abrirArquivo Then
    
     Set wbCadastro = Workbooks.Open(Filename:=caminhoCompleto, ReadOnly:=True)
    
     ActiveWindow.Visible = False
    
     Else
    
     Set wbCadastro = Workbooks(ARQUIVO_DADOS)
    
     End If
    
     Else
    
     Set wbCadastro = ThisWorkbook
    
     End If
    
     Set wsCadastro = wbCadastro.Worksheets(nomePlanilhaCadastro)
    
    End Sub
    

     

    Desde já agradeço

    • Editado F.meyer segunda-feira, 28 de março de 2011 13:45 Texto mais organizado
    quinta-feira, 17 de março de 2011 12:59
  • Alguém pode ajudar nessa?
    segunda-feira, 28 de março de 2011 13:27
  • provavelmente o erro esta na forma como o caminho esta sendo passado.

    tente mudar o nome do servidor para o numero do IP


    Caio Vitullo
    quarta-feira, 30 de março de 2011 02:12