Excel 子例程在打开文件后停止工作

运行以下行后：

Workbooks.Open (strFilePath)

excel打开该文件，但宏停止，没有任何错误

我如何让它继续运行，使其运行“……做些其他事情”

---

什么是“做点别的？”我们需要那个细节来帮助。你说它停止是什么意思？将断点

F9

放在该行之后，再次运行代码，并确认在打开另一个工作簿后不会指向该行。当我说它停止时，是指它退出子例程。我有一个工作簿，其中包含不同工作表中的数据。我希望宏复制每个工作表中的记录，并将其粘贴到不同工作簿中的单个工作表中。“strFilePath”变量是保存包含数据的工作簿的目录。

Sub openbook()

        Application.ScreenUpdating = False

        Dim strFilePath As String
        Dim fDialog As FileDialog, result As Integer, it As Variant
        Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

        Dim osho As Worksheet
        Dim lastrow As Integer
        Dim sh As Worksheet
        Dim wb As Workbook

        Set osho = ThisWorkbook.Sheets("output")

        fDialog.Title = "Select a file"

        If fDialog.Show = -1 Then
            strFilePath = fDialog.SelectedItems(1)
        End If


       Workbooks.Open (strFilePath)


       ......do something else


End Sub