用程序计算数据,得到不同公司、不同项目的数据结果,最终还要将每个公司的数据结果放在各自的单独文件中。
这就需要在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语句里吧。
-
如何利用VBA把若干工作簿里的表保存到一个新建的工作簿里?
2019-03-12 17:53:19问题描述:若干个工作簿,每个工作簿里有一个工作表,如何利用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文件夹后退出。- Sub 新建工作簿 ()
- Dim wb As Workbook
- Set wb = Workbooks.Add
- With wb
- .SaveAs "d:\test\Mybook"
- .Save
- .Close
- End With
- End Sub
练习2:使用For Each In 结构变成石像在打开多个工作簿时,判断某个工作簿是否已经打开。- Sub 打开工作簿()
- Dim wb As Workbook
- Dim OtherWb As String
- OtherWb = InputBox("输入工作簿名称:", "工作簿 _名称", "mybook.xlsx")
- For Each wb In Workbooks
- If LCase(wb.Name) = LCase(OtherWb) Then
- MsgBox "工作簿" & OtherWb & "已经被打开!", vbInformation
- Exit Sub
- End If
- Next
- 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...转载于:https://www.cnblogs.com/wangzhisheng/p/3421369.html
-
第033篇:VBA之工作簿基础操作与实例应用
2020-04-29 20:22:211.新建工作簿 Sub 新建工作簿() Dim wbk As Workbook '定义wbk为工作簿对象,因为它是一个对象,所以下局用Set来赋值 Set wbk = Workbooks.Add '在Workbooks集合里新增这个工作簿 wbk.SaveAs "c:\123.xls" '保存... -
vba显示正在加载_利用VBA代码显示工作簿的路径及完全路径的方案及对工作薄的操作...
2020-12-11 13:34:47NO.139-NO.142内容是:NO.139:如何做到显示工作簿的路径NO.140:如何做到显示工作簿的名称和完全路径NO.141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改NO.142:建立新的工作簿并对新建工作簿进行操作... -
vb整合多个excel表格到一张_[Excel]同一工作簿中多个工作表保存成独立的表格
2020-12-28 01:46:34如果表格少,操作如下:选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。当如果表格太多呢,以上方法就太罗嗦了。简单方法用VBA,步骤如下:1、创建一个文件夹,将要分离的工作簿放到该文件夹里,... -
VBA程序的创建,运行及保存
2018-05-07 18:39:27编写VBA程序,实现在活动工作簿中自动新建工作表并将其重命名为“员工考勤”。操作步骤:1.首先打开VBA窗口,点击菜单“插入”“模块”,在工作簿中新建“模块1”,并双击该模块对象打开其代码编辑窗口。2.将光标... -
指定插入一行_插入命令按钮,用VBA代码控制工作表的显示与隐藏
2021-01-14 09:40:22了解更多,观看视频1、准备工作打开Excel后新建一个工作簿,将sheet1工作表标签重命名为"控制面板",删除sheet2、sheet3保存,在"控制面板"的A1至A36单元格内依次输入"七⑴、七⑵、七⑶、七⑷、七⑸、七⑹、七⑺、七... -
cdialog创建后马上隐藏_插入命令按钮,用VBA代码控制工作表的显示与隐藏
2020-11-27 08:20:18了解更多,观看视频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 关闭工作簿不显示保存... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2402033新建工作簿,并以新名称保存 02034保护工作簿 02035撤销工作簿保护 02036保存工作簿 02037另存工作簿 02038设定保护密码并另存工作簿 02039设定写保护密码并另存工作簿 02040保存工作簿副本 02041通过对话框... -
EXCEL2013 vba工程密码破解
2018-07-13 22:40:08EXCEL 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 : ... -
Excel2010VBA批量插入或导出图片
2016-09-16 15:07:232.宏会自动复制Sheet2到新工作簿,并插入你所选文件夹中的全部JPG图片到B列,对应的图片名自动填到C列; 3.图片的大小会自动适应Sheet2的B3单元格,因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的... -
lisp倒入excel数据画图_将excel数据导入CAD画图的方法
2020-12-21 10:54:44将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联系人
2014-12-26 14:58:05根据Outlook收件箱的邮件提取发件人邮箱地址到excel后再导入到Outlook联系人步骤如下:1,新建工作簿book1,第一张表取名“邮件地址提取”,并保存2,ALT+f11,进入vba,插入模块1,复制粘贴如下代码:Sub GetSender... -
Excel百宝箱9.0无限制破解版.rar
2012-09-05 09:31:51【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将... -
vb破解
2019-01-18 18:58:431.新建一个工作簿,打开,按ALT+F11,进入vba代码编辑器窗口: 2.新建一个模块,“插入”--“模块”把以下代码复制进模块并保存 ------------------------------------------------------------------------------..... -
Excel百宝箱8.0
2011-06-07 21:32:17【公农双历查询】【高级定位】【选区背景着色】【修改文件建立时间】【工作表环境设置】【按颜色合计】【根据工资计算钞票】【隔行插入行】【折分工作簿(工作表)】【工作表折分】【合并工作簿】【文本与数值互换】... -
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
2013-05-11 22:46:24【折分工作簿】将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】将指文件夹中... -
EXCEL集成工具箱完整版 (简体/繁体/英文多国语言版) V7.0
2010-08-13 10:31:10【新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
收藏数
35
精华内容
14