精华内容
下载资源
问答
  • vba编写的excel批量转换为 ,xls格式、xlsx格式 、csv格式、或pdf格式。 使用界面如下: 解压缩,用office的Excel打开《vba批量另存为工具.xlsm》文件,启用宏 选择转换文件,ctrl A 本目录下文件全选,...

        多个Excel文件如何批量存成xls格式、2003格式、2007格式、2010格式、xlsx格式 、csv格式、或pdf格式,或格式之间进行转换的工具提供如下:

       下面是 vba编写的excel批量转换为 ,xls格式、xlsx格式 、csv格式、或pdf格式的工具。用office打开就可以使用。

        使用界面如下:

         

     

     

    解压缩,用office的Excel打开《vbaPLLCW.xlsm》文件,启用宏

        选择转换文件,ctrl  A 本目录下文件全选,注意去掉后缀后不要有名称相同的,不然会报不能打开相同名称工作薄错误。

          点击执行,选择另存的目录,注意不要选择原来的目录,默认覆盖目录中已有文件。

        下载地址: www.excelfb.com  点击:  批量转换Excel格式    下载后解压

       核心代码:

    ‘点击执行则将listBox1中的文件执行批量另存为
    Private Sub CommandButtonRun_Click()
        Dim saveFolderSel As String
        Dim saveType As String
        saveFolderSel = SelectFolder()
        If Len(saveFolderSel) <= 0 Then
            MsgBox ("未选择保存的目录")
        End If
        saveType = GetSaveType()
        If Len(saveType) <= 0 Then
            MsgBox ("未选择保存的文件类型")
        End If
        
        If Len(saveType) > 0 And Len(saveFolderSel) > 0 Then
    
            saveFolder.Caption = "另存到:" + saveFolderSel
            
            Dim allCount As Long
            allCount = ListBox1.ListCount
            With ListBox1
                For i = 0 To .ListCount - 1
                    LabelShowInfo.Caption = "正在处理第" + Str(i + 1) + "个,总共" + Str(allCount) + "个"
                    Dim filePath As String
                    filePath = .List(i)
                    Call SaveAs_DelDefaultMaxRowCol(filePath, saveFolderSel, saveType)
                    LabelShowInfo.Caption = "正在处理第" + Str(i + 1) + "个,总共" + Str(allCount) + "个"
                Next
                
            End With
            LabelShowInfo.Caption = ""
            MsgBox ("全部完成,确定后程序退出,记住另存为的目录:" + saveFolderSel)
    
        
        End If
        
        
    End Sub
    ‘按照格式另存为
    Sub SaveAs_DelDefaultMaxRowCol(file As String, folder As String, saveType As String)
    
        
        Dim fileName As String
        fileName = GetFileNameByFilePath(file)
        
        Dim saveFilePathStr As String
        
        saveFilePathStr = folder + "\" + fileName + saveType
    
        If saveType = ".xlsx" Then
            Workbooks.Open fileName:=file
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs fileName:=saveFilePathStr, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        ElseIf saveType = ".xls" Then
            Workbooks.Open fileName:=file
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs fileName:=saveFilePathStr, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
            ActiveWorkbook.Save
           ActiveWorkbook.Close
        ElseIf saveType = ".csv" Then
            Workbooks.Open fileName:=file
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs fileName:=saveFilePathStr, FileFormat:=xlCSV, CreateBackup:=False
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        ElseIf saveType = ".pdf" Then
            Workbooks.Open fileName:=file
            Application.DisplayAlerts = False
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=saveFilePathStr, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            ActiveWorkbook.Close
        End If
    
        Application.DisplayAlerts = True
    End Sub
    

     

    展开全文
  • Excel批量合并 / 批量另存

    千次阅读 2021-01-10 13:04:18
    xls另存为xlsx 在要合并和文件同级目录下, 新建一个Excel文件,按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 '***********访问当前文件夹下所有子...

    xls另存为xlsx

    在要合并和文件同级目录下, 新建一个Excel文件,按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

    '***********访问当前文件夹下所有子文件夹及文件,
    Dim iFile(1 To 100000) As String
    Dim count As Integer
    Sub xls2xlsx()
        iPath = ThisWorkbook.Path
        On Error Resume Next
        count = 0
        zdir iPath
        For i = 1 To count
            If iFile(i) Like "*.xls" And iFile(i) <> ThisWorkbook.FullName Then
                MyFile = iFile(i)
                FilePath = Replace(MyFile, ".xls", ".xlsx")
                If Dir(FilePath, 16) = Empty Then
                    Set WBookOther = Workbooks.Open(MyFile)
                    Application.ScreenUpdating = False
                    ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
                    WBookOther.Close SaveChanges:=False      '解决不能close 文件问题
                    Application.ScreenUpdating = True
                End If
            End If
        Next
    End Sub
    Sub zdir(p)       '访问当前文件夹下所有子文件夹及文件
      Set fs = CreateObject("scripting.filesystemobject")
      For Each f In fs.GetFolder(p).Files
        If f <> ThisWorkbook.FullName Then count = count + 1: iFile(count) = f
      Next
      For Each m In fs.GetFolder(p).SubFolders
          zdir m
      Next
    End Sub
    

    合并多个文件是一个文件的多个sheet

    新建一个Excel文件,按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

    合并后,查看sheet总数:
    在任意一个单元格输入函数
    =INFO("numfile")

    Sub CombineWorkbooks()
    Dim FilesToOpen, ft
    Dim x As Integer
    Application.ScreenUpdating = False
    On Error GoTo errhandler
    FilesToOpen = Application.GetOpenFilename _
    (FileFilter:="Micrsofe Excel文件(*.xlsx), *.xlsx", _
    MultiSelect:=True, Title:="要合并的文件")
    If TypeName(FilesToOpen) = "boolean" Then
    MsgBox "没有选定文件"
    'GoTo errhandler
    End If
    x = 1
    While x <= UBound(FilesToOpen)
    Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
    wk.Sheets().Move after:=ThisWorkbook.Sheets _
    (ThisWorkbook.Sheets.Count)
    x = x + 1
    Wend
    MsgBox "合并成功完成!"
    errhandler:
    'MsgBox Err.Description
    'Resume errhandler
    End Sub
    
    展开全文
  • 快速批量另存工作表

    千次阅读 2019-01-26 03:31:16
    不少Excel用户都遇到过这样的场景,一个工作簿中有N多个工作表,经常需要把全部(或者还多个)工作表单独另存Excel文件,然后可能邮件发送个不同部门。操作步骤如下: 选择工作表 选中全部单元格 拷贝 新建工作簿...

    不少Excel用户都遇到过这样的场景,一个工作簿中有N多个工作表,经常需要把全部(或者还多个)工作表单独另存为Excel文件,然后可能邮件发送个不同部门。操作步骤如下:

    1. 选择工作表
    2. 选中全部单元格
    3. 拷贝
    4. 新建工作簿文件
    5. 粘贴(假设不需要格式调整,省略N步)
    6. 保存工作簿

    这个操作并不复杂嘛!没错,如果老板告诉你,有100个工作表需要处理,每天都要做一遍,是否心中顿时飘过一万只某某马 …

    * 图片来自互联网,版权属于原作者
    如果你还在手忙脚乱的选中多个工作表,直到手抽筋,请先移步这里:

    如何选中多个工作表?

    STEP 1. 选中需要导出的工作表(一个 / 多个 / 全部)
    STEP 2. 按下快捷键执行下面代码
    STEP 3. 木有了 … (泡杯咖啡撩妹去吧)

    Sub ExportSheets()
        Dim wsh As Worksheet
        Dim strPath As String
        strPath = ThisWorkbook.Path & "\"
        For Each wsh In ActiveWindow.SelectedSheets
            wsh.Copy
            With ActiveWorkbook
                .SaveAs strPath & wsh.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
                .Close
            End With
        Next wsh
    End Sub
    

    工作也可以这么简单。

    展开全文
  • csv2excel批量转换工具

    2015-04-28 15:42:28
    csv文件批量转换为xls,代替手工用EXCEL打开再另存为的麻烦。
  • VBA代码模块,EXCEL图片一键另存为 Sub Opiona() 'On Error Resume Next '// 发生错误,自动执行下一句,就是忽略错误 Application.ScreenUpdating = False '//关闭屏幕刷新 Application.DisplayAlerts = False '//...

    VBA代码模块,EXCEL图片一键另存为

    Sub Opiona()
    
    'On Error Resume Next    '// 发生错误,自动执行下一句,就是忽略错误
    Application.ScreenUpdating = False '//关闭屏幕刷新
    Application.DisplayAlerts = False '//关闭系统提示
    t = Timer   '//开始时间
    For Each shap In ActiveSheet.Shapes  '//循环所有图片
        Set Rng = shap.TopLeftCell  '//Range 对象,它代表位于指定对象左上角下方的单元格
        'MsgBox shap.Name & "--" & Rng.Address
        shap.Copy  '//复制图片
           With ActiveSheet.ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart  '//建立一个新图片
                .Paste  '//将复制的图片放进去
                .Export ThisWorkbook.Path & "/" & Range(Rng.Address).Value & ".JPG"  '//导出为图片格式,如JPG,GIF
                .Parent.Delete   '//删除自己建立的图片
            End With
    Next
    Application.ScreenUpdating = True '//恢复屏幕刷新
    Application.DisplayAlerts = True '//恢复系统提示
    MsgBox "一共用时:" & Format(Timer - t, "#0.0000") & " 秒"  '//提示所用时间
    End Sub
    展开全文
  • EXcelVBA另存之后删除按钮及宏代码
  • 该脚本可以批量替换 指定目录(包含子文件夹)下Excel表格的字符串。 ※1.请确保已经安装python/2.请确保已经安装openpyxl模块(安装方法参照百度)。 ※脚本使用方法 1.执行脚本 2.按照提示输入Excel表格的路径。...
  • Excel中,我们可以使用“另存为”功能将工作簿转换为CSV文件,但是您知道如何将多个Excel文件批量转换为单独的CSV文件吗? 在本文中,我介绍了一个VBA代码,用于将文件夹中的所有Excel文件批量转换为Excel中的CSV...
  • excel批量转为csv文档

    千次阅读 2019-01-02 21:01:07
    file_excel=pd.read_excel(file,sheetname=0) file_excel.to_csv(to_file,index=False) if __name__=='__main__': #原文档所在目录 source_path='E:\\test' #转换文档存储目录 object_path='E:\\test1' #...
  • import os.path import time import pandas as pd ...LOGGER = logger.MyLogger(“excelUtils”).getLogger() class ExcelReader: “”" 读取excel工具 “”" def __init__(self, path, file_suffix=".xl...
  • 一个excel文件就是一个excel工作簿例如abc.xls,一个工作簿中包含1个到若干个工作表例如sheet1,也就是说工作簿是由工作表组成的。 下面我们就来了解一下工作簿的操作 打开工作簿 Application.displayAlerts=...
  • excel 批量转换格式 为csv

    千次阅读 2020-06-01 17:24:26
    准备2个目录,一个为原始excel文件目录,一个为转换后目录 例如:C:\1111\xlsx C:\1111\csv 1、新建excel文件,开发工具-VB 如没有开发工具选项,按如下步骤: 文件---选项---自定义功能区----开发工具 打钩---...
  • 工具/原料 excel 2013 地址链接:http://pan.baidu.com/s/1c1ZABlu 密码:d3rc 方法/步骤 ...首选我们把需要导出为CVS的Excel文件整理集中到一个文件夹中。...新建一个EXCEL表...
  • 上一篇文件用VBA介绍了如何实现一键按列分类汇总并保存单独文件,代码有几...思路与代码详解核心思路基本和VBA的一致:读取excel数据 – 获取“归属事业部”列中事业部种类数 – 按每个事业部进行整行提取 – 保存xl...
  • 1、CSV后缀格式批量转换为XLSX后缀格式 2、XLS后缀格式批量转换为XLSX后缀格式 3、XLSX后缀格式批量转换为CSV后缀格式 4、XLSX后缀格式批量转换为XLS后缀格式
  • 但是要发给各个课室excel,因此还要表的美观才行,但是呢python调试美观确实不如excel方便,所以就想着先调试好格式后,在将python处理的数据粘贴进去,但是呢始终没有找打方法实现python修改excel内容并另存excel。...
  • 其中的App()是Xwings模块中的函数,该函数有两个常用参数:参数visible用于设置Excel程序窗口的可见性,如果为True,表示显示Excel程序窗口,如果为False,表示隐藏Excel程序窗口;参数add book用于设置启动xcel程序...
  • NULL 博文链接:https://992012.iteye.com/blog/1856853
  • 可以将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换。 Sub TO_PDF() On Error Resume Next Dim ALL_FILE As String, SourcePath As String, NewSaveFile As...
  • 通过python将xlsx格式文件和xls格式文件转化为csv格式文件,python脚本所使用了第三方库都在压缩包中包含,具体安装可以查看压缩包中Readme文件
  • VBA一键sheet页另存Excel批量拆分Excel sheet页为单个文档。
  • 某个文件夹下的全部excel文件为: 需要得到文件名称,获取每个文件里的备注评分。 import os import xlrd import openpyxl import re import pandas as pd # 1.获取该目录下的所有的文件名称 pathDir = os....
  • excel中的多个sheet自动另存为以sheet名称命名的excel文件,用delphi开发,含源码。
  • 结合前两篇高手代码,拼出以下代码: Public Sub WriteCSV() Dim sheet_name, bookPath, fileName As String Dim sheet_count,i As Integer sheet_count = Sheets.Count bookPath = ThisWorkbook.Path ...
  • 1、获取指定目录下所有Excel文件 import os #读取指定目录及其子目录下的所有excel文件 def search_filenames(file_dir): file_names = [] for root, dirs, files in os.walk(file_dir): #print(root) #当前目录路径...
  • 在网上找了个EXCEL转化为TXT的JAVA代码,改了下使得可以批量的转化EXCEL为TXT: 当然,我们这里需要用到三个jar包,可以去http://apache.freelamp.com/poi/release/bin/下载第一个文件名为:poi-bin-3.1-FINAL-...
  • 点击菜单栏中的宏,创建一个宏,粘贴后附代码,然后运行getcsv这个宏,会跳出一个窗口,选择所有你要转化的xls文件。... 选中以后,等一段时间,再回到xlsx文件下,会多一...'1)批量转化csv参考:http://club.excelhome...
  • 用VBA将xml格式的excel另存为xlsx

    千次阅读 2019-06-15 01:46:26
    需求背景 需要将从数据库提取的数据交给用户,由于数据量较大(好几十万行),若导出...但由于工具限制,软件无法直接导出为Excel格式,但可导出Excel XML Spreadsheet,后缀名为xml,Excel可直接打开。 后面想更进...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,765
精华内容 1,106
关键字:

excel批量另存