VBA để thực thi tệp *.bat

[bin.vcsc]

Gửi anh chị

Hiện tại mình có tham khảo VBA chạy tệp .bat nhưng không chạy được.
Anh chị vui lòng xem và hướng dẫn giúp.

Sub openBatch()
Dim file_path As String
file_path = "C:\Users\test\test lenh shell\MassEntry.bat"
Call Shell(file_path, vbNormalFocus)
End Sub

 

[Deleted member 1392]

Lưu ý với bạn: Code phải được đặt trong thẻ code.

Về chủ đề, bạn cần nói rõ hơn về chữ "Không chạy được" mà bạn đang gặp phải. Tôi chạy đoạn code trên của bạn thực thi tệp .bat thì hoàn toàn không gặp vấn đề gì. Sẽ tốt hơn nếu có hình ảnh bạn nhé !

 

[Viet An]

Bạn cần đăng nhập để thấy link

@bin.vcsc Bạn tham khảo link trên xem. Nên thử với những cái đơn giản để chắc chắn code hoạt động rồi mới thêm thắt vào.

 

[phuonghong1997]

Dim wsh As Object
    
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 1
    Dim errorCode As Integer
    Set wsh = VBA.CreateObject("WScript.Shell")
'Chay file bat
    errorCode = wsh.Run(linkfilebat, windowStyle, waitOnReturn)
    
    
    If errorCode <> 0 Then
        'Co loi xay ra'
    End If