打开excel出现编译错误缺少end sub

Question

我是想将将多个excel文件合并到一个excel的多个sheet中，代码如下：
Sub book2sheets()
Sub Books2Sheets()
'
定义对话框变量

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'
新建一个工作簿

Dim newwb As workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'
定义单个文件变量

Dim vrtSelectedItem As Variant
'
定义循环变量

Dim i As Integer
i = 1
'
开始文件检索

For Each vrtSelectedItem In .SelectedItems
'
打开被合并工作簿

Dim tempwb As workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
'
复制工作表

tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'
把新工作簿的工作表名字改成被复制工作簿文件名 newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xlsx", "")
'
关闭被合并工作簿

tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
'
' book2sheets Macro
'
End Sub
大神帮我改改

Answer 1

函数里面可以再定义函数吗？这个不是c++，不能这么干吧。