如何在单独的模块中向vba代码中添加工作表？
在VBA代码中向单独的模块添加工作表，可以使用VBA的对象模型来实现。下面是实现的步骤：
- 打开Excel文件，并按下Alt + F11快捷键打开VBA编辑器。
- 在VBA编辑器中，可以看到左侧的“项目资源管理器”窗口，其中列出了VBA项目中的各个模块和工作表。
- 右键点击“Microsoft Excel对象”，选择“插入”->“模块”，这样就会在项目中添加一个新的模块。
- 右键点击新添加的模块，选择“插入”->“模块”->“模块1”，这样就会在新添加的模块中打开VBA编辑器。
- 在新添加的模块中编写VBA代码。例如，可以使用以下代码向VBA代码中添加新的工作表：
Sub AddWorksheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "NewWorksheet"
End Sub- 点击VBA编辑器的“运行”按钮或按下F5键运行代码。
- 运行后，将在Excel文件中添加一个名为“NewWorksheet”的新工作表。
这样就成功在单独的模块中向VBA代码中添加了一个工作表。需要注意的是，上述代码是VBA代码示例，可以根据需要进行修改和扩展。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云-云服务器：提供弹性计算能力，满足不同业务场景需求。产品介绍链接：https://cloud.tencent.com/product/cvm
- 腾讯云-云数据库MySQL版：提供稳定可靠的MySQL数据库服务。产品介绍链接：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云-人工智能机器学习平台：支持构建和训练自定义的机器学习模型。产品介绍链接：https://cloud.tencent.com/product/tiia
- 腾讯云-物联网开发平台：提供全面的物联网设备接入、数据处理和应用开发能力。产品介绍链接：https://cloud.tencent.com/product/iotexplorer
请注意，以上链接仅为示例，实际使用时应根据具体需求选择合适的腾讯云产品。
相关·内容
我有一个带有VBA代码的工作表，其中包含许多变量和常量，我甚至想在另一个工作表的VBA代码中使用这些变量。不幸的是，代码在工作表之间拆分，并且需要共享变量和常量作为输入参数。在VBA中是否可以使用excel？
浏览 22提问于2013-08-01得票数 1
1回答
我有一个简单的VBA函数，它保存在可信任宏工作簿的ThisWorkbook中.此函数的代码：GetParameterKey如下所示。
我想从同一个工作簿中的工作表中调用GetParameterKey作为电子表格函数。但是，在Insert函数下，GetParameterKey不显示为用户定义的函数.
有没有一种方法可以从同一个工作簿中的工作表调用在ThisWorkbook部分中定义的函数？
Public Function GetParameterKey(natureOfWork As String, size As String, complexity As String, uncertaint
浏览 0提问于2019-05-11得票数 1
回答已采纳
我在工作表中有一个VBA代码，当一个单元格被更改时，它会被激活。但是这个表是由另一个宏重新创建的，当重新创建工作表时，它在工作表中没有VBA代码。
然后我在寻找两种解决方案(我不知道怎么做，也没有在网上找到任何东西，然后我在这里问)：
是一种自动复制和通过VBA代码的方法，这样由宏创建的新工作表将具有VBA代码或调用可以存储在模块中的VBA代码(即使可能，也不知道是否可能，因为“Worksheet_Change(ByVal Target As Range)”是)
为了更好地说明，下面是由宏重新创建的工作表中的VBA代码。
Public Sub Worksheet_Change(ByVal Ta
浏览 0提问于2022-01-25得票数 0
回答已采纳
我想使用Apache2 mod_dbd基本身份验证来保护我的phpmyadmin区域，我想使用'mysql‘数据库和'user’表进行身份验证。(在我看来，这完全有道理。)
我遇到的问题是这个表的密码加密，它使用MySQL的PASSWORD()函数来存储用户的密码。
我已经做了一些修补工作，不知道是否可以使用mysql的'user‘表，因为Apache将只使用中提到的加密类型。
因此，作为最后的手段，我想知道是否有人能够成功地使其工作？
浏览 0提问于2011-09-20得票数 0
回答已采纳
2回答
我很好奇是否有可能将excel工作表的保护状态传递给该工作表的单元格。例如：
Sheet1是被锁定的，因为editing...cell A1会被编程为“锁定”
Sheet1 is unlocked...cell A1会说“解锁”。
工作表上的按钮将用于切换工作表保护开关。
使用workbook_open事件打开时，我的工作表将被锁定。
这是一个工作表，我不希望公式在使用时被弄乱，但可能需要完全访问。它更多的是提醒用户，他们处于“解锁”模式，所以要格外小心。
使用VBA是否已成定局？
我是一个VBA，但不介意用代码来解决这个问题
欢迎任何想法或建议
浏览 6提问于2013-03-20得票数 1
回答已采纳
我写了这个VBA。本质上，它所做的是；我在工作表中的几个单元格上使用了'Define‘("Test")。VBA确保无论何时打开工作簿，它都会自动放大以适应该范围。现在，我认为它只在打开工作簿时触发，如果打开工作簿时没有选择该工作表，它会提供错误消息。现在，我希望它只在选择特定工作表时才能运行。我真的是从别人那里抄来的，所以我不知道该怎么修改.
提前感谢！
Private Sub Workbook_Open()
Range("Test").Select
ActiveWindow.Zoom = True
Cells(1, 1).Select
End Sub
浏览 3提问于2022-06-04得票数 0
我正在将Excel VBA项目转换为VB.net Office解决方案。在VBA中，访问工作表中的命名范围非常简单。
Sheet1.Range("NamedRange")
会给出该单元格中的值。
在VB.net中，我尝试了几种不同的方法，但都以失败告终。
我从这里开始。
我使用的是Visual Studio Excel 2010文档模板之一，并且我设法在工作表的命名范围中设置了一个值。该模板为工作表上的每个选项卡创建一个类，因此我能够这样做。
Me.Range("A5").Value
我遇到的问题是如何访问工作表上的范围，特别是在访问工作表之前，我无法确定需要
浏览 3提问于2011-09-01得票数 1
回答已采纳
我正在编写一个报告工具，用于记录各种“遵从性标准”的Excel文件，包括wkb.VBProject.Protection，以便在VBA被锁定时报告。
但是，我如何才能找到该工作簿是否有任何项目？
如果我计算
wkb.VBProject.VBComponents.Count - wkb.Worksheets.Count - 1 '(for the workbook)
这将给我模块+类模块+表单的数量，但我仍然可以在一个工作表后面有一些代码。
有没有办法像Access frm.HasModule一样，找出工作簿中是否有VBA代码？
浏览 5提问于2009-08-19得票数 4
回答已采纳
1回答
我知道我们可以在单独的页面中显示回复表单。但是现在我有了在单独的页面中显示整个评论和回复表单的要求。有没有办法在单独的页面中显示这些。
浏览 0提问于2015-02-02得票数 0
回答已采纳
1回答
在一个工作表中使用一个VBA CommandButton，可以在另一个工作表中调用另一个vba模块。此VBA连接在工作表内，而不是与工作簿连接。当我在第一个工作表中运行CommandButton时，会得到以下错误。
Public Sub CommandButton3_Click()
PriceChange.FilterColorToRed
End Sub
浏览 5提问于2021-12-18得票数 1
1回答
我是VBA编程的新手，并且已经使用VBA在Excel中创建了一个用户表单。我的问题是，在表单关闭或隐藏之后，如何保留包含此表单中的数据的变量。
我想在同一工作簿/工作表的另一个用户表单中使用此数据。
提前感谢你在这方面的帮助。
浏览 1提问于2017-05-27得票数 0
我在Excel VBA中有一些代码，它所做的是每当用户打开一个特定的工作簿时，它会从最后一个工作表中复制内容，然后将这个新工作表放在最后，然后通过放置日期格式为工作表指定一个新名称。问题是，如果由于某种原因，您需要在同一天再次打开此工作簿，它会给出一个错误，因为工作表的名称已经被占用。 我正在尝试找到一个解决方案，如果名称已经存在，则不添加新的工作表。也许我把代码的一部分写对了，但我猜可能是代码行的顺序导致了错误。 Sub Auto()
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Cou
浏览 69提问于2020-07-28得票数 0
回答已采纳
我希望能够使用VBA将粘贴对象指定的宏复制到另一个工作表中。
下面的代码将一个工作表的格式复制并粘贴到另一个工作表，但不复制和粘贴工作表中的宏。
WshTrg.Cells.PasteSpecial xlPasteFormats
WshTrg.Cells.PasteSpecial xlPasteColumnWidths
WshTrg.Cells.PasteSpecial xlPasteFormulasAndNumberFormats
WshTrg.Cells.PasteSpecial xlPasteAll
有没有一种方法可以将对象从
浏览 0提问于2019-10-03得票数 0
我做了一个我想成为插件的模块。我的问题是，我希望它在每次打开工作表时重新运行，并且只在我激活它的工作表上运行。 我找到了一个解决方案，通过使用 Private Sub Worksheet_Activate()
Call Func
End sub 在工作表中，我将宏应用于。如何在激活宏时自动将此代码应用于当前活动的工作表。 基本上，当我在工作表x上使用我的插件时，我希望它适用。 Private Sub Worksheet_Activate()
Call Func
End sub 此函数仅适用于该特定工作表和该特定工作表 只是为了更好地澄清。 我想坐在没有关联VBA代码的工作
浏览 18提问于2019-09-11得票数 0
我正在尝试从另一个工作簿中捕获复制到工作簿中的工作表。
从其他工作簿复制工作表时，不会触发Workbook_NewSheet事件。只有当用户手动插入它们(Insert->Worksheet菜单选项)或通过VBA作为ThisWorkbook.Worksheets.Add添加新工作表时，才会触发它。
我试图捕捉的基本上是一个粘贴操作，它正在产生一个新的工作表。
这可能来自以下任何用户操作：
用户通过拖动现有工作表，保持控制键(这将添加新工作表)，用户从另一个工作簿复制工作表/s，用户从另一个工作簿中移动工作表
或以下任何一个VBA代码：
SourceWorkbook.Sheets(“Sour
浏览 10提问于2009-04-06得票数 3
回答已采纳
1回答
我有点糊涂了。如何通过用户表单控制excel工作表？例如：
单击excel工作表上的“窗体”按钮打开用户窗体。
通过单击用户表单中的按钮创建新的excel工作表。
我是否需要在vba的“模块”部分或"userform“部分中编写所需的代码？
浏览 4提问于2016-09-05得票数 2
回答已采纳
出于各种原因，我更喜欢使用代码来引用VBA代码中的工作表。
但是，当我动态地添加这样的工作表时(在只有一个工作表的工作簿中)：
Sub example()
Worksheets.Add After:=Worksheets(Worksheets.Count)
'SOME OTHER CODE HERE
Sheet2.Activate
End Sub
..。它不会编译，因为Sheet2没有被定义为变量。
有办法绕道吗？目前，我正在恢复使用工作表名称：
Sheets("Sheet2").Activate
有没有办法用代号来做这件事？
提前谢谢。
浏览 2提问于2014-03-23得票数 1
回答已采纳
1回答
我已经成功地使用vba将excel工作表导入到称为tblData的访问表中，但是excel工作表中有一些空单元格，我需要将列F1中的那些字段更改为charecter "H“。我擅长于使用excel vba，但是我对vba的访问还很陌生。
浏览 1提问于2016-05-23得票数 0
回答已采纳
1回答
我是马根托新来的。我想为卖方在Magento1.5或1.6中创建一个自定义注册模块。这里需要两个注册，一个是普通用户，另一个是卖家。我不知道magento的默认注册模块是如何构建的。我也不知道如何设置和如何连接表单和表之间的'customer_entity_varchar‘和其他表，我认为它遵循MVC模式，如Joomla，以及如何调用函数从控制器到模型编写“插入”sql查询。如果有人知道它，请指导我与提供链接或文档。
谢谢。
浏览 2提问于2012-09-14得票数 0
我有一个带有vba模块的工作表。效果很好。我复制了这个工作表并创建了第二个工作表，以便在这里使用不同的数据。但是在这个新的工作表模块上不起作用。我应该如何将它添加到新的工作表中，或者我还需要做什么呢？谢谢。
VBA代码：
Function Super_match(fin As Range, LOD As Range)
Dim test_arr As Variant
fin_arr = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(fin))
lod_arr = L
浏览 4提问于2015-08-05得票数 0
回答已采纳
描述
在我的工作簿中有三个工作表，用户可以在其中输入或更改数据。
目前，当用户以下拉列表的方式在C列中选择4个选项中的一个时，相应的值将在D列中输出。然后，用户可以按预期的方式更改D列中的值。
我使用了以下代码，根据三张工作表中每一张的C列中的值自动更新D列中的值：
码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3
Call Macro1
End If
If Target.Column = 4
Call Macro2
End If
End Sub
问题/期望输出
当用
浏览 1提问于2017-12-27得票数 0
请原谅我的无知(newby和对VBA知之甚少)...
我已经开发了一些附加到按钮上的宏，并在工作簿中的一个工作表中工作。宏在日历上执行各种作业。医院侧翼的10间卧室中的每一间都有一个日历。
我现在想用相同的按钮和宏为每个卧室制作相同的工作表，即10个工作表。
但是，尽管我可能会尝试，但我不能使宏在其他工作表中工作。
宏位于第一个工作表(Bed1)的VBA代码编辑器中。我已经将代码复制到VBA编辑器中的"This Workbook“页面中-但这没有任何效果，只是停止了它们的工作。
这是一个典型的宏：
'=======================================
浏览 0提问于2013-10-24得票数 3
回答已采纳
什么是良好的实践和良好的代码卫生？将代码放在模块还是工作表中？
我有这个Excel工作簿，每个工作表中都有用户界面。工作簿中的每个工作表执行某些总体任务的不同部分。我应该将与每个工作表相关的代码放在sheet对象中，还是放在模块中？分组到一个模块中，还是单独的模块？
我正在使用Excel2003。
浏览 0提问于2010-07-15得票数 44
回答已采纳
我在这里发现这个VBA代码很好用。我希望代码能够在工作簿中的其他工作表上工作。代码在表1中工作得很好，但我希望代码也能在第2页、第3页等上工作。我试图从第1页模块复制代码，并将其粘贴到第2页、第3页等中，以查看代码是否有效。代码并不像我预期的那样起作用。我认为我需要对标准模块代码做些什么，这样代码才能正常工作。
表1模块
Private Sub Worksheet_Calculate()
Dim rng As Range, c As Range
Dim rngToColor As Range
On Error GoTo ErrorHandler
Applic
浏览 1提问于2014-04-22得票数 2
我在一个名为Employees的表中有一个包含以下字段的数据库: Employee_Manager和Manager_Department。我还在一个名为“Manager_ID和Department”字段的表中列出了管理人员及其相应部门的主列表。我正在编写一个VBA脚本，它将验证employees表中列出的员工经理是否有效--在经理的主列表中。下面是我使用的VBA代码：
Public sub validateManagers(manager as string, managerDepartment as String)
dim db As DAO.database
dim rs As DAO.
浏览 2提问于2015-04-13得票数 0
回答已采纳
3回答
我正在Excel中做一些VBA编程，并且有一个工作簿，其中所有的数据表都要复制到另一个工作表中。新的工作表将有几个标题行，我希望跟踪它们的位置，这样我就不必不断地在其中查找单词。
当Excel工作簿打开时，使用类并使其保持运行是最简单的事情吗？或者这会使它变得笨重和难以处理，而我应该继续使用子例程？使用类的好处是什么？这不像我有几个对象，只有表和列上的验证。
浏览 5提问于2010-01-29得票数 31
2回答
我需要一些关于VBA的帮助。在我代码中，我添加了一个excel工作表，并将其重命名并添加了一个验证列表。我需要在更改验证list.And中的值时运行一些代码，这些代码必须仅在该特定单元格发生更改时运行。如果我不清楚，请让我know.Please帮助我解决这个问题。
浏览 1提问于2013-02-26得票数 6
回答已采纳
我正在处理一个Excel VBA宏，它将获取一些excel文件，对其进行擦除/清理，并生成一个包含两个工作表的工作簿-工作表1是原始的“脏”文件，工作表2是经过清理的文件。
因为我们现在有10种不同的格式，接下来是40+..我想为一组给定的文件保存这个输出，然后编写一个单元测试，它接受原始输入，运行我们的宏，然后将宏的输出与我们保存的预期输出进行比较。
然后，当我们以后进行维护时，我们可以快速轻松地运行单元测试，以确保我们没有破坏任何已经正常工作的东西。
这是我第一次使用VBA。我在谷歌上到处寻找框架或插件，但找不到太多帮助。我确实找到了一个函数，可以比较两个完整的excel电子表格-所以我把
浏览 0提问于2009-11-25得票数 15
回答已采纳
1回答
我是新来的天使，我目前正在工作的虚拟购物网站项目的实践。对于如何将app.js与其他模块中的文件链接起来，我有点困惑。
我正在开发一个登录模块，它在login模块中的各自文件夹中有自己的LoginController和LoginService。
在LoginService中，我定义了两个属性，即isLogged和用户名。当用户成功地使用$http.post()方法登录时(通过数据库中的user表)，值将分别更改为true和username。
我如何确保loginService在整个网站上都可用，跨越不同的模块，这样用户就可以继续登录。
提前谢谢。
浏览 1提问于2015-02-18得票数 0
回答已采纳
假设我有一个Excel表格。我添加了一些程序(VBA)，以使我的工作流程更加顺畅。然后，过了一段时间，我需要另一个非常类似于旧的工作表--特别是因为我想在其中使用相同的VBA程序。
除了复制旧工作表外，是否有办法将程序从旧工作表移到新工作表？
浏览 1提问于2013-11-14得票数 3
回答已采纳
因此，如果我在VBA中声明了一个变量并将其命名为'Rate1‘，那么我正在处理的工作表。如何在电子表格中的单元格内的公式中使用它:示例：
(单元格A2) =A1 * Rate1
浏览 7提问于2017-01-12得票数 1
最近，我在一家公司获得了一个新的职位，我今天获得了。似乎有VBA或宏附加，以改变格式时，我去打印。有办法找到那些吗？我唯一能找到的是两个模块，它们是用来保护和解除工作表的。
浏览 4提问于2018-01-15得票数 2
回答已采纳
2回答
我有很多Excel工作表(超过700个，太多了，不能手工更改)和一个宏xlm，它包含所有工作表的大部分宏。我有遍历所有工作表并在每个工作表中执行宏的函数。由于一个请求，我需要通过中央宏添加一个Eventhandler。因为我对VBA的理解是，Eventhandler只能放在工作表本身的工作表代码文件中，所以我现在不知道下一步该怎么做。
我希望有办法做到这一点？
浏览 0提问于2012-01-20得票数 1
回答已采纳
我有两个工作表1和2。我在工作表2中有一个超链接，它将把我带到工作表1中的单元格A2并以黄色突出显示它。但同时它也删除了表1中单元格A1的颜色。 如何保持工作表1中单元格A1的颜色？ 我正在用表2中的vba代码 Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim i As Long
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).UsedRange.Interior.ColorIndex = -4142
Next
浏览 11提问于2019-10-02得票数 0
1回答
关闭启用计算
、、、
我有一个有很多不同公式的工作簿，其中有一个叫做Map的工作表，每次我在不同的工作表中输入新数据时，我都不需要自动计算。我在这个工作表下面有下面的VBA代码。问题是我需要手动转到Developer选项卡、Properties、EnableCalculation，然后选择False。当我这样做的时候，代码工作得很完美。但是，当我关闭并重新打开工作簿时，属性中的EnableCalculation已自动更改为True。在打开工作簿时，我似乎想不出在单个工作表上只将该属性转换为False的代码。
如能就如何做到这一点提出任何建议，将不胜感激。我对编码很陌生，就像这是我第一次尝试编写VBA代码，我花了几天
浏览 0提问于2018-10-17得票数 0
回答已采纳
我知道我可以在工作表的VBA对象中编写以下代码，以便在工作表更改上运行代码。
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
有没有类似的东西可以让我在过滤某个ListObject时运行代码？
浏览 1提问于2013-11-12得票数 2
4回答
我想做一些事情，比如在WorkBook类中添加一个适用于Excel函数的Name属性。有什么好方法可以做到这一点吗？
更详细的问题:在VBA中，您可以将公式赋给Excel工作表中的某个范围。我希望这样做，并且希望我的公式引用第二个工作簿，该工作簿是我的代码中名为wb的对象。然后，我使用wb.Name将一个公式分配给一个范围。
当wb.Name中有一个单引号时，问题就出现了。然后你会得到类似这样的结果：
=MONTH('[Ryan's WB]Sheet1'A1)
在电子表格中，由于工作簿名称中的单引号与第一个单引号匹配而失败。
我想要的是WorkBook类的FunName
浏览 2提问于2008-11-12得票数 1
回答已采纳
1回答
在MS Access中，我有一张这样的桌子：
TblA_AutoID无价单价
1
2
3
我希望创建一个新表(最好是在将新行添加到第一个表时自动填充的表)，该表按数量将第一个表拆分为1行，如下所示：
TblB_AutoID TblA_AutoID SKU
1
2
3
4
5
6
我在几台机器上工作，一台有Access 2007，一台有Access 2013。我猜这需要在VBA中完成，但是如果有更简单的方法，那就更好了。
浏览 4提问于2015-05-18得票数 1
回答已采纳
在VBA Excel中，如果在关闭并再次打开文件后使用UserInterFaceOnly:=True选项保护工作表，则UserInterFaceOnly模式不处于活动状态，只有密码保护。
代码：ActiveSheet.Protect Password:="myPassword", UserInterfaceOnly:=True
为什么？
浏览 0提问于2016-07-13得票数 7
简单地说，我想在工作簿关闭之前调用一个宏。您可能会说，为什么不直接把它放到ThisWorkbook部分呢？原因是，我上传的代码模块通过VBA时，这本书最初创建。所以基本上有两种解决方案--我就是想不出
在书结束前调用标准模块中的一个子模块。
找到一种方法，在创建图书时，用VBA过程将代码子程序上载到ThisWorkbook部分
有什么建议吗？
浏览 4提问于2015-01-30得票数 2
2回答
我有一组用户定义的vba函数，它们位于excel模块中，然后从excel电子表格中调用.现在一切都进行得很顺利。
我被要求将vba从模块移到工作表的代码页。当我这么做的时候，我发现我不能调用工作表上的单元格的任何函数.这些名字根本不显示为现存的。是否有从excel单元格调用工作表函数的方法？另外，从另一个模块或工作表代码中的用户定义函数调用工作表函数是否有问题？
编辑：
我发现如果我通过sheetname.functionname调用，它会抛出一条错误消息，其中包括“名称与Excel内置名称或工作簿中另一个对象的名称冲突”.如果我使用sheetname.anythingelse，它只会解析为
浏览 0提问于2010-12-08得票数 6
回答已采纳
当您单击电子邮件时，有一个命令按钮作为发送电子邮件的触发器。它将首先调用函数，如下所示：
Private Sub Lotus2_Click()
ThisWorkbook.Send_Unformatted_Rangedata (2)
End Sub
然后，在另一个表中有两个函数部分等待调用，我无法调试它，因为无论何时，系统只显示调用函数的行。问题是我知道调用函数有问题，但我不确定函数的哪一部分出错了。很抱歉，因为功能部分有点乏味，如下所示。我会非常感谢您的建议，谢谢。
*更新*我刚刚发现Run time error -2147417851 (80010105) Automation error
浏览 3提问于2015-05-05得票数 0
回答已采纳
我花了相当多的时间在一个项目上，假设excell书中的每个工作表都会使用我正在编写的模块的一个实例。我有多个工作表，它们都是相同的模板，但这些工作表是特定于所存储的数据类型的。但是，在模块中我有setter和getter，我期望给定工作表上的getter只能访问由同一工作表(模块的一个实例)上的setter设置的变量。事实证明，所有的工作表都使用模块的相同实例，并且setter相互覆盖，因此只有一个工作表具有由模块计算的精确结果。我不想讨论TMI，但是setter提供的数据用于格式化getter提供的原始数据。有没有一种方法可以让每个工作表都有一个模块的实例，而不需要编写每个工作表的代码。我的
浏览 1提问于2013-08-22得票数 0
4回答
我正在为Excel工作表处理一些VBA脚本，并且我已经创建了一个模块，该模块包含一个完整的列表，其中主要是存储每个数据库字段名称的字符串。这样，如果有人修改数据库，他们可以更新模块中的VBA变量，然后我的所有脚本(它们直接引用全局变量而不是直接引用字段名)甚至不知道其中的区别。
无论如何，我将在几个不同的、不相关的excel工作表中工作，我希望他们都能访问该模块。最坏的情况是，我可以手动将模块复制到每个工作簿，但如果它们都可以从外部引用相同的文件，那就太棒了……这样的事情在VBA/Excel中是可能的吗？
而且，现在我的变量看起来很简单：
Global tblDeviceType As Str
浏览 0提问于2009-07-27得票数 3
回答已采纳
因此，在excel中，他们有一个数据模型。您可以在VBA中访问此数据模型，但现在...将数据透视表或查询添加到数据模型中相当容易，但是如何将普通表添加到数据模型中呢？
浏览 0提问于2016-04-29得票数 0
编辑:关于部分解决方案，请参见下面的评论。
编辑2:我找到了一个关闭VBA编辑器的足够的解决方案，但我只想看看是否有人知道如何使它始终完全不可见。我发现的东西满足了我的需要，但我将为任何想要详细阐述另一种方法或扩展我的方法的人保留这个线程。
原文:我有一个创建表、查询和表单的函数。对于表单，它复制一个模板表单，并调用一个动态替换窗体VBA代码的函数。但是，如果编辑器中没有打开类对象表单，下面创建的函数工作得很好，我会得到运行时错误'2516'："Microsoft找不到模块' SPCInputFormVBA .'，其中SPCInputFormVBA是类对
浏览 3提问于2016-03-14得票数 0
回答已采纳
我有一个VBA函数，我想在Excel文件中使用它。
Excel文件是通过Matlab创建的，我想在一个Excel工作表的单元格中使用VBA函数。
我可以在Excel文件中手动创建一个VBA函数。但是，由于我是通过程序创建Excel文件，因此我想将VBA函数另存为文件，然后从Matlab中调用它。
有没有办法在Excel文件中使用VBA函数？
浏览 5提问于2012-03-04得票数 1
我正在使用Workbook_BeforeSave更新excel 2010中锁定工作表上的一些单元格。该子例程在使用ctrl-s进行保存时可以正常工作，但在vba中使用.Save时不会解锁工作表。
ThisWorkbook(代码)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim MyPassword As String
MyPassword = "password"
ActiveWorkbook.Worksheets("Sheet1
浏览 4提问于2013-01-19得票数 0
回答已采纳
1回答
我需要保存几个Excel工作表以分离文件。床单是受保护和锁定的，但是我想让拼写检查可用。对于使用unlock>spellcheck>relock的小例程的VBA，这是可能的。
Sub SpellCheck()
ActiveSheet.Unprotect
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC", IgnoreUppercase:=False, AlwaysSuggest:=True, SpellLang:=1033
ActiveSheet.Protect
End Sub()
现在，我在要导出的工作表上放置了
浏览 3提问于2015-09-09得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
