Inquiridor
Dúvida - "chamando" um diretório de rede

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 Vitulloquinta-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 Vitulloquarta-feira, 30 de março de 2011 02:12