Code to open file

[yamadk]

Hi Everyone,

the below could does direct me to the file, but when I click on the file, it does not open it? any ideas?

Option Explicit
Sub GetImportFileName()
Dim Filt As String
Dim FilterIndex As Integer
Dim FileName As Variant
Dim Title As String

' Set up list of file filters
Filt = "All Files (*.*),*.*"
' Display *.* by default
FilterIndex = 5
' Set the dialog box caption
Title = "Select a File to Import"
' Get the file name
FileName = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
' Exit if dialog box canceled
If FileName = False Then
MsgBox "Attention: No file was selected."
Exit Sub
End If

End Sub

 

[Jon von der Heyden]

GetOpenFileName doesn't actually open the file, it just gives a string referring to the chosen file. To open it you need:

Workbooks.Open FileName:=FileName

 

[yamadk]

GetOpenFileName doesn't actually open the file, it just gives a string referring to the chosen file. To open it you need:

Workbooks.Open FileName:=FileName

Hi Jon,

Thanks, i tried but, doesn't work. could you please post the the complete code.

Many thanks.

 

[Ruddles]

That statement is for opening an Excel workbook. What type of file are you trying to open?

 

[yamadk]

That statement is for opening an Excel workbook. What type of file are you trying to open?

Hi, I want to open excel file. my next macro would be to make a pivot to work on that excel file.

thanks.

 

[Ruddles]

And you put that line... where? After the End If and before the End Sub?