奇妙的VBA代码:如何根据需要创建EXCEL工作簿文件

  各位好,今日我们讲VBA代码的第三十一讲,如何新建EXCEL工作薄文件。对于工作薄的解释,我们在之前的文章中已经讲解过,要注意工作薄和工作表的概念。工作薄是文件,工作表是工作薄的工作页。在VBA中使用Add方法新建工作簿。

  一: ADD方法:使用Workbooks对象的Add方法创建新工作簿,其语法为:Workbooks对象.Add(Template).参数Template可选,确定如何创建新工作簿。如果该参数指定的字符串是已有的Excel文件名,那么使用指定的文件作为模板创建新工作簿。如果该参数指定为xlWBATemplate常量之一,则新工作簿包含单个指定类型的工作表。如果忽略该参数,那么新工作簿包含标准的空工作表,可以使用SheetsInNewWorkbook属性设置工作表数。xlWBATemplate常量为:xlWBATChart,xlWBATExcel4IntlMacroSheet,xlWBATExcel4MacroSheet,xlWBATWorksheet。分别代表图表工作表、宏工作表以及标准工作表。

  a) 第2行到第6行代码声明变量类型。b) 第7行代码保存Excel自动插入到新工作簿中的工作表数目。c) 第8、9行代码将数组元素赋值给变量。d) 第10行代码将Application对象的SheetsInNewWorkbook属性设置为4,在新建工作簿时插入4张工作表。e) 第11行代码使用Add方法建立新的工作簿,应用于Workbooks对象的Add方法新建工作簿,新建的工作簿将成为活动工作簿。f) 第12行到第22行代码操作新建工作簿。g) 第15行到第17行代码将新建工作簿的工作表进行重命名并给单元格赋值。h) 第20行代码使用SaveAs方法将新建工作簿重命名为“库存.xls”保存在同一目录中。i) 第21行代码使用Close方法关闭工作簿。j) 第24行代码恢复工作簿的默认设置。

相关推荐
新闻聚焦
猜你喜欢
热门推荐
  • 审核结果将通过短信告知您也可以在3个工

      如若您对此房有意向,或者有买房需求,欢迎致电于我。我将感激您的信任,谒诚为您服务。 、金山大厦旁,南京为数不多......

    12-11    来源:未知

    分享
  • 三洋家电的确是关门了听说是搬新厂了我

      据查,三洋家用电器(苏州)有限公司是吴县市胥口镇农工商总公司于95年9月和日本三洋电机株式会社、三洋电机(中国)有......

    12-11    来源:未知

    分享
  • 奇妙的VBA代码:如何根据需要创建EXCEL工

      各位好,今日我们讲VBA代码的第三十一讲,如何新建EXCEL工作薄文件。对于工作薄的解释,我们在之前的文章中已经讲解过,......

    01-04    来源:未知

    分享
  • 结合建设东江鲤鱼洲度假旅游景区

      2018年11月26日,东莞市牛商网络科技有限公司发表!横沥知名外贸网站建设外包,专业的设计团队、一流的服务态度和先进的......

    12-13    来源:未知

    分享
  • 而且成功进驻日本等多个国家

      2018年11月27日,南阳好好网络有限公司报导,内乡技术强的官网制作技术强,三、公司服务:为客户提供互联网整合营销最佳......

    12-14    来源:未知

    分享
  • 尖下巴的整容脸已成过去式高允真成整容

      韩国的整容技术一直以来都是很出名的,在韩国明星中,没有整容过的女星少之又少,大双眼皮、尖下巴、高鼻梁是这些年来......

    12-16    来源:未知

    分享
  • 装修也不能忽视

      呼和浩特现代简约客厅400例 购置房产是人生中的大事,尤其是现在房价居高不下,买房更是应该谨慎小心,同时,装修也不......

    12-09    来源:未知

    分享
  • 无论是网站流量的提高

      对于企业网络营销而言,在线客服软件相较于其他即时通讯工具有着得天独厚的优势,在线客服软件作为网页版的即时通讯软......

    12-18    来源:未知

    分享
  • 阿里云宣布0元注册域名 云服务有了免费

      阿里云正式宣布,针对新注册企业用户,可以免费注册一个名。这是国内市场上第一个完全免费的域名注册平台,标志着域名......

    12-29    来源:未知

    分享
  • 英语143分学霸:把这背熟完型满分不用补

      很多学生英语成绩差,就是因为觉得单词枯燥、乏味难记忆,从而放弃记单词。我们都知道记忆单词的重要性,它是中考考试......

    12-10    来源:未知

    分享
返回列表
 
Ctrl+D 将本页面保存为书签,全面了解最新资讯,方便快捷。