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

1、vbs简单的使用，将excel转出txt

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

1.1、表格设计：

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

1.2、excel按钮控制宏

1. 插入一个宏控制按钮，”开发工具->插入->指定一个按钮触发宏”
2. 编写vbs宏代码
3. 保存提示将*.xlsm格式的。这样下次打开excel文件，你的宏定义还会存在。
4. 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

• 示例图