利用vbs脚本将excel转出txt

/ vbs工具 / 没有评论 / 70浏览

vbs简单的使用,将excel转出txt

每当配置表修改,都需要从"文件->另存为->Unicode文本(*.txt)"导出,这些繁琐的操作大大影响工作效率。主要主要还不能控制导出的文本编码格式。 理想操作,在excel点击按钮直接一键导出txt文本,

表格设计:

  1. 第一行为操作行,记录excel导出的路径文件名,导出按钮
  2. 第二行为字段备注,不需要导出到txt中
  3. 其余为正常单元格。

excel按钮控制宏

  1. 插入一个宏控制按钮,"开发工具->插入->指定一个按钮触发宏"
  2. 编写vbs宏代码
  3. 保存提示将*.xlsm格式的。这样下次打开excel文件,你的宏定义还会存在。
  4. api参考api链接http://www.jb51.net/shouce/vbs/vtoriVBScript.htm

Sub run()
    Column = Cells(3, Columns.Count).End(xlToLeft).Column ' 按照第三行的标准开始计算有多少列数据
    Row = Sheet1.Range("C1").Value ' 暂时写死在单元格里
    'MsgBox (Column)
    FilePath = Sheet1.Range("A1").Value ' 获取单元格A1值(txt保存路径)
    
    Dim C, Ct, TLines
    
    Set C = CreateObject("Scripting.FileSystemObject")
    Set Ct = C.CreateTextFile(FilePath, True, True) ' 创建导出的txt文件(ANSI编码)
    
    For TLines = 1 To Row ' 遍历行
        For Row = 1 To Column ' 遍历列
            Ct.Write (Sheet1.Cells(TLines + 2, Row).Value & Chr(9)) '跳过2行,第一行为操作、第二行为备注
        Next Row
        Ct.WriteLine
    Next TLines
       
    Ct.Close
    
    MsgBox ("客户端输出完成!")

End Sub

点击这里给我发消息
嘿!有什么能帮到您的吗?