How to browse import file .xlsm and create new sheet from .xlsm is imported?

[oshi1998]

Hello everyone, Sorry, My english isn't that good. I'm still practicing.
This is my second thread. I need to know source code for this.

Step 1 : user click import file button and show dialog for browse file .xlsm (macro file)
Step 2 : import file already and bring worksheet from .xlsm is imported to create as new sheet in current file.

*** If import .xlsm file already. can user use function from .xlsm file is imported?
I want user can use it also. Help me pls!
Thanks for help

 

[JLGWhiz]

You can attach this to a Form Controls command button.

Sub t()
Dim fName As String, wb As Workbook, sh As Worksheet
fName = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsm")
    If fName <> False And fName <> "" Then
        Set wb = Workbooks.Open(fName)
        wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(Thisworkbook.Sheets.Count)
        wb.Close False
    End If
End Sub

 

[oshi1998]

You can attach this to a Form Controls command button.

Sub t()
Dim fName As String, wb As Workbook, sh As Worksheet
fName = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsm")
    If [B][COLOR=rgb(184, 49, 47)]fName <> False[/COLOR][/B] And fName <> "" Then
        Set wb = Workbooks.Open(fName)
        wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(Thisworkbook.Sheets.Count)
        wb.Close False
    End If
End Sub

Excellent! but i need delete "fName <> False" out
because excel said : "runtim-error 13 type missmatch"
Anyway It's work !! thank you very much

 

[JLGWhiz]

It could be a problem with the version of Excel you are using. The code runs without error on my Win 10, xl2013 version. The statement is in there to avoid an error 8, when the user clicks cancel or exits the dialog box without seledting a file. So not sure how to fix it other than delete the If Then statement and hope the user always selects a file. You can try this and see if it still errors:

Sub t()

Dim fName As String, wb As Workbook, sh As Worksheet
fName = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsm")
    If fName <> "False" Then
        Set wb = Workbooks.Open(fName)
        wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(Thisworkbook.Sheets.Count)
        wb.Close False
    End If
End Sub