'打开文件返回Sheet
Public Function GetSheetByOpenFile() As Worksheet
ifilename = Application.GetOpenFilename("Excel(*.xlsx), *.xlsx, Excel(*.xls), *.xls", False)
If ifilename <> "False" Then
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(ifilename)
Dim sheet As Excel.Worksheet
Set sheet = xlBook.Sheets(1)
Set GetSheetByOpenFile = sheet
Else
MsgBox "Please select a file first!", vbOKOnly, "Reminder"
Exit Function
End If
On Error Resume Next
Set xlBook = Nothing
Set xlApp = Nothing
End Function