Boa tarde,
Criei uma macro com pedaços de código que fui pegando na net, e funcionou (bem, nem tanto) a macro cria uma pasta em F: Folha ponto que seria com o mês (2018-06-nome do func.), tudo bem ela cria a pasta, mas na hora de salvar os arquivos dentro da mesma salva em "meus documentos"
Segue parte da macro o meio foi suprimido já que está
funcionando.]
[code]
Sub Imprime()
'
' Imprime Macro
'
'Dim strPath As String, strFold As String
strPath = "F:Folhas Ponto"
strFold = VBA.Trim(ActiveSheet.Range("L2").Value)
If Dir(strPath & strFold, vbDirectory) = "" Then
MkDir (strPath & strFold)
End If
Rows("5:18").Select ‘Func1 selecionado
Selection.EntireRow.Hidden = True
ChDir "F:Folhas Ponto" & (ActiveSheet.Range("L2").Value) & ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("L3"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Rows("3:18").Select 'oculta todas as linhas
Selection.EntireRow.Hidden = True
Rows("5:6").Select 'seleciona Func2p imprimir
Selection.EntireRow.Hidden = False
ChDir "F:Folhas Ponto" & (ActiveSheet.Range("L2").Value) & ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("L5"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Rows("3:4").Select 'Retorna ao Func1
Selection.EntireRow.Hidden = False
Range("A3:F3").Select
End Sub
[/code]
Provavelmente o erro está nessa linha mas não sei ao certo>>
[code]
ChDir "F:Folhas Ponto" & (ActiveSheet.Range("L2").Value) & ""
Se algém puder me ajudar,
Desde já agradeço!
Postado : 18/05/2018 1:27 pm