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

bin.vcsc

Yêu THVBA
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.
Mã:
Sub openBatch()
Dim file_path As String
file_path = "C:\Users\test\test lenh shell\MassEntry.bat"
Call Shell(file_path, vbNormalFocus)
End Sub
 
D

Deleted member 1392

Guest
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

Yêu THVBA
@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

Yêu THVBA như điếu đổ
Mã:
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
 
Top