Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Criar um novo arquivo TXT

Ir para baixo 
2 participantes
AutorMensagem
McJota




Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 48

Criar um novo arquivo TXT Empty
MensagemAssunto: Criar um novo arquivo TXT   Criar um novo arquivo TXT EmptySex Jun 07, 2013 9:20 am

Olá amigos, preciso de uma ajudinha de vocês!
É o seguinte:
Preciso simplesmente criar um novo arquivo TXT em branco via macro!
Minha idéia é criar um Form com 1 TextBox e 1 botão, quando apertar o botão, cria automaticamente 1 TXT em branco com o nome inserido no TextBox!

Obrigado pela atenção...
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Criar um novo arquivo TXT Empty
MensagemAssunto: Re: Criar um novo arquivo TXT   Criar um novo arquivo TXT EmptySáb Jun 08, 2013 2:23 am

Boa noite!!


Tente...
Código:
Sub TextFile_AleVBA()
Dim sPath As String
  Dim sFname As String
  Dim i As Integer
 
  sPath = "C:\Users\alexandre\Downloads\" '<-Mude essa parte como desejar, ou use a linha de baixo
  'sPath = "C:\temp\"
  sFname = "Teste_AleVBA.txt"
 
  If Dir(sPath & sFname, vbNormal) = "" Then
      i = FreeFile
      Open sPath & sFname For Output As #i
      Close
  End If
End Sub
Ir para o topo Ir para baixo
 
Criar um novo arquivo TXT
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Alterar Valor de Célula e Salvar Novo Arquivo.
» Formula para criar colunas em arquivo TXT - Numeração sequêncial
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» criar e exibir equação em um userform
» Planilha de produtividade

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: