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

[bin.vcsc]

Gửi anh chị

Mình viết lệnh thực thi Shell để thực thi tệp .bat nhưng cứ báo lỗi hoài không biết lỗi ở đâu. Mong các bạn chỉ điểm giúp

Sub RunMassEntry()

ChDir ActiveWorkbook.Path
ChDir ActiveWorkbook.Path
strProgramName = "MassEntry.bat"
Call Shell("""" & strProgramName & """", vbNormalFocus)
End Sub

 

[befaint]

Gửi @befaint mình gửi lại tệp .bat mới, nó chạy thời gian hiện tai .

File đó đâu bạn?

Nhưng mi2ng nghĩ vấn đề là VBA không chạy được báo lỗi không phải là nội dung của bat

Bạn đọc bài #16 chưa?

 

[bin.vcsc]

Em gửi lại tệp vì tệp .bat bị xóa ah.

 

[Maika8008]

Hóng kết quả thớt này. Có kết quả thì tự nhiên mình được hưởng thành quả thôi, kakakaka

 

[bin.vcsc]

Trên Yu-tu-be cũng có hướng dẫn nhưng mình làm vẫn không được.

Sub openBatch()
Dim file_path as string
file_path="C:\Users\test\test lenh shell\MassEntry.bat"
call shell(file_path, vbNormalFocus)
End Sub

Không biết là có phải chọn điều chỉnh gì hay chọn gì ở đây không các anh?

 

[batman1]

Trên Yu-tu-be cũng có hướng dẫn nhưng mình làm vẫn không được.


Sub openBatch()
Dim file_path as string
file_path="C:\Users\test\test lenh shell\MassEntry.bat"
call shell(file_path, vbNormalFocus)
End Sub

Không biết là có phải chọn điều chỉnh gì hay chọn gì ở đây không các anh?

View attachment 251409

Chả chọn gì cả.
Giả sử BAT và tập tin Excel cùng tư mục. Khác thư mục thì tương tự thôi.

Sub RunMassEntry()
Dim filename As String
    filename = """" & ThisWorkbook.Path & "\MassEntry.bat" & """"
    Shell "cmd /c " & filename, vbNormalFocus
End Sub

 

[bin.vcsc]

Chả chọn gì cả.
Giả sử BAT và tập tin Excel cùng tư mục. Khác thư mục thì tương tự thôi.

Sub RunMassEntry()
Dim filename As String
    filename = """" & ThisWorkbook.Path & "\MassEntry.bat" & """"
    Shell "cmd /c " & filename, vbNormalFocus
End Sub

Gửi @batman1 cám ơn bạn đã hỗ trợ.

Tập tin .BAT và tập tin Excel cùng thư mục.

Mình chạy thử nhưng báo lỗi. Bạn xem giúp mình với nha.

 

[bin.vcsc]

Gửi các anh chị em

Sau thời gian tìm trên mạng mình đã tìm được cách thực hiện, mình gửi để anh chị em tham khảo khi cần ah.
==========================================
Dim sfilename, fileName As String
Sub Run_bat_file()
fileName = "" & ThisWorkbook.Path & "\MassEntry.bat" & ""
VBA.Shell "Explorer.exe " & fileName, vbNormalFocus
End Sub
===========================================

 

[befaint]

cách thực hiện

Hóa ra VBE của bạn bị lỗi.

 

[bin.vcsc]

Hóa ra VBE của bạn bị lỗi.

Hình như là từ sau of-fice 2007 trở đi Mic-ro-soft có thay đổi:
=> VBA.Shell "Explorer.exe "