excel开vba就闪退

1、可以尝试重新安装excel；

2、检查电脑系统是否有更新，如果有更新，就更新一下；

3、检查excel是否有更新，如果有更新，就更新一下；

4、如果以上方法无效，可以尝试把excel重置一下，重置步骤如下：

（1）关闭excel；

（2）在开始菜单里找到“运行”，输入“excel /safe”，回车；

（3）在d出的窗口中选择“仅加载安全模板”；

（4）点击“启动”，excel就会重新启动；

（5）重新启动excel后，尝试打开vba，看看是否能正常使用。

5、如果以上都无效，可以把excel卸载重新安装一下，重新安装后尝试打开vba，看看是否能正常使用。

hi,本来想把改动的地方标出来，后来发现改动还蛮多的，就不一一标出了，现在应该可以运行了。

Sub Test()

Dim i As Integer, iRow As Integer

Dim strPath As String

Dim TheSheet As Worksheet

iRow = 1

Set TheSheet = ActiveWorkbookWorksheets("sheet1")

strPath = ""E:\可丢\hua"

With ApplicationFileSearch

LookIn = strPath

SearchSubFolders = True

Filename = ""

If Execute > 0 Then

For i = 1 To FoundFilesCount

'Range("A" & i) = FoundFiles(i)

WorkbooksOpen (FoundFiles(i))

For j = 1 To ActiveWorkbookWorksheetsCount

'ActiveWorkbookWorksheets(i)Cells(1, 1)Value = "a"

ActiveWorkbookWorksheets(j)UsedRangeCopy

TheSheetActivate

While TheSheetRange("a" & iRow)Value <> ""

iRow = iRow + 1

Wend

TheSheetRange("A" & iRow)Select

ActiveSheetPaste

ActiveWorkbookSave

Next j

Workbooks(WorkbooksCount)Close

Next i

End If

End With

End Sub

Sub Boxes()

Dim n As Integer

Dim m As Integer

Dim i As Integer

Dim j As Integer

Dim SmallBox As Byte

Dim BigBox As Byte

Dim Charac As String

n = 2

m = 2

With Sheets("sheet2")

Do Until Cells(n, 2) = ""

Charac = Left(Cells(n, 2), 1)

BigBox = Right(Cells(n, 2), Len(Cells(n, 2)) - 1)

SmallBox = Cells(n, 3)

Do Until Sheets("Sheet1")Cells(m, 3) = ""

m = m + 1

Loop

For i = 1 To BigBox

Sheets("Sheet1")Cells(m, 2) = Charac & i

For j = 1 To SmallBox

Sheets("Sheet1")Cells(m, 3) = j

m = m + 1

Next j

Next i

n = n + 1

Loop

End With

End Sub

具体 *** 作步骤如下：

1、首先，打开需要编辑的Excel表，右键单击工作表并选择打开“查看代码”，如下图所示，然后进入下一步。

2、其次，完成上述步骤后，在d出窗口中单击“通用”。选择Terminate 事件，如下图所示，然后进入下一步。

3、接着，然后在d出窗口中单击以输入下方的代码，

Private Sub UserForm_Terminate()

ThisWorkbookSaved = True

ApplicationQuit

End Sub

如下图所示，然后进入下一步。

4、最后，运行程序，就可以关闭窗体了，如下图所示。这样，问题就解决了。

Private Sub Workbook_Open()

    Dim k%, t$

    Do

        If k >= 3 Then ApplicationQuit: End

        t = InputBox("Password")

        k = k + 1

    Loop Until t = "right password"

End Sub

以上就是关于excel开vba就闪退全部的内容，包括:excel开vba就闪退、Excel之vba代码、excel vba缺少结束语句等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！