Question

如何将excel的指定内容另存为文本格式的bat文件，并可以执行这个BAT

Answer 1

以下代码能满足你的要求。选择单元格时可按住Ctrl选择多个不连续的格，如果格是固定的，直接在代码中固定，不用选择：

Sub 生成BAT文件并运行()
Dim Ra As Range, FN$, S$
Set Ra = Application.InputBox("请选择有要生成BAT文件内容的单元格", Type:=8)
For Each Ra In Ra
   S = S & Ra & Chr(13) & Chr(10)
Next
FN = ThisWorkbook.Path & "\BAT文件.bat"
Open FN For Output As #1
Print #1, S
Close #1
Shell FN
End Sub