我有一個 Sub 誰打開了一個新作業簿，但是這個新作業簿的 Sub 立即激活了一個用戶表單，并且第一個 Sub 永遠不會結束，所以這是我的問題如何完成第一個 sub？
第一個作業簿
Private Sub BotonBalanza_Click()
Workbooks.Open Filename:="C:\Users\proc_221\Desktop\Balanza.xlsm", Password:="genesis1969"
End Sub
第二個作業簿
Private Sub Workbook_Open()
Application.Visible = False
Seleccion.Show
End Sub
謝謝
uj5u.com熱心網友回復：
我的建議是在打開相關作業簿時停用這些事件
Private Sub BotonBalanza_Click()
Application.EnableEvents=False
Workbooks.Open Filename:="C:\Users\proc_221\Desktop\Balanza.xlsm", Password:="genesis1969"
Application.EnableEvents=True
End Sub
uj5u.com熱心網友回復：
謝謝大家；我使用代碼上的延遲時間修復了錯誤。
Sub Mostrar()
Workbooks.Open Filename:="C:\Users\proc_221\Desktop\Balanza.xlsm", Password:="genesis1969"
End Sub
Private Sub BotonBalanza_Click()
Application.OnTime Now TimeValue("00:00:03"), "Mostrar"
End Sub
Private Sub Workbook_Open()
Seleccion.Show
End Sub
uj5u.com熱心網友回復：
在另一個 Excel 實體中
- 僅當應用程式實體可見時，這將運行您的目標打開作業簿代碼。
- 它將在另一個不可見的實體中打開目標作業簿并完成作業，確保實體正確關閉并通知成功。
目標ThisWorkbook模塊
Option Explicit
Private Sub Workbook_Open()
If Application.Visible Then
Application.Visible = False
Seleccion.Show
End If
End Sub
源'無論按鈕在哪里'作業表模塊
Option Explicit
Private Sub BotonBalanza_Click()
Const ProcName As String = "BotonBalanza"
Dim ErrNum As Long
On Error GoTo ClearError
Dim xlApp As Application: Set xlApp = New Application
Dim wb As Workbook: Set wb = xlApp.Workbooks.Open( _
Filename:="C:\Users\proc_221\Desktop\Balanza.xlsm", _
Password:="genesis1969")
' do your stuff, e.g.:
Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
Dim rg As Range: Set rg = ws.Range("A1")
rg.Value = Now
rg.EntireColumn.AutoFit
SafeExit:
On Error Resume Next
If ErrNum = 0 Then
If Not wb Is Nothing Then
wb.Close SaveChanges:=True
End If
xlApp.Quit
MsgBox "Success", vbInformation
Else
If Not wb Is Nothing Then
wb.Close SaveChanges:=False
End If
xlApp.Quit
MsgBox "Failed.", vbCritical
End If
On Error GoTo 0
Exit Sub
ClearError:
ErrNum = Err.Number
Debug.Print "'" & ProcName & "' Run-time error '" _
& Err.Number & "':" & vbLf & " " & Err.Description
Resume SafeExit
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/429222.html