zoukankan      html  css  js  c++  java
  • 关于使用宏将csv批量转换成xls的分享

    最近在使用遇到一个问题需要把csv格式的文件转成xls,随便新建一个excel,然后打开,选择“开发工具”,找到下图“宏”,如果跟下图一样的话就需要先启用宏,启用之后可以直接把下面的代码直接复制到代码区,修改一个路径就好。

    以下代码试讲文件名为1.csv的文件,转化为2.xls

    'ChDir "C:"
    Dim sDir As String
    Dim curdir As String
    '要转换的文件路径
    curdir = "C:UsersGHZDesktop数据文件一些作业数据样例1"
    '转换后存文件路径
    targetdir = "C:UsersGHZDesktop数据文件转换后2"
    
    '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:=targetdir & "" & temp & ".xls", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
    sDir = Dir
    Wend

     ok,今天的分享就到这里了,如果有有疑问欢迎留言~

  • 相关阅读:
    Windows XP SP1 Privilege Escalation
    A way escape rbash
    A trick in Exploit Dev
    wget.vbs & wget.ps1
    IDEA创建普通java和web项目教程
    初始Mybatis
    JAVA高级面试题
    JVM执行原理
    java-- 位运算
    JAVA---XML
  • 原文地址:https://www.cnblogs.com/guhuazhen/p/11179932.html
Copyright © 2011-2022 走看看