Macro para salvar como automaticamente

[rhodgoncalves]

Bom dia!! Estou há alguns dias pesquisando e não encontro uma solução.
Tenho uma macro que quando clico em um botton pega o conteúdo da planilha e salva em .txt, porém, ao executar a macro ele sempre abre a janela de "Salvar como...".

Gostaria que a planilha salvasse diretamente o arquivo sem entrar nessa janela do excel. Seria possível?

Segue abaixo trecho em questão...

Código: Selecionar todos

fileSaveName = Application.GetSaveAsFilename( _
                   InitialFileName:="caminho do arquivo\MILLS" + _
                                    VBA.Strings.Format(name, "") + ".txt", _
                   fileFilter:="Text Files (*.txt), *.txt")

Tentei também usar o método Workbook.SaveAS mas deu erro em tempo de execução '424': O objeto é obrigatório.

Espero que possam me ajudar. Desde já agradeço.

[rhodgoncalves]

Prezados...
consegui resolver da seguinte forma:

Código: Selecionar todos

Sub exportar()
    Sheets("plan1").Select
    Dim c As Range, r As Range
    Dim output As String
    For Each r In Range("A2:K300").Rows
        For Each c In r.Cells
            output = output & "#" & c.Value
        Next c
        output = output & vbNewLine
    Next r
    Open "O:\txt\teste.txt" For Output As #1
    Print #1, output
    Close
    Sheets("plan1").Select
End Sub

A quem interessar!
Abraços