Ir ao conteúdo
  • Cadastre-se

thulio freitas

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. Boa tarde, Desenvolvi uma macro pra auxiliar o uso de uma planilha aqui na empresa, mas ela não roda nos computadores dos outros, mesmo que a planilha esteja salva na rede, no meu roda normalmente e não entendo porque nos outros não. o código é o seguinte: Sub PDFgeral() Dim Nome As String Dim SDate As String Dim MyLocal As String MyLocal = "Y:\Dce\exportaçao\COMERCIAL\REGULATÓRIO\Controle\19. Product Brief\Destino automático PDF\" Nome = Worksheets("Geral").Range("F9").Value SDate = Now If Nome <> vbNullString Then Worksheets("Geral").Range("A1:D584").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo" Else MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo" End If End Sub como disse, no meu computador o arquivo é salvo normalmente, porém quando outros funcionários da área tentam salvar, aparece o seguinte erro: e quando depurado o excel marca a seguinte linha em amarelo: Worksheets("Geral").Range("A1:D584").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Não sei o que pode estar ocasionando o erro, se alguém puder me ajudar, valeu!!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...