excel文件导出为txt文件,文件名等于一个单元格内容,请问大家有什么好办法?
3个回答
展开全部
就上图说,是不是导出的txt文件内容只需要到第二行,而文件名则是其下若干行的一个"文件命名"下一个单元格的内容?
先给你一段代码,是完整复制为txt文档的.按alt+f11 双击左侧的表名,在右侧复制以下代码,然后运行名为aa的宏即可.
Sub aa()
Do
r = r + 1
Loop Until Cells(r, 1) = "文件命名"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(r + 1, 1) & ".txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub
如果txt文件的内容不含有文件命名那两格内容的 办法倒是有,不过比较麻烦.有疑问可以追问.
先给你一段代码,是完整复制为txt文档的.按alt+f11 双击左侧的表名,在右侧复制以下代码,然后运行名为aa的宏即可.
Sub aa()
Do
r = r + 1
Loop Until Cells(r, 1) = "文件命名"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(r + 1, 1) & ".txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub
如果txt文件的内容不含有文件命名那两格内容的 办法倒是有,不过比较麻烦.有疑问可以追问.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询