精华内容
下载资源
问答
  • VBA从工作表另存为工作簿

    千次阅读 2020-08-13 17:07:10
    Sub 宏1() Application.ScreenUpdating = False '屏幕更新关闭 ...'另存在这个路径 名字是工作表名字.xls ActiveWorkbook.Close Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
    Sub 宏1()
     Application.ScreenUpdating = False   '屏幕更新关闭
     Application.DisplayAlerts = False    '显示和预警提示关闭
     Dim folder As String   'String字符串
     folder = ThisWorkbook.Path & "\ 班级 "
     If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder   'vbDirectory文件夹   MkDir创建目录或文件夹
     Dim sht As Worksheet
     For Each sht In Worksheets
     sht.Copy
     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & sht.Name & ".xls"   '另存在这个路径  名字是工作表名字.xls
     ActiveWorkbook.Close
     Next
     Application.ScreenUpdating = True
     Application.DisplayAlerts = True
    End Sub
    
    展开全文
  • 代码实现的是从一个工作簿中单独保存其中一个工作表,并以单元格数据命名新工作簿名称
  • Export Worksheet Option Explicit Sub exportSheet() Const FolderPath As String = "C:\Test\" Const FileName As String = "ART.xlsx" Const SheetName As String = "Master List" ... On Error Resume Next...

    Export Worksheet

    Option Explicit
    
    Sub exportSheet()
        
        Const FolderPath As String = "C:\Test\"
        Const FileName As String = "ART.xlsx"
        Const SheetName As String = "Master List"
        
        On Error Resume Next
        Workbooks(FileName).Close
        On Error GoTo 0
        
        With ThisWorkbook
            Application.ScreenUpdating = False
            .Sheets(SheetName).Copy
            With ActiveWorkbook
                Application.DisplayAlerts = False
                .SaveAs FolderPath & FileName, xlOpenXMLWorkbook ' 51 (.xlsx)
                Application.DisplayAlerts = True
                .Close False
            End With
            ' Open Folder Path in Windows File Explorer.
            '.FollowHyperlink FolderPath
            '.Close
            Application.ScreenUpdating = True
        End With
        
    End Sub
    展开全文
  • VBA-保存指定工作表为工作簿文件

    千次阅读 2020-02-26 16:53:39
    如果需要将工作簿中的工作表单独保存一个工作簿文件,可以使用 Worksheet 对象的 Copy 方法,将指定的工作表复制到一个新建的工作簿。 Sub test() On Error GoTo line ActiveSheet.Copy '复制工作表为工作簿 ...

    保存指定工作表为工作簿文件

    1、指定的单一工作表

    如果需要将工作簿中的工作表单独保存为一个工作簿文件,可以使用 Worksheet 对象的 Copy 方法,将指定的工作表复制到一个新建的工作簿。

    Sub test()
        On Error GoTo line
        ActiveSheet.Copy  '复制工作表为工作簿
        ActiveWorkbook.Close savechanges:=True, Filename:="d:\123.xlsx" '保存当前工作簿即可
        Exit Sub
    line:
        ActiveWorkbook.Close False
    End Sub
    

    2、所有工作表保存为工作簿

    '方法一:
    Sub test1()
        Application.ScreenUpdating = False '屏幕不更新
        Dim i As Integer
        Dim j As Integer
        Dim str As String
        j = Worksheets.Count
        For i = j To 1 Step -1
            Worksheets(i).Copy
        	str = ActiveWorkbook.Sheets(1).Name   '将工作簿名称改为工作表名称
            ActiveWorkbook.SaveAs Filename:="D:\data\" & str & ".xlsx"
            ActiveWorkbook.Close savechanges:=True
        Next
    	Application.ScreenUpdating = True
    End Sub
    
    '方法二:
    Sub test()
    Dim sht As Worksheet
    Application.ScreenUpdating = False
    For Each sht In Sheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"
        ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
    End Sub
    
    展开全文
  • Excel用代码将工作表保存为工作簿

    千次阅读 2017-12-21 13:47:48
    今天,做会计的朋友问我一个问题,怎么讲Excel的工作表拆分成单独的文件,并给我发了一个链接。  https://jingyan.baidu.com/article/75ab0bcb0ecc67d6874db27e.html  说这个在他那执行不了,他还以为是...

    今天,做会计的朋友问我一个问题,怎么讲Excel的工作表拆分成单独的文件,并给我发了一个链接。

     https://jingyan.baidu.com/article/75ab0bcb0ecc67d6874db27e.html 

    说这个在他那执行不了,他还以为是office是非正版,专门买了个正版的。

    随便试了下,发现能执行,让他截图,发现是他的工作表都是 用日期命名的,比如2016.1,然后拆分的文件就直接把 .1当成后缀名了。

    修改下,强制将保存的文件以xls结尾,让他拿去执行了。我还真是第一次知道excel 还能用 代码来执行批量操作,又学到了。

    Private Sub 分拆工作表()
           Dim sht As Worksheet
           Dim MyBook As Workbook
           Set MyBook = ActiveWorkbook
           For Each sht In MyBook.Sheets
               sht.Copy
               ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xls", FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
               ActiveWorkbook.Close
           Next
           MsgBox "文件已经被分拆完毕!"
       End Sub


    展开全文
  • 以下是将工作表另存为可读的清晰PDF文件的方法。 Excel文件PDF (Excel Files as PDFs) There are many scenarios when you may want to save an Excel document as a PDF file instead of a spreadsheet. For ...
  • Sub sheet另存为工作簿() Sheets(Array("人员档案", "明细一", "明细二", "明细三")).Copy Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "/" & "数据备份.xls" End Sub
  • 一个excel文件就是一个excel工作簿例如abc.xls,一个工作簿中包含1个到若干个工作表例如sheet1,也就是说工作簿是由工作表组成的。 下面我们就来了解一下工作簿的操作 打开工作簿 Application.displayAlerts=...
  • EXcelVBA另存工作簿之后删除按钮及宏代码
  • 另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码,即高效又避免工作簿名称杂乱无章。 公司各种系统需要各式各样的导入模板,需要快速的制作模板另存为特定...
  • 需求:某个字段需要基于当前数据和十几个独立的源文件定期整理,整理后的文件会多出0到n条数据。目前采用全量更新的方式导入这些数据。即,需要提供包括这几条数据在内的所有数据的完整文件。而这个完整文件,...
  • VBA单元格、工作表工作簿

    千次阅读 2019-04-30 23:08:35
    详解VBA单元格、工作表工作簿各种表示、方法,注意事项。
  • Tableau 使用的是工作簿工作表文件结构,这与 Microsoft Excel 十分类似。工作簿包含工 作表,后者可以是工作表、仪表板或故事。 一个工作表包含单个视图以及其侧栏中的功能区、卡、图例以及“数据”和“分析”窗...
  • Sub 分开存工作薄() Dim Sh As Worksheet Dim Sh1 As Worksheet Dim Wk As Workbook Dim iPath As String ... "\" '保存路径为当前工作簿所在路径 '将工作表分别复制到部门或基层工作薄中 For Each Sh .
  • 比如文件夹下有test.xlsm(存放宏的文件)、a.xlsx(Sheet1)、b.xlsx(Sheet1)以及x.xlsx(Sheet xxx第2个Sheet) 我们的任务是将a.xlsx的Sheet1和b.xlsx的Sheet1复制到x.xlsx的Sheet xxx之前 确保启动时光标在...
  • 工作表1导出来成为一个单独的工作簿,命名1.xlsx 将工作表2导出来成为一个单独的工作簿,命名2.xlsx 将工作表3导出来成为一个单独的工作簿,命名3.xlsx 将工作表4导出来成为一个单独的工作簿,命名4.xlsx 将工作表5导...
  • 本规范尝试满足大型主机、微型主机、个人工作站、和TACs 的不同需求。例如,容易实现协议的设计。 Java EJB中有、无状态SessionBean的两个例子 两个例子,无状态SessionBean可会话Bean必须实现SessionBean,获取系统...
  • 使用Python批量处理工作簿工作表 批量新建并保存工作簿 批量打开一个文件夹中的打开工作簿 批量重命名一个工作簿的所有工作表 批量重命名多个工作簿 批量重命名多个工作簿中的...按条件将一个工作表拆分多个工作簿
  • 已知有BS、HR等多个部门,分别存放在独立的以部门命名的工作表中,现需要将多个部门的工作表合并包含所有部门的一张工作表。实现代码如下:Sub MergeToOneSheet() '取表头 Range("A1:D1") = Sheets(2)....
  • 如图所示,如何利用VBA将该工作簿中的各个工作表分别保存至单独的工作簿中,并将工作簿名称以工作表标签命名? 部门 市场部 员工编号 姓名 0215 林革壮 0233 李卫卿 0247 申玲 ...
  • 1. 本节课将您演示,如何将工作簿导出PDF便携式文档格式的文件。PDF便携式文档可以方便文档的传播和使用。首先点击左上角的文件选项卡。 2. 在左侧的命令列表中,选择导出命令,进入导出页面。 3. 然后点击...
  • VB 复制工作表

    2010-06-08 08:47:01
    VB 复制工作表 VB 复制工作表 VB 复制工作表
  • Excel VBA工作簿工作表的操作

    千次阅读 2017-05-13 00:46:53
    1.保存当前工作簿Public Sub保存当前工作簿() Dim wb As Workbook Set wb = ThisWorkbook '可指定...End Sub如果是第一次保存工作簿,请使用SaveAs方法该文件指定文件名Public Sub 另存工作簿() Dim wb As Workbook
  • Excel表格的合并分为两种情况,一种是工作表合并、一种是工作簿合并。 一个Excel表格叫做工作簿,每个工作簿中的Sheet叫做工作表。 针对这两种情况的表格合并,今天我们来做个小结,看看都要哪些方法。 不管你...
  • 今天跟大家分享一下Excel怎么将文件另外保存 ...5.在【新工作簿命名】选项内录入工作簿名称 6.单击【浏览】选择保存位置,最后点击【确定】即可完成 7.完成效果如下图所示 ...
  • 一、批量新建并保存工作簿
  • 参考 参照以下文章学习练习 ...一 创建一个新工作簿,并写点东西进去 Sub create_new_wb() Dim wb As Workbook '这个定义可以不要,不知道后面会不会有问题 Dim sh As Worksheet '这个定义可以不要,不知道后...
  • 如何为当前工作簿自动备份一个副本至指定目录,并以日期和时间文件名? 实现代码 Option Explicit Sub 备份工作簿() Dim FileFullName As String Dim FilePath As String FilePath =..
  • 有时并不是所有的数据都能共享,这时就需要把数据按类别拆分到不同的工作表或者工作簿里。一.实例要求:下图是某水果超市的进货需求表。我们需要按产品的名称汇总出各个品种水果的需求量,而且要把不同的数据放在...
  • EXcel VBA从一个工作簿的指定区域拷贝内容到另一个工作簿的指定区域) Sub createtable() Dim Quantity As Long Dim loop_i As Long Dim position As String Quantity = ActiveSheet.Range("D45") If IsEmpty(Range...

空空如也

空空如也

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

当前工作表另存为新工作簿