Tenho um codigo do TomazVasques que achei na net que serviu como uma luva, so que o codigo fica "pedindo pra salvar", nao posso deixar a criterio salvar ou nao para o usuario, pois se ele clicar em não salvar, ai nao adianta nada, ele em que exportar e ponto final caminho absoluto em rede tio \servidorminhapastaoutrapastaoarquivosalvo.txt

alguem que conhece um pouco mais de vba do excel, poderia analisar o codico e ver pra mim como colocar caminho absoluto nesse codigo, abraço e obrigado pela ajuda de todos

Sub Exportar()
    Application.DisplayAlerts = False
 
    template_file = ActiveWorkbook.FullName
 
    fileSaveName = Application.GetSaveAsFilename( _
                   InitialFileName:="C:users" + _
                                    VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _
                   fileFilter:="Text Files (*.txt), *.txt")
 
    If fileSaveName = False Then
        Exit Sub
    End If
 
    'cria uma cópia da pasta de trabalho atual da planilha atual
    Dim newBook As Workbook
    Dim plan As Worksheet
    Set newBook = Workbooks.Add
 
    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)
 
    'exclui as demais planilhas
    For Each plan In newBook.Sheets
        If plan.Name <> ActiveSheet.Name Then
            newBook.Worksheets(plan.Index).Delete
        End If
    Next
 
    newBook.SaveAs Filename:= _
                          fileSaveName, FileFormat:=xlTextWindows, _
                          CreateBackup:=False
 
    'fecha a pasta de trabalho gerada
    newBook.Close SaveChanges:=True
    Set newBook = Nothing
 
    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"
 
End Sub

Segue em anexo uma planilha de exemplo, o que preciso é tirar a pergunta ( Salva em ) pois preciso que salve em um caminho absoluto,
o codigo acima está de acordo com o que preciso so precisando dessa adaptação, continuo tentando aqui tambem, assim que eu tiver uma reposta eu compartilho aqui,

abraço, pegue o anexo para teste

Veja, assim salva sem perguntar

Sub Exportar()
    Application.DisplayAlerts = False
    template_file = ActiveWorkbook.FullName
    fileSaveName = "D:Alteração_" + VBA.Strings.Format(Now, "ddmmyyyy") + ".txt"
 
    'cria uma cópia da pasta de trabalho atual da planilha atual
    Dim newBook As Workbook
    Dim plan As Worksheet
    Set newBook = Workbooks.Add
 
    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)
 
    'exclui as demais planilhas
    For Each plan In newBook.Sheets
        If plan.Name <> ActiveSheet.Name Then
            newBook.Worksheets(plan.Index).Delete
        End If
    Next
    
    newBook.SaveAs Filename:=fileSaveName, FileFormat:=xlTextWindows, CreateBackup:=False
    'fecha a pasta de trabalho gerada
    newBook.Close SaveChanges:=True
    Set newBook = Nothing
 
    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"
 
End Sub

Reinaldo, novamente, sem palavras para agradecer, muito obrigado meu brother, =)
esse forum é bão bisurdo !!!
#Sempre que posso eu ajudo, mas, ultimamente to mais precisando do que doando =)
#Pra Fechar, falta só esse arquivo salvo na maquina ir por email automaticamente, mais nem vou continuar a discussão por aqui não vou fechar esse topico e abrir outro, claro, logo apos uma pesquisa extenuante =)
+ 1 Vez, Valeu