excel - 打开文件后子程序停止工作

Question

运行以下行后：

Workbooks.Open (strFilePath)

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

我如何让它继续运行“......做其他事情”？

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

标签： excelvba