Importanto Um Txt, Porém...

[muraki]

já fiz a macro para importar um arquivo txt, até ai facil, mas eu queria fazer uma macro para ele me abrir uma janela de "Abrir Arquivo" onde eu seleciono o txt para importação!!

se puderem me ajudar!!

agradeço!!

[Guest gdonizett]

se você já criou a rotina para abrir o txt. seria melhor voce criar uma rotina de parametrização no caminho e nome do arquivo que sera aberto, fica muito melhor

exemplo

Dim NomeArq As strinc

NomeArq = Range("a1").Value

onde na sua planilha range("a1") = "caminho"&nome do arquivo

boa sort

[Guest SIR]

use:

arquivoparaabrir = Application.GetOpenFilename("Text Files (*.txt), *.txt")

' abre caixa de abrir arquivo do sistema com mascara .txt e passa caminho e nome do arquivo selecionado para a variável arquivoparaabrir ou o nome que você der

' teste de funcionamento

If fileToOpen <> False Then

MsgBox "Open " & fileToOpen

End If

[Anderson Fernandes]

bom você pode usar a função inputbox ()

exemplo:

dim nomeArq as string

nomeArq = inputbox("Selecione o Arquivo","Selecione o arq.txt")

...

processo para abrir arquivo

...

-----------------------------------------------------------------

ou você pode usar o ActiveX (*.ocx) Microsoft Common Dialog para fazer isto

exemplo

o nome do componente é Dlg1

dlg1.showopen

nomearq = dlg1.filename

...

processo para abrir arquivo

...

----------------------------------------------

beleza

Fuiiii!!!!!

[muraki]

:ph34r: Obrigadão pessoal, valeu mesmo!!

Eu acabei achando no ajuda mesmo do visual basic e fiz da seguinte maneira em um evento de botão!! ai ele coloca o caminho em uma célula, que depois eu concateno com a programação macro do importar arquivo!!

Dim lngCount As Long

'Abrir arquivo

With Application.fileDialog(msoFileDialogOpen)

.AllowMultiSelect = True

.Show

' Mostra o caminho do arquivo selecionada no campo

For lngCount = 1 To .SelectedItems.Count

'célula

Range("Pathensaio") = .SelectedItems(lngCount)

Next lngCount

End With

Abraços valeu