作者：乔山办公网日期：
返回目录：excel表格制作
Sub x()
Shell "d:\a\a.bat"
End Sub
有问题请拷屏追问。
找到复了，直接用制
Call Shell(strPath & strFilename & ".bat")
后台运zhidao行
Set ws = CreateObject("Wscript.Shell")
ws.Run "cmd /c C:\**.bat", vbHide
试试
如果你只复是想在EXCEL 上面操作制，可以执行open实事百件。
代码放在thisworkbook下
Private Sub Workbook_Open()
你的度代码，例如 cells(1,1)=1
End sub
以下代码zd能满足你的要求（代码经过调试绝对没问题）
Sub 生成BAT文件版并运行权()
Dim Ra As Range, FN$
Set Ra = Application.InputBox("请选择有要生成BAT文件内容的单元格", Type:=8)
If Not Ra Is Nothing Then
FN = ThisWorkbook.Path & "\BAT文件.bat"
Open FN For Output As #1
Print #1, Replace(Ra.Text, Chr(10), Chr(13))
Close #1
Shell FN
End If
End Sub