Help: Chạy hàm hay bị treo máy và thoát excel giữa chứng?

[tiensy24]

nhờ các tiền bối xem giúp em cái code này xem có cách nào cài thiện giúp em được không? em chạy vài lần là excel bị đứng và thoát giữa chừng?
(mình muốn 1 cái code mở workbook mới lên đồng thời đóng workbook mở trước đó, tiền bối nào có hàm nào tốt hơn giúp mình với. mình ko rành về VBA nhiều, mình chỉ lên mạng search nên tim đc vba này thôi, mà hay bị đứng quá )

Private Sub cmdOpen_Click()
Dim sName As String
Dim wb As Workbook
sName = ThisWorkbook.Path & "\zbk"
If OptThang01.Value = True Then
Workbooks.Open filename:=sName & "01.xml"
For Each wb In Workbooks
If Not (wb Is ActiveWorkbook) Then wb.Close True
Next
ElseIf OptThang02.Value = True Then
Workbooks.Open filename:=sName & "02.xml"
For Each wb In Workbooks
If Not (wb Is ActiveWorkbook) Then wb.Close True
Next
End If
End Sub

 

[tiensy24]

Có tiền bối nào giúp mình đc ko? Help me.

 

[phuyen89]

nhờ các tiền bối xem giúp em cái code này xem có cách nào cài thiện giúp em được không? em chạy vài lần là excel bị đứng và thoát giữa chừng?
(mình muốn 1 cái code mở workbook mới lên đồng thời đóng workbook mở trước đó, tiền bối nào có hàm nào tốt hơn giúp mình với. mình ko rành về VBA nhiều, mình chỉ lên mạng search nên tim đc vba này thôi, mà hay bị đứng quá )

Private Sub cmdOpen_Click()
Dim sName As String
Dim wb As Workbook
sName = ThisWorkbook.Path & "\zbk"
If OptThang01.Value = True Then
Workbooks.Open filename:=sName & "01.xml"
For Each wb In Workbooks
If Not (wb Is ActiveWorkbook) Then wb.Close True
Next
ElseIf OptThang02.Value = True Then
Workbooks.Open filename:=sName & "02.xml"
For Each wb In Workbooks
If Not (wb Is ActiveWorkbook) Then wb.Close True
Next
End If
End Sub

- Cho tôi hỏi cái OptThang01.Value=True là gì vậy bạn?
- Bạn muôn mở File Excel, sao phần mở rộng là *.xml, chẳng lẻ bạn muôn sử dụng Excel để mở File XML sao?