作者：乔山办公网日期：
返回目录：excel表格制作
以下代码能满足你的要百求（代码经过调试绝对没问题度）
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
DOS命令你都已经写好了，将数据复制到记
事本中保存一下，然后将这个txt文件名后缀改
成.dat 文件，双击自动执行命令，文件就被重命名。
假设百.BAT文件与工作簿文件在同一文件夹中度，
Alt+F11，双击你指的“A1”所在的工作表，将下面代码复制问上 ，保存后关闭。答
然后点击菜单栏：“工具”——专“宏”——“宏”出现类似附图，点执行属即可。
Public Sub ttt()
Dim FileBat As String
Dim appPath As String
appPath = ActiveWorkbook.Path
FileBat = IIf(Right(appPath, 1) = "\", appPath, appPath & "\") & Cells(1, 1).Value & ".bat"
Shell FileBat, vbNormalFocus
End Sub
你这样写，就相当于在当前目录下来创建文件夹，而对EXCEL来说，当前目录就在我的文档，自为了解决这个问题，需要在BAT里先切换到BAT所在目录，然zhidao后再操作，也就是
@echo off
cd /d %~dp0
md xxxx