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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Criar um novo arquivo TXT

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
McJota



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

MensagemAssunto: Criar um novo arquivo TXT   Sex 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Criar um novo arquivo TXT   Sab 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Criar um novo arquivo TXT
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como criar um novo tipo de cargo
» Como criar um novo campo de warning no fórum
» Como adiciono isso em criar um novo tópico?
» Como criar esse novo painel de usuário
» [FAQ] Criar um novo perfil de usuário

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: