Ir ao conteúdo
  • Cadastre-se

Marcus Casanova Nogueira

Membro Pleno
  • Total de itens

    19
  • Registro em

  • Última visita

  • Qualificações

    0%
  1. Minoso, Ele executa o for todo. Se eu pedir pra abir 32 programas, ele vai abrir uma atras da outra, ficando com 32 paginas abertas. Esse problema até pode ser contornável se o usuário tiver tempo pra deixar o pc dedicado a esses programas haha A maneira que achei pra sub não continuar foi colocar um MSGBOX. Isso porque o proximo passo da sub leria os dados obtidos pelos .exe abertos. como eles abrem rápido e a rotina continuava, ou seja, ja tentava ler os dados desses .exe, eles estavam em branco pois nao tinham rodado ainda. Agora, o passo seguinte da sub só é executado quando o bot
  2. Olá (novamente), pessoal! Estou criando uma macro que executa um .exe. É um arquivo simples, que faz alguns calculos. No entanto, este programa, quando acaba seus calculos, exige que a tecla "ENTER" seja apertada para fecha-lo (ou simplesmente clicar no "X" da aba). Meus problemas: Pretendo abrir vários arquivos desses por vez (o usuário escolheria essa quantidade); -->> atualmente só consigo abrir todos ao mesmo tempo (mais de 30, por exemplo, o que fica complicado pro pc realizar); Abertos esses programas, preciso saber como fecha - los depois. No e
  3. Minoso, contornei esse problema deixando os dados da aba ''asa.in" na aba "principal" e a cada iteração eu crio a "asa.in" e copio os dados la. Assim ela pode ser excluída sem problemas, embora acrescente alguns cálculos a mais para o programa. Abraço
  4. Opa! Como estava só testando o código, os arquivos são abas quaisquer, mas estão aí no anexo! Abraço kkkk.rar
  5. Minoso, mesmo deixando o código assim: Sub ExecutarSalvarTXT()Dim NovoArquivoXLS As WorkbookDim nome As StringApplication.DisplayAlerts = FalseSheets("asa.in").Selectnome = Cells(1, 1).Value 'Cria um novo arquivo excel Set NovoArquivoXLS = Application.Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\marcus\Desktop" & "\" & "1"), xlOpenXMLWorkbookMacroEnabled 'Copia a planilha para o novo arquivo criado Windows("kkk.xlsm").Activate Sheets("asa.in").Select Sheets("asa.in").Copy Before:=Workbooks("1.xlsm").Sheets(1) Windows("1.xlsm").
  6. Minoso, Sub ExecutarSalvarTXT()Dim NovoArquivoXLS As WorkbookDim nome As StringApplication.DisplayAlerts = FalseSheets("asa.in").Selectnome = Cells(1, 1).Value 'Cria um novo arquivo excel Set NovoArquivoXLS = Application.Workbooks.Add ActiveSheet.Name = nome ActiveWorkbook.SaveAs ("C:\Users\marcus\Desktop" & "\" & nome), xlOpenXMLWorkbookMacroEnabled 'Copia a planilha para o novo arquivo criado Windows("kkk.xlsm").Activate Sheets("asa.in").Select Sheets("asa.in").Copy Before:=Workbooks("1.xlsm").Sheets(1) Windows("1.xlsm").Activate
  7. Estou usando esse código: Sub ExecutarSalvarTXT()Dim NovoArquivoXLS As WorkbookDim nome As StringApplication.DisplayAlerts = FalseSheets("asa.in").Selectnome = Cells(1, 1).Value 'Cria um novo arquivo excel Set NovoArquivoXLS = Application.Workbooks.Add ActiveSheet.Name = nome ActiveWorkbook.SaveAs ("C:\Users\marcus\Desktop" & "\" & nome), xlOpenXMLWorkbookMacroEnabled 'Copia a planilha para o novo arquivo criado Windows("kkk.xlsm").Activate Sheets("asa.in").Select Sheets("asa.in").Copy Before:=Workbooks("1.xlsm").Sheets(1) 'Salva
  8. Já consegui resposta para a dúvida!! Na verdade parece estar tudo certo mesmo! tentei num arquivo novo e deu certo!
  9. Olá novamente, pessoal! Estou tentando aprender a copiar e colar uma pasta (e todos os documentos que estiverem dentro dela) através de VBA. No entanto, como vou copiar essa pasta no mesmo local da "original", gostaria de alterar o nome de acordo com os nomes em uma planilha. Para começar, estou usando o seguinte código: Sub copiarpasta()Dim fso As New FileSystemObjectDim name As StringFor i = 1 To 5Cells(i, 1).Value = iname = Cells(i, 1).Valuefso.CopyFolder "C:\Users\marcus\Desktop\pastadesejada", "C:\Users\marcus\Desktop\ && name"Next iEnd Sub No entanto, quando vou rodar a
  10. E aí, Pessoal! Estou com um problema na minha planilha: Tenho vários for (um dentro do outro), mas gostaria que caso uma situação não acontecesse, o for pulasse para a próxima iteração. Por exemplo: For x to y For k to n For j to p if tanana then tanana end if . . . if Cells(1,2) = 0 then não fazer nada (pular para o próximo for) end if next j next k next x end end end Valeu!
  11. Sub SalvarComoTXT() UserForm1.Show End Sub Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String) Dim NovoArquivoXLS As Workbook Set NovoArquivoXLS = Application.Workbooks.Add mPlan.Copy Before:=NovoArquivoXLS.Sheets(1) ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename MsgBox "Novo arquivo salvo em: " & mPathSave & "\" & mPlan.Name & ".txt", vbInformation End Sub Já resolvi, Minoso! Tinha apagado o "NovoArquivoXLS.Close" do código! Obrigado pela Ajuda! Abraço
  12. Obrigado, Minoso! Só que depois que salva, ele abre esse txt que salvei numa planilha. Tem como tirar isso? Abraço
  13. Pessoal, estou utilizando o código desse site para exportar as abas para TXT (http://www.exceldoseujeito.com.br/2010/12/22/macro-para-salvar-uma-planilha-xls-em-txt/) : Módulo1 01 Sub SalvarComoTXT() 02 UserForm1.Show 03 End Sub 04 05 Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String) 06 Dim NovoArquivoXLS As Workbook 07 08 'Cria um novo arquivo excel 09 Set NovoArquivoXLS = Application.Workbooks.Add 10 11 'Copia a planilha para o novo arquivo criado 12 mPlan.Copy Before:=NovoArquivoXLS.Sheets(1) 13 14 'Salva o arquivo 15 Application.Di

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

GRÁTIS: ebook Redes Wi-Fi

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!