zoukankan      html  css  js  c++  java
  • 使用宏批量将多个csv文件转成excel文件

    在一个压缩文件中有100多个csv文件,要求要将此100多个csv文件转成excel文件,名字命名不变,有三种方式:

    1. 傻不拉几的复制粘贴法

    2. 一个一个打开csv文件,另存为xls文件,工作量也很大

    3. 用word中自带的宏编程
    ① 新建一个excel
    ② 点击工具栏(tools)-》宏(macro)-》visual basic editor -》view-》code 复制下列代码,加粗的部分为需要转格式的文件的位置
    ③ 点击菜单栏的run,即可运行
    测试,该段代码使用的是word2010版,03版得不适用

    若WPS,选择开发工具---VB编辑器---ThisWorkBook---粘贴代码,工具置灰为没有安装VBA,网上下载安装即可。

    使用时,打开这个表格文件,只需替换目标目录运行这个宏即可。
    Sub 宏1()
    '
    ' 宏1 宏
    '

      'ChDir "C:"
        Dim sDir As String
        Dim curdir As String
       

        '目标目录

        curdir = "E: estData"

        'curdir = ThisWorkbook.Path

        sDir = Dir(curdir & "*.csv")
        

         While Len(sDir)

            Workbooks.Open Filename:=curdir & "" & sDir
            Dim temp As String
            temp = Left(sDir, Len(sDir) - 4)
            ActiveWorkbook.SaveAs Filename:=curdir & "" & temp & ".xls", _
                FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
                ReadOnlyRecommended:=False, CreateBackup:=False
            ActiveWorkbook.Close
           sDir = Dir
        Wend
       
    End Sub

  • 相关阅读:
    SQL数据库常用命令
    软件测试基础学习
    单链表面试题集合
    常见算法排序,冒泡排序,快排,堆排,归并排序
    CSS学习笔记(2)
    CSS学习笔记(1)
    sublime快捷键
    Sublime Text 中文输入法无法跟随怎么办
    网站收集
    Centos7安装Jenkins
  • 原文地址:https://www.cnblogs.com/testlife007/p/5076699.html
Copyright © 2011-2022 走看看