Browse file and open...

[Rondy013]

Hi, I'm a newbie here and I face problem creating the file browsing macro.
The required process is:
1. Click button
2. Pop up with file browsing window (to search to computer directories)
3. Select file types
4. Select file
5. "OK" to open

Hope to get helps on this.
Thanks in advance.

 

[sky1in5]

Sub GetFile()
    Dim MyPath As String
    Dim FName As Variant
    Dim sh As Worksheet
    Dim ThisBk As String
    
    'Set a dialog for opening folder and select single file
    MyPath = Application.DefaultFilePath
    FName = Application.GetOpenFilename(MultiSelect:=False)
    ThisBk = ThisWorkbook.Name
                                          
    If FName = False Then
        MsgBox ("Please select a file")
    Else
        Workbooks.Open (FName)
    End if
End Sub

 

[Rondy013]

Thanks skylin5.

How if I want to fix the file type?

 

[rjwebgraphix]

For text files, this will work, but it does depend on what file type you're looking for.

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

 

[Rondy013]

Thanks rjwebgraphix.

I got coloumn of numbers now and I would like to copy each number to paste in other sheet in the same file.
precedure is:
1. Content is 0 then got to upper cell
2. Content is not equal to 0 then copy and paste to next sheet
How to construct this "if" condition?

 

[Rondy013]

Hi i have below commands:
Range("Y52").Select
ActiveCell.FormulaR1C1 = "5V"
Sheets("StandardTemplate (2)").Select
Sheets("StandardTemplate (2)").Name = "5V"
Range("E1").Select
ActiveSheet.Paste

The content inside range("Y52") isn't the same everytime and want to copy the content of this range to other location.
How to make it copy content only? In this command it is fix to be "5V" even the content inside the range is not "5V".