如何用VBA生成txt脚本
有一个脚本模板,需要把脚本中的几个参数替换成Excel一行中相应单元格中的值,然后另存为txt格式的文本文件,一行一个文件;例如:脚本模板如下:*************...
有一个脚本模板,需要把脚本中的几个参数替换成Excel一行中相应单元格中的值,然后另存为txt格式的文本文件,一行一个文件;
例如:脚本模板如下:
***********
****** ######
**********
****** @@@@
**********
需要把模板中的######替换成excel中单元格A1中的数值,把@@@@替换成excel中单元格B1中的数值,然后把模板文件另存为名为excel中单元格C1中的字符串的txt文件,然后用excel的第二行继续替换,另存。。。
请问要完成上述任务,在excel宏中用VBA怎样编写,最好是有一个按键,用鼠标一点就开始生成脚本!
哪位大侠知道,请赐教啊!!!! 展开
例如:脚本模板如下:
***********
****** ######
**********
****** @@@@
**********
需要把模板中的######替换成excel中单元格A1中的数值,把@@@@替换成excel中单元格B1中的数值,然后把模板文件另存为名为excel中单元格C1中的字符串的txt文件,然后用excel的第二行继续替换,另存。。。
请问要完成上述任务,在excel宏中用VBA怎样编写,最好是有一个按键,用鼠标一点就开始生成脚本!
哪位大侠知道,请赐教啊!!!! 展开
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
Sub 另存本表为TXT文件()
Dim FullName As String, tRan As Range
Application.ScreenUpdating = False
Set tRan = Range("A1")
Do While tRan <> ""
FullName = ThisWorkbook.Path & "\" & tRan.Offset(0, 2) & ".txt"
Open FullName For Output As #1
Print #1, "***********"
Print #1, "****** " & tRan
Print #1, "**********"
Print #1, "****** " & tRan.Offset(0, 1)
Print #1, "**********"
Close #1
Set tRan = tRan.Offset(1, 0)
Loop
Application.ScreenUpdating = True
MsgBox "生成完毕", , "http://www.excelba.com"
End Sub
Dim FullName As String, tRan As Range
Application.ScreenUpdating = False
Set tRan = Range("A1")
Do While tRan <> ""
FullName = ThisWorkbook.Path & "\" & tRan.Offset(0, 2) & ".txt"
Open FullName For Output As #1
Print #1, "***********"
Print #1, "****** " & tRan
Print #1, "**********"
Print #1, "****** " & tRan.Offset(0, 1)
Print #1, "**********"
Close #1
Set tRan = tRan.Offset(1, 0)
Loop
Application.ScreenUpdating = True
MsgBox "生成完毕", , "http://www.excelba.com"
End Sub
本回答被提问者采纳
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |