VBA để thực thi tệp .bat (1 người xem)

[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]

ChDir ActiveWorkbook.Path

ChDir là lệnh của Dos, nó sẽ ngỏm khi gặp đường dẫn (Path) là chuỗi unicode.
Vậy mình bỏ cái ChDir đi, truyền vào strProgramName là đường dẫn đầy đủ của *.bat file. Nếu vẫn không được thì dùng Short Path.

 

[bin.vcsc]

ChDir là lệnh của Dos, nó sẽ ngỏm khi gặp đường dẫn (Path) là chuỗi unicode.
Vậy mình bỏ cái ChDir đi, truyền vào strProgramName là đường dẫn đầy đủ của *.bat file. Nếu vẫn không được thì dùng Short Path.

Cám ơn bác @befaint. Xin bác nói rõ hơn hoặc giúp em viết lại VBA với, vì em viết lại nhưng vẫn không chạy được ah.

 

[befaint]

viết lại

Gửi lại đó lên đây.

vẫn không chạy được

Chụp cái hình xinh xinh gửi lên đây.
-----
Sao cứ nói suông vậy?
Ở trên mình cho từ khóa hết rồi, cứ chép vào Google là thấy kết quả luôn.

 

[Kiều Mạnh]

chạy file *.bat trong một số trường hợp nó đòi Run as đấy ... hãy tính tới khả năng đó

 

[befaint]

chạy file *.bat trong một số trường hợp nó đòi Run as đấy ... hãy tính tới khả năng đó

File *.bat còn chưa mở lên được anh ơi. @@

 

[Kiều Mạnh]

File *.bat còn chưa mở lên được anh ơi. @@

thì chủ thớt thử khai báo 1 cái đường dẫn VD: D:\mm\kk\dd\kakakaka.bat xong chạy code xem sao xong tính tiếp
mạnh toàn quậy các kiểu vậy ko à

 

[bin.vcsc]

Gửi lại đó lên đây.


Chụp cái hình xinh xinh gửi lên đây.
-----
Sao cứ nói suông vậy?
Ở trên mình cho từ khóa hết rồi, cứ chép vào Google là thấy kết quả luôn.

Em gửi lại

Sub RunMassEntry()

ActiveWorkbook.Path
ActiveWorkbook.Path
strProgramName = "C:\Users\e907pbz.TNTAD\Desktop\test\test lenh shell & MassEntry.bat"
Call Shell("""" & strProgramName & """", vbNormalFocus)

End Sub

 

[befaint]

Xóa cái này đi mình à

 

[bin.vcsc]

Em cũng có tham khảo thêm cáí này nữa mà cũng không được

Dim folderPath As String
Dim shellCommand As String

folderPath = Application.ActiveWorkbook.Path
shellCommand = """" & folderPath & "\" & "MassEntry.bat" & """"
Call Shell(shellCommand, vbNormalFocus)

 

[befaint]

không được

Mình có thể cho biết chỗ không được kia như nào không?
Chẳng hạn mô tả bằng văn xuôi, chụp hình xinh xinh, quay video ấy.

 

[hungpecc1]

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

thử dùng hàm API kiểu như sau xem ntn

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const SW_SHOW = 5
'________________________________________________________________________________________
Sub tst()
    ShellExecute Handle, "runas", "cmd.exe", nil, nil, SW_SHOW
End Sub

thay cụm "cmd.exe" bằng gì gì đấy

 

[befaint]

Cái file MassEntry.bat kia có miếng cốt, miếng thịt nào đâu mà chạy được, với chạy không được.

 

[bin.vcsc]

Em cũng có tham khảo thêm cáí này nữa mà cũng không được

Dim folderPath As String
Dim shellCommand As String

folderPath = Application.ActiveWorkbook.Path
shellCommand = """" & folderPath & "\" & "MassEntry.bat" & """"
Call Shell(shellCommand, vbNormalFocus)

Em có chỉnh lại, những vẫn còn lỗi như vậy anh xem giúp em với

 

[bin.vcsc]

Cái file MassEntry.bat kia có miếng cốt, miếng thịt nào đâu mà chạy được, với chạy không được.

Dạ cám ơn anh em gửi nhầm tệp.
Do em tạo nháp tệp .bat nên chỉ để nội dung "aaaaaaaaaaaaaaaa" trong tệp .bat xem có thực thi được không thôi.
Em gửi lại tệp ah.

 

[befaint]

strProgramName = "C:\Users\e907pbz.TNTAD\Desktop\test\test lenh shell & MassEntry.bat"

strProgramName = "C:\Users\e907pbz.TNTAD\Desktop\test\test lenh shell\" & "MassEntry.bat"

Hoặc:
strProgramName = Thisworkbook.path & "\" & "MassEntry.bat"

 

[bin.vcsc]

thử dùng hàm API kiểu như sau xem ntn

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const SW_SHOW = 5
'________________________________________________________________________________________
Sub tst()
    ShellExecute Handle, "runas", "cmd.exe", nil, nil, SW_SHOW
End Sub

thay cụm "cmd.exe" bằng gì gì đấy

Gửi bạn, mình chạy thử nhưng không được ah.

 

[hungpecc1]

Gửi bạn, mình chạy thử nhưng không được ah.

Đưa người ta không đưa sang sông
Sao nghe tiếng sóng ở trong lòng

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute _
        Lib "shell32.dll" Alias "ShellExecuteA" _
            (ByVal hwnd As LongPtr, _
             ByVal lpOperation As String, _
             ByVal lpFile As String, _
             ByVal lpParameters As String, _
             ByVal lpDirectory As String, _
             ByVal nShowCmd As Long) _
        As LongPtr
#Else
    Private Declare Function ShellExecute _
        Lib "shell32.dll" Alias "ShellExecuteA" _
            (ByVal hwnd As Long, _
             ByVal lpOperation As String, _
             ByVal lpFile As String, _
             ByVal lpParameters As String, _
             ByVal lpDirectory As String, _
            ByVal nShowCmd As Long) _
        As Long
#End If
Public Const SW_SHOW = 5
'________________________________________________________________________________________
Sub test()
    Dim strPath$
    ChDir ThisWorkbook.Path
    strPath = Application.GetOpenFilename()
    ShellExecute Handle, "runas", strPath, nil, nil, SW_SHOW
End Sub

Bạn chép nguyên đoạn code trên vào 1 file bất kỳ rồi chạy sub test()

 

[befaint]

tạo nháp tệp .bat nên chỉ để nội dung "aaaaaaaaaaaaaaaa" trong tệp .bat xem có thực thi được không thôi.

Vậy làm sao bạn biết có "thực thi" được hay không được?

 

[bin.vcsc]

Vậy làm sao bạn biết có "thực thi" được hay không được?

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



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

 

[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 "