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
  • 示例图

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值