Boa tarde senhores
Tenho um código em vba que testa se uma pasta já existe, se falso: cria ela, se verdadeiro, pula pra próxima etapa.
No meu pc, aonde criei a macro e em mais outros 2 pcs ela funciona. Porém em um dos pcs que ela deveria funcionar ela não funciona. Clico no botão e ela da erro 52: "bad file name or number" e aponta para a parte do texto com fonte maior no código abaixo.
O código pede para depurar e para na linha que está com fonte maior.
Sub Criar_Novo_Amostra()
Dim Ultimalinha As Integer
Const cstrRoot As String = "H:hidrojetdocQualidadeAcompanhamento de Amostras"
'declaração variaveis
Dim Pasta As String
Dim caminhoalert As String
Dim Counter As Long
Dim ano As Integer
Ultimalinha = Range("B65000").End(xlUp).Row + 1
Counter = Ultimalinha
Pasta = Range("A" & Counter).Value
ano = Format(Now, "yyyy")
caminhoalert = cstrRoot & "" & CStr(ano)
'testa se pasta existe
If Len(Dir(caminhoalert, vbDirectory)) = 0 Then
MkDir caminhoalert
End If
caminhoalert = cstrRoot & "" & CStr(ano) & "" & Pasta
MsgBox caminhoalert
If Len(Dir(caminhoalert, vbDirectory)) = 0 Then
MkDir caminhoalert
Alguém já teve um problema parecido ou tem alguma ideia de porque no outro computador não está funcionando?
Postado : 03/07/2014 11:38 am