Ir ao conteúdo
  • Cadastre-se

GuilDraco

Membro Júnior
  • Posts

    8
  • Cadastrado em

  • Última visita

Reputação

3
  1. Mano, se sua promoção não rolou ainda, talvez isso ajude 6 anos depois. Hahaha... Modifique o formato do arquivo que esta salvando. FileFormat:=xlUnicodeText, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=True fileSaveName, FileFormat:=xlTextPrinter, _ CreateBackup:=False
  2. Bom, respondendo minha própria questão, também consegui resolver o problema das Aspas de uma maneira bem simples. Vários sites com soluções mirabolantes, e a mais simples de todas foi a que funcionou, pelo menos pra mim. Modifiquei o: fileSaveName, FileFormat:=xlTextWindows, _ CreateBackup:=False Para: fileSaveName, FileFormat:=xlTextPrinter, _ CreateBackup:=False Isso mesmo, 1 palavrinha e resolveu o problema que tem de tudo que é solução nos sites por ai. Sites até com gente brigando. Hahaha... Bom é isso pessoal. Brigado ai.
  3. Pessoal, consegui resolver o problema após muita pesquisa e modificações de códs. Agradeço aos que se dispuseram a ajudar. "Casa" mano, não posso disponibilizar a parte do cód que iria me ajudar nesse problema. Porém posso disponibilizar a parte dele que usei pra fazer salvar como txt exatamente como eu queria, caso alguém também precise algum dia. Rs 'Copia e salva o arquivo concatenado .txt Application.DisplayAlerts = False template_file = ActiveWorkbook.FullName Selection.AutoFill Destination:=ActiveCell.Range(Cells(1, 11), Cells(Ultimalinha1, 1)) ActiveCell.Range(Cells(1, 11), Cells(Ultimalinha1, 1)).Select Selection.Copy 'Salva o arquivo txt vazio pra ser inserido a copia fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:="C:\Caminho\nome do arquivo" + _ VBA.Strings.Format(Now, "ddmmyyyy") + ".txt", _ fileFilter:="Text Files (*.txt), *.txt") If fileSaveName = False Then Exit Sub End If 'Gera uma nova planilha Dim newBook As Workbook Dim plan As Worksheet Set newBook = Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Copia os dados para o txt salvo anteriomente newBook.SaveAs Filename:= _ fileSaveName, FileFormat:=xlTextWindows, _ CreateBackup:=False 'fecha a pasta de trabalho gerada newBook.Close SaveChanges:=True Set newBook = Nothing 'Limpa o arquivo salvo no txt na planilha Selection.ClearContents Agora fiquei com o problema das aspas em algumas linhas, caso alguém saiba como tirar. Só falar.
  4. Um exemplo simples para maior entendimento. Arquivo no Excel: Exemplo de como deve ficar no arquivo .txt. 1|2|3|4| 1|2|3|4| 1|2|3|4|
  5. Falaaa, Galerinha!! Então estou com uma duvida já vasculhei tudo na net pra não perturbar vocês novamente, mas não teve outra forma. Estou com o seguinte problema, preciso copiar determinada área da planilha onde foi gerado um arquivo concatenado, até ai tudo bem, o problema é que não consigo fazer o macro salvar de modo algum exatamente como copiei. Já tentei todos os Tipos de arq. disponíveis no Excel .txt e nada, ele salva numa bagunça só e o pior sem as "|" que foram inseridas ao concatenar para enviar o arquivo. Segue área copiada: Range("L1:V1").Select Selection.AutoFill Destination:=Range("L1:V9787"), Type:=xlFillDefault Range("L1:V9787").Select Selection.Copy Agora preciso salvar como.txt exatamente como copiei. Lembrando que é através de macro, então abrir o Bloco de notas copiar e salvar manualmente não rola. Rs. Aproveitando o embalo, se alguém souber uma forma de salvar o arquivo do macro de acordo com a data do PC, agradeço também. Valeu galera. Abraços.
  6. Casa do Hardware, obrigado mano, funcionou perfeitamente, só ficou com a 1° linha em branco, mas ai no final do comando fiz com que deletasse a 1° linha. Ficou redondo.. Valeu.. Caso alguém queira o cód. completo só falar. Abraços!!
  7. Dj, agradeço o retorno,porém preciso que esse macro rode em qualquer Excel, pois será usado em mais de 1 PC, claro alterando apenas o caminho do cód. a Programação relacionada acima é funcional, porém ou repito o copiar e colar as 20 vezes, o que acarreta erro quando a quantidade de arquivo é inferior, ou se modificar o cód. ele copia os 20 porém só cola 1. a duvida é o que tem de errado no cód. que esta acarretando tal erro.
  8. Prezados, boa noite! Estou com uma duvida. Ao criar minha macro para procurar planilha X copiar e colar os dados dessa planilha em outra estou enfrentando dificuldades, pois mesmo a macro rodando corretamente, ou cola apenas 1 planilha ou caso coloque pra colar 20 vezes que é o máximo de planilhas, podendo variar para baixo ele copia as informações de todas as planilhas porém cola sempre da mesma. Segue macro que estou utilizando. Lembrando que a quantidade de planilhas pode variar o que me impede de usar uma programação fechada copiando e colando as 20 planilhas, pois caso tenha menos a macro dará erro. Sub Junta() ' ' Junta Macro ' ' Atalho do teclado: Ctrl+j ' Dim FSO As Object Dim Pasta As String Dim Planilha As Object Dim OpenBook As String Set FSO = CreateObject("Scripting.FileSystemObject") Pasta = "C:\" 'Pasta com as planilhas que serão abertas e copiadas Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For Each Planilha In FSO.GetFolder(Pasta).Files If InStr(1, Planilha, ".xls") = 0 Then GoTo PRÓXIMO Workbooks.Open (Planilha) OpenBook = ActiveWorkbook.Name 'código para copiar Range("A1:L11").Select Selection.Copy 'código para colar Windows(ThisWorkbook.Name).Activate ActiveSheet.Paste Range("").Select Application.CutCopyMode = False Workbooks(OpenBook).Close False PRÓXIMO: Next Application.ScreenUpdating = True MsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso" Application.Calculation = xlCalculationAutomatic End Sub

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...