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

以下代码能满足你的要求。选择单元格时可按住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

你的目的是每次建立新文档时，页面要默认大小为17.5*12.5，用页面设置就可以达到你的目的。页面设置，纸张选项卡，自定义纸张大小，宽度和高度分别设置为17.5和12.5，然后，在设置窗口的左下角有一个“默认...”按钮，按一下，在出来的确认提示中按确定，这样在新建文档时，这是你要的大小了，其实，很多设置，如页边距、版式、网格等都可以这样设置，实际上是修改了默认模板。

以下代码能满足你的要求（代码经过调试绝对没问题）

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

---