精华内容
下载资源
问答
  • 问题描述:若干个工作簿,每个工作簿里有一个工作表,如何利用VBA把若干工作簿里的表保存到一个新建工作簿里,并单独成表?
  • VBA-新建工作簿

    2020-02-26 12:09:43
    新建工作簿 这节内容介绍如何应用VBA自动创建工作簿,并修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子: Sub addnewbook() Dim i As Integer Dim shtname ...

    新建工作簿

    这节内容介绍如何应用VBA自动创建工作簿,并修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子:

    Sub addnewbook()
        Dim i As Integer
        Dim shtname As Variant
        Dim newbook As Workbook
        Dim arr As Variant
        Dim sht As Worksheet
        
        shtname = Array("a", "b", "c", "d") '新建工作簿中工作表名称
        arr = Array("1", "2", "3", "4", "5", "6") '工作表中内容
        
        Set newbook = Workbooks.Add '创建工作簿
        With newbook
            .ActiveSheet.Name = shtname(0)
            For i = 2 To 4
                .Sheets.Add after:=.Sheets(newbook.Sheets.Count) '创建工作表
                .ActiveSheet.Name = shtname(i - 1) '更改工作表名字
            Next
            
            For Each sht In .Worksheets
                sht.Range("a1").Resize(1, 6) = arr '修改工作表中内容
            Next
            .SaveAs Filename:="D:\data\1.xlsx" '设置保存路径
            .Close savechanges = True '确定可以更改
        End With
    End Sub
    
    展开全文
  • VBA工作簿练习

    2017-11-16 22:15:00
    练习1:编程创建一个新的工作簿,把工作簿命名为Mybook,并用变量wb表示新建的工作簿,保存在D盘下test文件夹后退出。...Sub新建工作簿() DimwbAsWorkbook Setwb=Workbooks.Add Withwb .SaveAs"d:\test\Mybook"...
    练习1:编程创建一个新的工作簿,把工作簿命名为Mybook,并用变量wb表示新建的工作簿,保存在D盘下test文件夹后退出。
    
    
    1. Sub 新建工作簿 ()  
    2.    Dim wb As Workbook  
    3.    Set wb = Workbooks.Add  
    4.    With wb  
    5.       .SaveAs "d:\test\Mybook"  
    6.       .Save  
    7.       .Close  
    8.    End With  
    9. End Sub 
     
    练习2:使用For Each In 结构变成石像在打开多个工作簿时,判断某个工作簿是否已经打开。
     
    
    
    1. Sub 打开工作簿()  
    2.     Dim wb As Workbook  
    3.     Dim OtherWb As String  
    4.     OtherWb = InputBox("输入工作簿名称:""工作簿 _名称""mybook.xlsx")  
    5.     For Each wb In Workbooks  
    6.         If LCase(wb.Name) = LCase(OtherWb) Then  
    7.             MsgBox "工作簿" & OtherWb & "已经被打开!", vbInformation  
    8.             Exit Sub  
    9.         End If  
    10.     Next  
    11.     MsgBox "工作簿" & 

    本文转自 kirin 51CTO博客,原文链接: http://blog.51cto.com/kirin/640426,如需转载请自行联系原作者

    展开全文
  • 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
    
    展开全文
  • VBA新建工作簿

    2013-11-13 14:32:00
    这就需要在vba新建保存excel文件。掌握几个东西就能很熟练了:1、要想保存在当前目录下,需要调用thisworkbook.path得到当前文件的目录,得到的就是个string值,如“e:\download”。我通常是先定义一个string...

    用程序计算数据,得到不同公司、不同项目的数据结果,最终还要将每个公司的数据结果放在各自的单独文件中。
    这就需要在vba中新建、保存excel文件。
    掌握几个东西就能很熟练了:
    1、要想保存在当前目录下,需要调用thisworkbook.path得到当前文件的目录,得到的就是个string值,如“e:\download”。我通常是先定义一个string变量myPath,然后一上来就myPath=thisworkbook.path进行赋值。
    2、新建工作簿的代码就是workbooks.add,我通常也是先定义一个workbook变量myBook,然后赋值,set myBook=workbooks.add。
    3、修改工作表的名称了,我还是先定义一个worksheet变量mySheet,然后赋值set mySheet=myBook.sheets("sheet1")。再然后进行命名,mySheet.name="data"。
    4、这里,我一般是让新建的工作簿只有一个工作表。所以,一开始我就会设定application.sheetsinnewworkbook=1。这样子新建出来的workbook就只有一个sheet了。
    5、计算完成之后就是保存了。就要调用activeworkbook.saveas。最好都是写包含目录和文件扩展名在内的文件全名。不容易错。前面不是已经得到当前目录了,就是myPath。我一般也是先设定一个string变量myFileName,然后赋值,myFileName=myPath & "\" & "某某某.xlsx"。这里提醒一下的是,(1)不要漏了“\”;(2)连接符&左右都要加空格,要不然vba编译出问题,亲身体验。
    6、关闭文件,调用activeworkbook.close。我一般会让它保存修改内容,就是activeworkbook.close savechanges:=true。免得会出现提示。
    7、如果批量新建,套在for语句里吧。

    转载于:https://www.cnblogs.com/wangzhisheng/p/3421369.html

    展开全文
  • 1.新建工作簿 Sub 新建工作簿() Dim wbk As Workbook '定义wbk为工作簿对象,因为它是一个对象,所以下局用Set来赋值 Set wbk = Workbooks.Add '在Workbooks集合里新增这个工作簿 wbk.SaveAs "c:\123.xls" '保存...
  • NO.139-NO.142内容是:NO.139:如何做到显示工作簿的路径NO.140:如何做到显示工作簿的名称和完全路径NO.141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改NO.142:建立新的工作簿并对新建工作簿进行操作...
  • 如果表格少,操作如下:选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。当如果表格太多呢,以上方法就太罗嗦了。简单方法用VBA,步骤如下:1、创建一个文件夹,将要分离的工作簿放到该文件夹里,...
  • VBA程序的创建,运行及保存

    千次阅读 2018-05-07 18:39:27
    编写VBA程序,实现在活动工作簿中自动新建工作表并将其重命名为“员工考勤”。操作步骤:1.首先打开VBA窗口,点击菜单“插入”“模块”,在工作簿中新建“模块1”,并双击该模块对象打开其代码编辑窗口。2.将光标...
  • 了解更多,观看视频1、准备工作打开Excel后新建一个工作簿,将sheet1工作表标签重命名为"控制面板",删除sheet2、sheet3保存,在"控制面板"的A1至A36单元格内依次输入"七⑴、七⑵、七⑶、七⑷、七⑸、七⑹、七⑺、七...
  • 了解更多,观看视频1、准备工作打开Excel后新建一个工作簿,将sheet1工作表标签重命名为"控制面板",删除sheet2、sheet3保存,在"控制面板"的A1至A36单元格内依次输入"七⑴、七⑵、七⑶、七⑷、七⑸、七⑹、七⑺、七...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧41 新建工作簿文件 12 技巧42 打开指定的工作簿 12 技巧43 判断指定工作簿是否打开 12 43-1 遍历Workbooks集合方法 12 43-2 错误处理方法 12 技巧44 禁用宏则关闭工作簿 12 技巧45 关闭工作簿不显示保存对话框 ...
  • VBA典型的技巧与示例

    2020-08-31 07:34:25
    '程序创建“员工花名册”工作簿保存在本工作簿所在的文件夹中。 Dim Wb As Workbook, sht As Worksheet '定义一个Workbook对象和一个Worksheet对象 Set Wb = Workbooks.Add '新建一个工作簿 Set sht = Wb....
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧41 新建工作簿文件 101 技巧42 打开指定的工作簿 103 技巧43 判断指定工作簿是否打开 106 43-1 遍历Workbooks集合方法 106 43-2 错误处理方法 106 技巧44 禁用宏则关闭工作簿 107 技巧45 关闭工作簿不显示保存...
  • 02033新建工作簿,并以新名称保存 02034保护工作簿 02035撤销工作簿保护 02036保存工作簿 02037另存工作簿 02038设定保护密码并另存工作簿 02039设定写保护密码并另存工作簿 02040保存工作簿副本 02041通过对话框...
  • EXCEL2013 vba工程密码破解

    千次阅读 2018-07-13 22:40:08
    EXCEL vba工程密码破解这种方法实际是避开VBA工程密码验证,即,骗vba编辑...新建一个工作簿,打开,按ALT+F11,进入vba代码编辑器窗口:2.新建一个模块,“插入”--“模块”把以下代码复制进模块并保存-----------...
  • Excel文件自毁VBA指令

    千次阅读 2016-10-27 19:07:51
    新建一个Excel工作簿,按Ctrl+F11打开Excel VBE代码编辑窗口,把以下代码指令放到ThisWorkbook,只要一运行就会毁掉当前工作簿,需要做好备份。Sub kills() Application.DisplayAlerts = False With ThisWorkbook '...
  • 【excel vba】拆分表格

    2020-07-30 23:17:06
    拆分表格并保存函数Application主程序对象Open 打开文件Add 新建工作簿练习拆分表存储成文件利用筛选分离表格内容 函数 Application主程序对象 application.displayalsert=false 表示不要弹窗 Open 打开文件 eg : ...
  • 2.宏会自动复制Sheet2到新工作簿,并插入你所选文件夹中的全部JPG图片到B列,对应的图片名自动填到C列; 3.图片的大小会自动适应Sheet2的B3单元格,因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的...
  • 将EXCEL的数据导入CAD里绘图的方法这是用CAD的VBA(cad里的lisp功能也可以实现)的方法。...一、新建excel工作簿,命名为"EAHT",保存于D:\cadvba文件夹内(无此文件夹可新建,若存于别处则需相应修改一...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指...
  • Excel百宝箱

    2012-10-27 17:09:21
    【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指...
  • 根据Outlook收件箱的邮件提取发件人邮箱地址到excel后再导入到Outlook联系人步骤如下:1,新建工作簿book1,第一张表取名“邮件地址提取”,并保存2,ALT+f11,进入vba,插入模块1,复制粘贴如下代码:Sub GetSender...
  • 【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将...
  • vb破解

    2019-01-18 18:58:43
    1.新建一个工作簿,打开,按ALT+F11,进入vba代码编辑器窗口: 2.新建一个模块,“插入”--“模块”把以下代码复制进模块并保存 ------------------------------------------------------------------------------.....
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【公农双历查询】【高级定位】【选区背景着色】【修改文件建立时间】【工作表环境设置】【按颜色合计】【根据工资计算钞票】【隔行插入行】【折分工作簿(工作表)】【工作表折分】【合并工作簿】【文本与数值互换】...
  • 【折分工作簿】将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】将指文件夹中...
  • 新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...

空空如也

空空如也

1 2
收藏数 35
精华内容 14
关键字:

vba保存工作簿新建工作簿