如何在.bat中保存excel文件？

我在宏中有这段代码，用于将文件保存在csv中。现在是否可以将此文件保存为.bat格式

这是我使用的代码：

Public Sub Export_File_as_CSV()

Dim wbkExport As Workbook
Dim shtToExport As Worksheet

Set shtToExport = ThisWorkbook.Worksheets("Export")     
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                      
wbkExport.SaveAs Filename:="C:\Users\" & Environ("Username") & "\Desktop\User_Tableau.csv", FileFormat:=xlCSV, Local:=True
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
Sheets("Export").Select
Range("A1").Select

End Sub

否则，我必须将其保存在Excel中，然后再次转换为.txt文件，然后再转换为.bat文件。我尝试用宏自动化所有这些步骤，并将其保存在.bat文件中

非常感谢你的帮助

---

谢谢你

如果将来有人需要它，我找到了解决办法！显然，我真的很接近。 这就是我所做的改变，它起了作用

代码：

Public Sub Export_File_as_BAT()

Dim wbkExport As Workbook
Dim shtToExport As Worksheet

'Call Artifficial_Groups
'Call filterout_for_export
'Call RemoveDuplicates
'Call Allocate_BEZ

Set shtToExport = ThisWorkbook.Worksheets("Export")     
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                      
wbkExport.SaveAs Filename:="C:\Users\" & Environ("Username") & "\Desktop\User_Tableau.bat", FileFormat:=xlTextPrinter, Local:=True
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
Sheets("Export").Select
Range("A1").Select

End Sub

---

这看起来像是对代码的请求。是的，我想代码中有一些改进，我试图保存为.bat文件并更改文件格式：=xlbat，但它不起作用。不，宏的语法不会被

cmd

识别。它绝对不是“某些重要内容”，而是以批处理格式进行的完全重写。正如另一个侧面说明的那样，

.csv

是逗号分隔的值文件，而不是excel。Excel以二进制而不是纯文本保存。提示：请查看VBScript。如果您打算将其作为外部文件运行，它将帮助您实现这一点。最好使用

wbkExport.SaveAs Filename:=Environ（“USERPROFILE”）和“\Desktop\User\u Tableau.bat”，FileFor…