把Excel的内容输入到txt内，并转换成bat文件

 背景：比如说想生成一个批量转换htm文件为txt的bat文件，用cmd可以很好实现，但是对于不熟悉电脑的人不太友好，那么如果要写到excel vba里面应该怎么操作？

-------------------------------------------------2023/12/04-------------------------------------------------------------

在excel里面的D1输入文件运行的路径，在C2预设ren代码。

现在只需要在路径前面和后面加上所需要的内容，然后加上C2，写入txt，然后再把txt的后缀改成bat文件即可。

代码如下，根据需求调整即可，代码很简单。

Sub write_to_txt()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sheet5")
‘这里的sheet5也根据实际情况来更改

Dim filepath As String
this_path = ThisWorkbook.Path
that_path = this_path & "\rename-bat.txt"
'这里rename-bat.txt替换成自己需要的文件名

Dim fileNumber As Integer
 fileNumber = FreeFile
ThisWorkbook.Sheets("sheet5").Cells(1, 3) = "cd/d" & """" & that_path & """"
'sheet5.cells(1,3)里面记入需要处理的路径

Open that_path For Output As #1
Dim row As Range
For Each row In Range("C1:C2")
’这里的c1和c2的内容也是自己决定的，本次是定义了C1的值，C2里面是我预设的值。
’

Print #1, row
Next row

Close #1
Name that_path As this_path & "\Rename_OK.bat"
‘将生成的txt转换成bat文件
End Sub