Excel VBA-浏览并打开文件，将打开的文件粘贴到宏表中

Question

Am trying to automate, browse the files through search button and open the files and it should be pasted in the next sheet of my macro sheet. Pleae help to do in excel vba.

I try to open two files and i need to compare the files.

Answer 1

This code will let you browse to a selected file and then open it

Sub OpenFile()
Dim strFileToOpen As Variant

strFileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")

If strFileToOpen = False Then
    MsgBox "No file selected.", vbExclamation, "Sorry!"
    Exit Sub
Else
    Workbooks.Open Filename:=strFileToOpen
End If

End Sub

This will get you started. Once it is open, you can write code to copy the sheet(s) into your macro file.