Tenho uma planilha que uso em minha loja que salva meus pedidos em txt que em outra planilha analiso todos os dados, mas sempre que gero um novo pedido e clico para gerar o TXT ele abre a dialog do Salvar como. tem como pular esta etapa e ele salvar sem abrir o salvar como, especificando o local onde salvar? esta macro peguei na internet e adaptei para meu uso, mas como sou leigo esta parte não consegui alterar. segue a macro:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Range("C6:Q20")
Set WorkRng = Range("C6:Q20")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
ja esta especificado as celulas que ele exporta para o txt, tudo funciona perfeitamente, seria apenas para automatizar mais ainda.
desde ja agradeço