Question

我有一个非常奇怪的错误，excel vba让我疯了：我有以下代码：

Option Explicit
Dim nomLibroFuente, nomLibro As String
Dim nomTab1, nomTab2, nomTab3, nomTab4 As String
Dim n, m, x, y, z As Integer
Dim totalTab1, totalTab2, totalTab3, totalTab4 As Integer
Dim RutaArchivo As Variant

Sub llenarLibro()

nomTab1 = "POSICION VEHICULO"
nomTab2 = "TIPO DE DAÑO"
nomTab3 = "GRAVEDAD DAÑO"
nomTab4 = "DAÑOS"
nomLibro = ActiveWorkbook.Name
On Error GoTo errorEjecucion
optimizarOn
RutaArchivo = Application.GetOpenFilename(Title:="Archivo de Origen", _
                            filefilter:="Excel files (*.xls), *.xls")
If RutaArchivo = False Then
    salirRutina
End If
Workbooks.Open Filename:=RutaArchivo
nomLibroFuente = ActiveWorkbook.Name

... some other stuff
end sub

基本上它只是打开我选择的文件并处理当前书中的信息，问题是它突然停在＆＃39; Workbooks.Open文件名：= RutaArchivo＆＃39; 没有错误或任何消息，它会打开文件，代码就会停止运行。

当我在那里插入一个断点并换行时，它工作正常，但没有断点，它只是打开书并停止运行，不知道为什么会发生这种情况

更新

所以我发现问题发生了，如果我使用像＆＃34; ctrl + shift + S＆＃34;这样的快捷方式运行脚本。直接在vba（F5）内运行或使用没有移位的shorcut例如＆＃34; ctrl + S＆＃34;解决问题，现在为什么？

例程停止没有错误Excel VBA

0 个答案: