Não entendi?

Não entendi?

Opa Reinaldo, tudo bom?

Seguinte, preciso abrir um FileDialog que me pergunte onde e qual arquivo de excel eu quero abrir e logo em seguida, quando eu der ok, abrir o arquivo! O problema é, não estou conseguindo abrir o arquivo!!! Ele simplesmente abre o arquivo de excel como texto pois eu não sei trocar o tipo de arquivo, de texto para xlsx.

Segue:

Dim caixa as FileDialog
Set caixa = Application.FileDialog(msoFileDialogFilePicker)
caixa.Title = "Selecione o arquivo NORMAL"
    If caixa.Show = -1 Then
        For Each caminho In caixa.SelectedItems
        i = 1
    
        Dim fs, f
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.OpenTextFile(caminho, 1)

Veja se os links abaixo ajudam, é só alterar o tipo do arquivo alterando a extensão e fazer algumas adaptações:

VBA – Caixa de Diálogo para Abrir arquivo (OpenFileDialog)
http://www.tomasvasquez.com.br/blog/mic ... filedialog

Abrir planilha em outro diretório
viewtopic.php?f=10&t=2848&p=12814&hilit=GetOpenFilename#p12814

[]s

Boa noite!!

Aqui tem alguns exemplos..

http://www.mrexcel.com/archive/VBA/19208.html

Veja se os links abaixo ajudam, é só alterar o tipo do arquivo alterando a extensão e fazer algumas adaptações:

VBA – Caixa de Diálogo para Abrir arquivo (OpenFileDialog)
http://www.tomasvasquez.com.br/blog/mic ... filedialog

Abrir planilha em outro diretório
viewtopic.php?f=10&t=2848&p=12814&hilit=GetOpenFilename#p12814

[]s

Exatamente por não estar entendendo o mecanismo, não consegui fazer funcionar. Zero para mim!

Boa noite!!

Aqui tem alguns exemplos..

http://www.mrexcel.com/archive/VBA/19208.html

Funcionou perfeitamente com algumas alterações!!!

Segue abaixo o código:

'abre o arquivo procurando pelas extensões xls e xlsx
caixa = Application.GetOpenFilename _
(Title:="Escolha um arquivo Clientes que compraram.", _
FileFilter:="Excel 2003/2007 *.xls;*xlsx (*.xls;*xlsx),")

If caixa = False Then
MsgBox "Sem arquivo especificado.", vbExclamation
Exit Sub
Else
Workbooks.Open FileName:=caixa
End If