开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

VBA Office 2007创建2003 Excel工作表

VBA Office 2007创建2003 Excel工作表

VBA是Visual Basic for Applications的简称，是一种基于Microsoft Visual Basic语言的应用程序开发工具，可以用于开发Excel、Word、Outlook等Microsoft Office应用程序的宏。

在VBA中，可以使用以下代码创建一个Excel工作表：

Sub CreateNewWorksheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    '获取当前工作簿
    Set wb = ActiveWorkbook
    
    '创建新工作表
    Set ws = wb.Worksheets.Add
    
    '设置工作表名称
    ws.Name = "2003 Excel工作表"
    
    '设置工作表格式为Excel 2003格式
    wb.CompatibilityMode = True
    
    '保存工作簿
    wb.Save
End Sub

以上代码会在当前工作簿中创建一个名为“2003 Excel工作表”的新工作表，并将其格式设置为Excel 2003格式。

需要注意的是，Excel 2003格式是一种较旧的Excel格式，可能不支持一些Excel 2007及以后版本的功能。

相关搜索:如何以编程方式冻结Excel 2007 VBA中Excel工作表的顶行？使用Word VBA创建Excel工作表副本 Excel VBA -创建工作表名称数组 Excel 2007 VBA -通过计算数据创建图表 Excel VBA复制工作表 Excel 2003 VBA:将工作表移动到由变量引用的新工作簿 Excel VBA根据输入创建工作表名称 VBA Excel ForEach工作表循环保存工作表pdf excel vba EXCEL VBA Vlookup多张工作表 excel vba:创建区域而不引用工作表使用Excel vba创建新工作表不起作用工作表无法取消保护-Excel VBA Excel VBA -格式表未按预期工作使用excel office脚本创建重命名工作簿中所有工作表的循环 Excel VBA复制创建新工作表，而不是复制到现有工作表 VBA Excel根据以前创建的工作表添加编号的新工作表 Excel VBA从工作表中的公式创建命名区域如何从Office VBA与Libre工作表进行交互 Excel VBA -从工作表中删除表名

相关搜索:

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

VBA判断工作表是否存在&不存在时创建（Excel）

Function 表存在(s) For Each i In Sheets If i.Name = s & "" Then 表存在 = 1 '连接空白是避免表格名为数值时格式不同 ' Debug.Print...i.Name = s Next End Function Function 建表(s) For Each i In Sheets If i.Name = s Then Exit Function...Next Sheets.Add(, Sheets(Sheets.Count)).Name = s ' Sheets.Add.Name = s'创建在前面 ' Sheets.Add...方法 (Excel)：https://msdn.microsoft.com/zh-cn/library/office/ff839847 End Function

4.7K4 0

Office 365开发概述及生态环境介绍(一)

，半生不熟），那么Office 2003是我真正意义上开始较为深入使用的版本，尤其以Excel和Access这两个组件，结合当时的实际工作需要，我使用VBA开发了从简单到复杂的各种小应用。...Office 2007 前面提到Office 2003是一个巅峰之作，那么Office 2007毫无疑问就是一个转型精品。...例如，Excel 2007的标准文件格式为xlsx，而包含VBA代码的文件则必须重命名为xlsm（这里的m是指macro的意思，我后续会介绍这个概念）。...学习VBA的首要工作就是要比较清楚地了解应用程序的对象模型，严格来说，这个并不难，微软提供了相当丰富详细的帮助文档（例如Excel的不完全对象模型如下），但是熟才能生巧，只有大量的实践才可能真正地得心应手...此为后话，且按住不表。必须提出的是，微软对于VBA和VSTO的支持将继续保留，它们有自己的优势，尤其是对于Office 应用程序自有功能的自动化、快速开发、在本地使用的场景。

3K2 0

Excel实战技巧67：在组合框中添加不重复值（使用ADO技巧）

如果数据处理需要运行在没有Office 2007的计算机上，需要使用早期版本的Access和Excel提供者版本：Provider=Microsoft.Jet.OLEDB.4.o。...3.Extended Properties：当连接到Excel工作簿时使用。告诉VBA数据源来自数据库。...当处理Excel 2007工作簿时，参数为：Extended Properties=Excel12.0。...如果数据处理需要运行在没有Office 2007的计算机上，将需要使用Excel早期版本的Extended Properties：Extended Properties=Excel8.0。...连接到Excel2003或Excel 2007（及以上）工作簿（推荐） "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\MyExcelWorkbook.xls

5.7K1 0

Excel-VBA复制工作表到新工作簿方法

在工作中我们常常会在一个工作簿的一个工作表中输入数据，再另存为一个新的工作簿。如：在文件“自动工具.xlsx”中有一个工作表为“模板”。...我想在“模板”工作表中输入数据，再另存为一个新的文件为“小龙女.xlsx” 【知识点】下面是本个收藏的代码，三种方法，以备用【代码】 '方法一：复制工作表另存为新的工作簿 Sub copySaveAs...Filename:=ThisWorkbook.Path & "\小龙女.xlsx" ActiveWorkbook.Close SaveChanges:=True End Sub '方法二：复制工作表为新的工作表...，写入数据，再移动工作表另存为新的工作簿 Sub MoveSaveAs() wsh_num = Worksheets.Count Worksheets("模板").Copy After:...，再复制工作表到新工作簿中 Sub AddCopySaveAs() Path = ThisWorkbook.Path & "\" Set newwb = Workbooks.Add

11.6K4 0

Excel VBA常用功能加载宏——工作表隐藏

工作表的隐藏很简单，只需要右键点击工作表名称，然后点击隐藏就可以。但是取消隐藏也差不多，右键点击后，选择某个工作表名称。...这种基本的操作，大多数人Excel用过一段时间的应该都会，所以保证不了其他人不会发现隐藏起来的表格。...其实Excel里还有一个深度的隐藏，这种隐藏后，右键点击取消隐藏是看不到的，这样应该就能瞒过大多数人了。...这个可以通过VBA代码编辑器里的属性窗口，设置工作表的Visible属性为xlSheetVeryHidden来实现，当然使用VBA来设置肯定就更为方便快捷了： ?...在设置当前工作表隐藏的时候，需要判断工作簿是否还有其他的可见工作表，否则会报错。

2.8K3 0

Excel2007中的数据分析工具在哪里？

相信有很多朋友对Excel2003是有着深厚的感情，但是随着时代的发展不得不升级用Excel2007、2010甚至2013，今天有这样一位朋友问我，Excel2007的数据分析工具跑哪里去了？...下面以2007为例，其实都差不多的。...数据分析工具是在安装 Microsoft Office 或 Excel 后可用的 Microsoft Office Excel 加载项（加载项：为 Microsoft Office 提供自定义命令或自定义功能的补充程序...但是，要在 Excel 中使用它，您需要先进行加载。具体操作步骤如下： 1、单击“Microsoft Office 按钮” ，然后单击“Excel 选项”。...注释：若要包括用于分析工具库的 Visual Basic for Application (VBA) 函数，可以按加载分析工具库的相同方式加载“分析工具库 - VBA”加载宏。

2.4K4 0

VBA解析复合文档00

2003版本以前的Office文件，像Excel（后缀.xls），Word（后缀.doc）的文件，都是使用复合文档结构来存储的。...2007版本以上的Office文件，如果设置了打开密码，仍然是使用复合文档结构来存储的。...2007版本以上的Office文件，如果编写了VBA代码，在文件的压缩包里，会有个vbaProject.bin文件，也是使用复合文档结构来存储的。...的文件结构解析复合文档，能够更加深入理解Excel的文件结构，虽然2007版本以上的Excel已经换成了xml标记语言存储，但是VBA代码相关的vbaProject.bin文件还是使用了复合文档结构...02 直接读取Excel VBA数据如果想不打开Excel文件来读取Excel的数据，一般使用ADO技术就能做到。

1.3K1 0

VBA专题10-2：使用VBA操控Excel界面之设置工作表

本文主要讲解操控工作表中一些界面元素的VBA代码。名称框名称框中的名字是为单元格区域定义的名字，可以由用户定义名称，或者由Excel自动创建，例如Print_Area和表1。...=False Next nm 但是,不能隐藏由Excel自动创建的表名称即便隐藏了名称，你仍然能够通过在名称框中输入名称到达该名称的单元格区域。...：即便用户移动和重命名工作表，或者添加工作表，VBA代码将仍然引用的是正确的工作表。...注意，代表颜色值的常量可以在VBA帮助系统中查找。...ActiveWindow.GridlineColorIndex= xlColorIndexAutomatic 说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA

4.8K4 1

VBA创建Access数据库的4种方法

Excel由于本身的局限性，存储数据量过大的时候，往往会导致工作簿假死无反应，电脑卡顿等情况。那么，将数据存取到Access数据库中就是一种好的解决方法。...今天，我们谈谈怎么使用Excel VBA来创建数据库，数据表的几种方法。本次所有方法创建的数据表如下图：方法一：使用Access.Application（Access对象库）创建数据库。...注意：不同Office版本的Access对象库名称略有不同。...注意：若Excel版本低于Excel 2003，则可能是【Microsoft DAO 3.51 Object Library】。然后输入如下代码即可。...ADOX创建数据库方法：myCat.Create (ConnectString) myCat ：ADOX.Catalog对象 ConnectString：数据库连结字连结字： Excel2007

6.1K10 0

我经常翻阅的Excel技术书

《Formulas and Functions withMicrosoft Office Excel 2007》中文版译名：《Excel 2007公式与函数完全剖析》。...《Excel 2007 Charts》中文版译名：《中文版Excel 2007图表宝典》，最经典的宝典系列丛书之一，详细讲解了Excel的全部图表功能，以大量的示例展示了在Excel中绘制图表的方法和技巧...《Excel 2007 VBA Programmer’s Reference》中文版译名：《Excel 2007 VBA参考大全》，这也是我参与翻译的一本书。...《VBA and Macros for Microsoft Excel》中文版译名：《巧学巧用Excel 2003 VBA与宏》。...《Mastering Excel 2003 Programmingwith VBA》中文版译名：《Excel 2003与VBA编程从入门到精通》。

2K2 0

VSTO之外的另一开发利器Excel-DNA介绍，VSTO与Excel-DNA优缺点分析

开发出来的VSTO插件，对用户的OFFICE版本有要求，一般需要OFFICE2007及以上才可使用。...本人曾经呆过的一家日本500强制造业企业当时使用的是OFFICE2003，有一种还想再用10年的感觉。...VBA开发者，可以使用VBA语言来开发，慢慢过渡到.net语言开发 1.2. 可以使用.net语言来开发Excel插件，利用.net丰富的现有资源，例如做个MD5函数，几句代码就可完成。 1.3....开发自定义函数的利器，VSTO开发自定义函数在发布给用户机器使用时麻烦，要对注册表注册，需要管理员权限，但Excel-DNA开发的完全没有这些烦恼，用户双击即可打开使或进行加载项载入，下次打开Excel...可以对自定义函数进行用户输入提示功能，效果和原生的工作表函数的提示功能接近，这是VSTO和VBA开发所没法做到的。 1.7.

5K4 1

Excel：文件打开后已设置的单元格格式全部消失

文章背景：根据工作的需要，早期内部根据不同需求设置了很多模板文件，都是xls格式，而目前电脑上使用的软件是office365。...Excel 2003版本的文件能支持的单元格格式个数是4,000；Excel 2007及以后版本能支持的单元格格式个数是64,000。...2003 or 64,000 different combinations in Excel 2007 and later versions....However, this can cause an error in Excel 2003....（3）针对模板文件，如果worksheet个数较多，不方便拷贝到新工作簿中，那只能删除已存在的非内置单元格格式，而这将近4000个的单元格格式，显然没办法手动删除，只能通过VBA代码来解决。

2.4K4 0

Excel催化剂开源第51波-Excel催化剂遍历单元格操作性能保障

在Excel催化剂推出的这一年多时间里，经常性听到一种声音，大概意思是真正会写代码的人，都不会看上Excel催化剂写出来的功能，自己造一个更舒服贴心，仿佛会一点VBA就可以天下无敌一般，也好像Excel...为何会慢这个问题，可能就没有深入研究过，而笔者用自己不专业的语言表达下原因，是因为VBA或VSTO等代码与Excel交互是用的是COM的通信，这个COM通信非常臃肿，遍历过程中，不断地来回通信，产生了十分低效的性能...因Excel催化剂并且为了满足所有用户需求而存在，对仍然使用低版本OFFICE2003版本是不支持的，所以就有所取舍，大量的场景会使用EPPLUS这个只支持OFFICE2007及以上的格式的类库轮子。...DataRow dr = resultTable.NewRow(); dr["工作薄路径..."] = package.File; dr["工作表名称"] = itemShtName;

9072 0

VBA专题10-3：使用VBA操控Excel界面之设置工作表（续）

本文继续讲解操控工作表中一些界面元素的VBA代码。工作表中的行列隐藏和取消隐藏行标题不能够分别单独隐藏行标题和列标题，只能同时隐藏或者显示这两个标题。...= True 隐藏和取消隐藏工作表行可以使用下列任一VBA语句隐藏活动工作表中的所有行： '隐藏工作簿的活动工作表中所有行 ActiveSheet.Rows.Hidden= True ActiveSheet.Rows.EntireRow.Hidden...要取消隐藏所有行，可以使用下列任一VBA语句： '取消隐藏工作簿的活动工作表中所有行 ActiveSheet.Rows.Hidden= False ActiveSheet.Rows.EntireRow.Hidden...隐藏和取消隐藏工作表列可以使用下列任一VBA语句隐藏活动工作表中的所有列： '隐藏工作簿的活动工作表中所有列 ActiveSheet.Columns.Hidden= True ActiveSheet.Columns.EntireColumn.Hidden...说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。

1.8K2 0

Excel实战技巧54：创建导航工作表

当工作簿中的工作表不多时，我们只需要单击底部的工作表名到达想要操作的工作表。然而，当有很多工作表时，要找到想要的工作表就需要边单击滚动按钮边查找工作表，这可能要花点时间了。...其实，我们可以创建一个导航工作表，将工作簿中的所有工作表名称都放置到导航工作表中，并设置到工作表的链接，这样，我们只需要单击工作表名称，即可到达相对应的工作表。...图实现上述功能的VBA代码如下： Sub NavigateWorksheet() Dim wks As Worksheet Dim i As Integer i = 0 '...SheetExists = True Else SheetExists = False End If End Function 运行NavigateWorksheet过程，将在工作簿中创建一个名为...“导航”的工作表（如果该工作表已存在，则清空其中的内容），然后在“导航”工作表的列A中输入该工作簿其他工作表的名称并建立到该工作表的链接，同时在其他工作表的单元格A1中创建返回“导航”工作表的链接。

1K1 0

Excel，大多数人只会使用1%的功能

我自认为Excel功底还不错，从Office 2000一直用到现在的Office 365，窗口冻结、区域命名、数据筛选，透视表，高级公式，还有VBA编程等等，不算精通也算高手，但一做题，发现不知道的技巧还真不少...Excel 2003及以下版本的最大行数为65535行，最大列数仅有256列，在Excel 2007及以上版本最大行数已经升级到1048576行，16384列，能够满足大多数业务的需求。...所以如果你还在使用2003版本，请抓紧升级吧。 2. 一堆表格，如何快速生成一份目录？如果一个工作簿下有多张电子表，如果快速生成一个封面，里面包含这些工作表的链接？...可以先在所有工作表里输入一个错误公式，再利用兼容性视图检查，将检查结果生成一张新工作表，里面带有所有工作表的名称链接，稍微修改就是表格目录了。...Office 2013中，兼容性视图检查功能藏于"文件" -> 信息 -> 检查工作簿 -> 检查问题 -> 检查兼容性中。 3.

2.2K2 0

学习Python与Excel：使用Python和xlwt创建Excel工作表

标签：Python与Excel，xlwt 使用Python创建Excel工作表，有很多种方法。本文介绍使用xlwt库创建Excel工作表。...xlwt库非常容易使用，下面的代码创建包含有一个工作表的Excel工作簿： import xlwt def main(): book = xlwt.Workbook() sheet1 = book.add_sheet...在该函数中，xlwt.Workbook创建一个工作簿实例，使用add_sheet方法添加一个名为“MySheet1”的工作表，然后输入5行5列的内容，最后保存该工作簿。...下面，在上述代码的基础上，还将创建一个具有红色背景、边框和特定日期格式的单元格： from datetime import date import xlwt def main(): book =...图1 好了，现在知道如何使用xlwt库创建简单的Microsoft Excel电子表格了。注意，它使用旧的*.xls格式创建电子表格，不支持*.xlsx格式。

1.3K1 0

office模板文件｜调整格式多累人啊，不如一开始就不要乱

这些稍微介绍一下这些格式的文件，以word为例，这些不同的格式分别是这样的： 1、Word 2007以上版本的文档（*.docx） 2、Word 2007以上版本的模板文件（*.dotx） 3、Word...2003及以下版本的文档（*.doc） 4、Word 2003及以下版本的文档（*.dot） 5、启用宏VBA的 word 文档（*.docm） 6、启用宏VBA的 word 模板（*.dotm）...今天的重点在于模板文件，在word中是dotx格式或者dot格式，excel中则是xlt格式和xltx格式，ppt中是pot格式和potx格式。至于后面有没有x，其实只是office版本的区别。...office 2007有一个比较大的更新，也就是我们很熟悉的doc变成了docx这个变化。模板文件也是一样，有了带x和不带x的两个版本。对于实操使用上来说没什么大的区别就是版本不一样而已。...这里就以我早年在咨询工作工作的经历来说吧，当时我的工作场景中主要会接触两类客户，一类的政府客户，一类是企业客户。

3222 0

杨老师课堂之Excel VBA 程序开发第六讲根据部门列创建工作表

示例代码： Sub 根据部门创建表并且完成数据拆分最终版() Dim sht As Worksheet '定义变量 sht作为一个工作表对象 Dim i, k, j As Integer '定义变量...sht 在表集合(sheets)中进行循环 If sht.Name "数据" Then '如果表的名字不等于数据那么...sht 在表集合(sheets)中进行循环 If sht.Name = Sheet1.Cells(i, m) Then '如果表的名字等于第一个表的单元格(行，列)...操作 Sheets(Sheets.Count).Name = Sheet1.Cells(i, m) ' 添加后的表的名字wie 第一个表的单元格(行，列) End If '...结束如果语句 Next ' 结束循环语句 '拷贝数据：j 代表的是表的序号 For j = 2 To Sheets.Count ' 第一个表的单元格区域为 a1

1.2K5 1

Excel VBA在一个工作簿内把总表拆分多个工作表

知识点：字典，主要是item中可以是union(),并进行复制 ======代码如下======= Sub 在一个工作簿内把总表拆分多个工作表() Dim title_rng As Range,...) endrow = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算最后一个工作表的非空行号...endCol = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column '计算最后一个工作表的非空列号...s), .Cells(i, 1).Resize(1, endCol)) End If Debug.Print i Next i MsgBox "将拆分出工作表数有

2.5K4 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭