如何用VB 保存文件名利用excel表格中B11的内容为txt文件名？

Question

On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("模板")
Set fs = CreateObject("Scripting.FileSystemObject")
Set fi = fs.CreateTextFile("d:\资料1.txt", True) '在D盘里边创建 资料2.COA

需要将资料1.txt，自动命名B11的内容 K418799-001.txt

Answer 1

fm1=保文件路径

m2="\" & activesheet.range("b11").text

ActiveWorkbook.SaveAs Filename:=fm1 & m2 & ".txt", FileFormat:= _

        xlUnicodeText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

        , CreateBackup:=False

参考

怎样批量Excel文件转文本文件