我在VBA代码中得到"Method 'Visible‘of object'_Worksheet’failed“ - 腾讯云开发者社区

文章/答案/技术大牛

发布

VBA: 为worksheet 设置密码和解除密码

此时，我们可以在宏命令中添加相应的代码：在程序执行前，解除密码；在程序结束后，设置密码。...End If 2 保护和解除保护工作表 2.1 保护工作表在VBA中可以使用Worksheet对象的Protect方法保护工作表。...这样，在保护工作表期间，那些锁定单元格得到保护，其他未锁定的单元格依然可以编辑。 2.2 解除保护工作表在VBA中可以使用Worksheet对象的Unprotect方法解除保护工作表。...1293) [5] Worksheet.Protect method(https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.protect...) [6] Worksheet.Unprotect method(https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.unprotect

3.7K2 0

VBA实用小程序61：在文件夹内所有文件中运行宏在工作簿所有工作表中运行宏

下面给出了适用这种情况的一些VBA程序，这些程序代码整理自analystcave.com，供有兴趣的朋友参考。...在文件夹内所有文件中运行宏代码如下： '本程序来自于analystcave.com Sub RunOnAllFilesInFolder() Dim folderName As String...Dim currWs As Worksheet Dim currWb As Workbook Dim fDialog As Object Set fDialog...3.使用要在每个打开的工作簿上运行的代码替换“在这里放置你的代码”部分。 4.每个打开的工作簿在关闭时不会保存所作的修改。...下面的内容与前述内容几乎相同，但是请注意声明了一个全局变量fileCollection，这将首先用于存储子文件夹中标识的所有文件，并且仅用于在此VBA集合中存储的文件上运行所有宏之后。

6.8K1 1

您找到你想要的搜索结果了吗？

是的

没有找到

VBA专题10-20：使用VBA操控Excel界面之隐藏和取消隐藏控件、组和选项卡

visible是设计时属性，而getVisible是运行时属性。例如，下面的示例XML代码永久隐藏“开始”选项卡中的“字体”组和“对齐方式”组： ?...在ThisWorkbook模块的SheetActivate事件处理中的代码： Private Sub Workbook_SheetActivate(ByVal Sh As Object) '在Excel...在ThisWorkbook模块中的SheetActivate事件处理代码： Private Sub Workbook_SheetActivate(ByVal Sh As Object) '在Excel...在标准VBA模块中的VBA代码： Public myRibbon As IRibbonUI 'Callback for customUI.onLoad Sub Initialize(ribbon As..." End Sub 在ThisWorkbook模块中的SheetActivate事件处理代码： Private Sub Workbook_SheetActivate(ByVal Sh As Object

10.6K2 0

Excel中如何批量重命名工作表与将每个工作表导出到单独Excel文件

Excel中通过VBA批量重命名工作表Worksheet Microsoft Docs Step 1: 打开Developer Tab找到VBA (快捷键 Alt+F11) Step 2: Insert...–>Module Step 3: 将以下代码复制进去 Sub RenameSheet() Dim rs As Worksheet For Each rs In Sheets rs.Name =...rs.Name = rs.Range("F3") End If Next rs End Sub Excel中通过VBA批量修改特定位置颜色单个无条件修改全部工作表 Sub BackGroudColor...Otherwise, do nothing End If Next rngCell 有条件修改全部工作表修改全部工作表的代码为 Dim ws As Worksheet For Each ws In...Sheets ###在中间插入你想要全部工作表都修改的代码 Next ws ======================================== Sub Fill_Cell_Condition

6.5K1 0

C# 获取 Excel 文件的所有文本数据内容

3、获取文本文件的内容字符串并存储到数据库中。...实现代码如下： public string getExcelContent(string _filename) { Object Nothing=System.Reflection.Missing.Value...new Excel.Application(); excel.DisplayAlerts=false; excel.AskToUpdateLinks=false; excel.Visible...总结以上代码我们提供了一些操作 EXCEL 的API关键方法，后续我们可以将文本内容存储到数据库中，查询或下载，可以参考我的文章：《C# 将 Word 转文本存储到数据库并进行管理》关于 EXCEL...文件导出方法可参考如下官方文档： https://learn.microsoft.com/zh-cn/office/vba/api/excel.worksheet.saveas?

9981 0

VBA: 批量重命名文件夹和文件名称

文章背景：在工作中，有时需要将一些文件名称修改成特定的名称，如果文件比较多的话，手动修改费时费力，下面通过VBA代码实现批量操作。...已得到所有的子文件夹名称。"...已得到所有子文件的路径。".../1510） [5] DeleteFolder method（https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help.../deletefolder-method）

10.9K3 1

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

这个可以通过VBA代码编辑器里的属性窗口，设置工作表的Visible属性为xlSheetVeryHidden来实现，当然使用VBA来设置肯定就更为方便快捷了： ?...首先在customUI.xml中增加代码： <menu id="rbmenuShtHide" label="工作表隐藏 " size="large" imageMso="WindowSplit..., vbCritical End If End Sub Sub VeryHideExceptActiveSht() Dim sht As Worksheet For...sht.Visible = xlSheetVisible Next End Sub 函数比较简单，就是去设置工作表的Visible属性即可。...在设置当前工作表隐藏的时候，需要判断工作簿是否还有其他的可见工作表，否则会报错。

3.6K3 0

自定义功能区示例：创建用于工作表导航的动态组合框

标签：VBA，自定义功能区在《自定义功能区示例：创建用于工作表导航的下拉列表》中，我们在Excel功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表的一个自定义组，用于从下拉列表中选择工作表...我们对此示例进行修改，使用组合框来实现，如下图1所示，并且当用户在该工作簿中新建或删除工作表时，组合框中的列表项会自动更新。...在Excel中打开CustomDynamicCombobox.xlsm，打开VBE，插入一个标准模块，输入下面的代码： Dim Rib As IRibbonUI Dim mwkbNavigation As...Ribbon control comboBox ' End Sub 然后，打开ThisWorkbook代码模块，输入下面的代码： Private Sub Workbook_NewSheet(ByVal...Sh As Object) RefreshAddInsRibbon End Sub Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

1.1K2 0

Worksheet工作表对象属性

代码中sheet1.usedrange属性得到一个单元格对象，即range("a1:c5")，然后将它的单元格interior属性的颜色设置为蓝色。...四、visible属性通过设置工作表的visbils属性达到显示和隐藏工作表的目的。（visbile属性可以通过vba代码更改，也可以在工作表的属性窗格中更改visible属性。）...（vba代码中也可以使用1和true）属性值0为普通隐藏，可以从格式菜单中取消隐藏。...（vba代码中也可以用false或者xlsheethidden）属性值2代表深度隐藏,不能从格式菜单中取消隐藏，必须通过vba代码或属性窗格中更改。...通过代码worksheets.count得到工作簿中有工作表对象集合中有4个worksheet对象。

3.3K3 0

基于单元格值查找并显示图片

在Excel中，可以在一个单元格中显示一张根据另一个单元格的信息而变化的图片。...由于Excel中的图片不能放在单元格中，而是浮在工作表顶部，并且由于查找函数返回的是值，而不是图片，因此需要一些VBA代码来模拟查找图片并将其放置在单元格中。...图1 图片放在工作表Sheet1的任何位置，在图片所在的单元格F1中，输入以下公式： =VLOOKUP(A2, PicTable, 2, False) 然后，在该工作表Worksheet_Calculation...VBA代码隐藏所有图片，然后显示与F1中的值相对应的图片，必要时重新定位。...代码如下： Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range

1.4K1 0

VBA: Excel文件批量转化为pdf (2)

上篇文章（见文末的延伸阅读）通过VBA代码，采用ExportAsFixedFormat函数将excel文件转化为pdf文件，对于部分excel文件的转化效果不太好，有些谱图显示不完整，如下图所示。...在批量转化文件的按钮中添加如下的宏代码： Option Explicit Sub ConvertFiles() '批量转化Excel文件为pdf Dim filefolder As...End Sub Function isDirectory(pathName As String) As Boolean '用于判断文件夹是否存在 Dim fso As Object...(Excel)（https://docs.microsoft.com/en-us/office/vba/api/excel.sheets.printout） [2] Converting a worksheet...to PDF using VBA PrintOut method (https://stackoverflow.com/questions/43437576/converting-a-worksheet-to-pdf-using-vba-printout-method

3.2K1 0

使用VBA复制、插入、移动、删除和控制图片1

标签：VBA 如何控制Excel中的图片？这就是本文要介绍的内容。情形1：在工作表中插入图片下面的代码在当前工作表的当前单元格中插入图片并保持其原始大小。...下面的代码显示工作表中最后插入的图片的名称。...("Picture 2") myImage.Name = "我的图片" End Sub 情形3：获取图片属性下面的代码获取通用图片属性。...& myImage.Name & vbNewLine & _ "左上角单元格: " & myImage.TopLeftCell & vbNewLine End Sub 情形4：删除图片下面的代码删除当前工作表中名为...= ws.Shapes("Picture 4") myImage.Visible = msoFalse '使图片再可见 'myImage.Visible = msoTrue End Sub

1.9K1 0

问与答118：如何使用VBA将多个工作表数据复制到PPT中？

Q：我需要编写一个程序来实现下面的目的。遍历每个工作表，如果工作表的单元格S1中的值为“1”，则将该工作表的“Print_Area”（打印区域）复制并粘贴到一张空白幻灯片中。...A：可以使用下面的VBA代码实现。...As Object Dim mySlide As Object Dim myShape As Object Dim ws As Worksheet Dim x As Integer...15 myShape.Width = 690 End If Next ws '使PowerPoint可见并激活 PowerPointApp.Visible...PowerPointApp.Activate '清除剪贴板 Application.CutCopyMode = False End Sub 小结：又一个Excel与PowerPoint整合应用的示例，注意添加新幻灯片的代码技巧

8.5K3 0

VBA: 将单元格区域作为邮件正文发送到指定邮箱

文章背景：在工作中，有时需要将单元格区域的内容作为邮件正文发送到指定邮箱，如果希望邮件正文中的单元格区域带表格样式，则需要将其转换为html格式。...系统：Win10 发件邮箱：Outlook 365 VBA代码如下： Option Explicit Sub 发送邮件() Dim ws As Worksheet Set ws...= ThisWorkbook.Worksheets("test") '将"test"替换为你要操作的工作表名称 '设置邮件参数 Dim outlookApp As Object...Application.CutCopyMode = False '删除可能存在的绘图对象 On Error Resume Next .DrawingObjects.Visible...Nothing Set fso = Nothing Set TempWB = Nothing End Function 运行效果：相关资料： [1] 讯飞星火大语言模型 [2] VBA

1.6K1 0

VBA代码：将整个工作簿中的所有公式转换为值

标签：VBA 这是不是将工作簿中的每个公式转换为值的最快、最有效的方法，请大家评判。有趣的是，不管工作簿中有多少张表，它都是用一个操作来处理的。...Dim Goahead As Integer Dim n As Integer Dim i As Integer Goahead = MsgBox("这将不可逆地将工作簿中的所有公式转换为值。...In ActiveWorkbook.Worksheets If Not sh.Visible Then HidShts.Add sh sh.Visible = xlSheetVisible...= xlSheetHidden Next sh End Sub 这是通常使用的代码： Sub ConvertAllValues() Dim wSh As Worksheet For Each...注：本文代码整理自ozgrid.com，供有兴趣的朋友探讨。

5K4 0

Excel 宏编程的常用代码

大家好，又见面了，我是你们的朋友全栈君。 Excel 宏编程的常用代码我们常用Excel统计一些数据，如果善用VBA，就能自动做出各种复杂的报表，懒人就是追求一劳永逸！...————————————————————————- 用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！...Const MyStr = “Hello”, MyDouble As Double = 3.4567 选择当前单元格所在区域在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中...只要将该段代码加入到你的模块中。...Dim my As Worksheet For Each my In Worksheets my.PrintPreview Next my 得到当前单元格的地址 msgbox ActiveCell.Address

3.8K1 0

Excel催化剂开源第13波-VSTO开发之DataGridView控件几个小坑

使用DataGridView的一些小坑 DataGridView内复选框状态改变激活事件在Excel催化剂的【工作表导航】功能中，有用到DataGridView存储工作表信息，需要和用户交互的是用户点击复选框...else { wht.Visible...在百度上搜索了一些代码实现了此功能。在Excel催化剂上的使用场景为，对工作表的手工排序操作。...Net下写VSTO插件，没有理由再用VBA那些落后的控件，DataGridView、Ado.Net这些在.Net环境里的数据控件和数据存储技术是首选，代码书写更流畅，开发效率更高，用户体验也是超棒。...此篇给大家扫清几个小坑，让大家开发过程中，更顺畅，尽情地在业务逻辑代码上发挥，少关注底层这些莫名的坑坑洼洼。

1.7K5 0

Excel VBA编程

但是在VBA中，数据类型跟Excel不完全相同。...**如果记得某个函数大致拼写，在编写代码时只要在【代码窗口】中输入“VBA.”，就可以在系统显示的函数列表中选择需要使用的函数。...visible属性，隐藏或者显示工作表 worksheets("worksheet_name").visible =False or True 访问count属性，获得工作簿中工作表的数目 worksheets.count...事件 worksheet对象一共有17个时间，可以在【代码窗口】的【事件】列表框或VBA帮助中查看这些事件常用的worksheet事件事件名称时间说明 activate 激活工作表时发生 beforeDelete...当在工程中添加一个窗体后，就可以在窗体上自由的添加ActiveX控件，只要通过编写VBA代码为这些控件指定功能，就能利用这些控件与excel互动在工程中添加一个用户窗体设置属性，改变窗体的外观在窗体中添加和设置控件的功能

53.5K3 4

自定义功能区示例：创建用于工作表导航的下拉列表

标签：VBA，自定义功能区我们可以自定义功能区，在上面设置我们想要的功能，从而方便我们对工作表或工作簿的操作。...本文的示例如下图1所示，在功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表的一个自定义组，用于从下拉列表中选择工作表，从而快速导航到该工作表，这对于工作簿中有大量工作表且要快速找到相应的工作表的用户来说...图1 假设该工作簿名称为CustomUIDropdown.xlsm，使用Custom UI Editor for Microsoft Office打开该工作簿，在其中输入代码：在Excel中打开CustomUIDropdown.xlsm，打开VBE，插入一个标准模块，输入下面的代码： Dim Rib As IRibbonUI Private mwkbNavigation As...Set mwkbNavigation = ThisWorkbook For Each wksSheet In mwkbNavigation.Worksheets If wksSheet.Visible

1.3K2 0

C#如何快速高效地导出大量数据？

这里要注意一个问题了，就是在visual studio里面 Worksheet.get_Range Method Range get_Range( Object Cell1, Object...studio 2010以前都可以这样用，但是visual studio 2010里面是下面的形式 Range get_Range(object Cell1, object Cell2 = Type.Missing...，经过前后两种导出方式的对比，您会发现，导出的思想改变了：原来的程序将数据一个表格一个表格地写入到EXCEL中；修改后的程序先将数据存入二维数组中，然后再将数组值赋予EXCEL应用程序对象的VALUE...属性正是导出思想的改变，使导出速度提高不少，请参考我的导出时间数据对照： 2万条：30分钟-->2分钟左右；3万条：大于60分钟-->3分钟;20万7000多条：导出失败--->15分钟左右可以明显看出...还有一个要提醒大家，EXCEL中SHEET最多存储65535条数据，如果数据过多就需要增加sheet继续存储数据，关于如何使用，上边我修改过的代码中已经有详细的使用，请大家自己去看，这里不再重复。

2.6K1 0

点击加载更多

VBA: 为worksheet 设置密码和解除密码

VBA实用小程序61：在文件夹内所有文件中运行宏在工作簿所有工作表中运行宏

VBA专题10-20：使用VBA操控Excel界面之隐藏和取消隐藏控件、组和选项卡

Excel中如何批量重命名工作表与将每个工作表导出到单独Excel文件

C# 获取 Excel 文件的所有文本数据内容

VBA: 批量重命名文件夹和文件名称

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

自定义功能区示例：创建用于工作表导航的动态组合框

Worksheet工作表对象属性

基于单元格值查找并显示图片

VBA: Excel文件批量转化为pdf (2)

使用VBA复制、插入、移动、删除和控制图片1

问与答118：如何使用VBA将多个工作表数据复制到PPT中？

VBA: 将单元格区域作为邮件正文发送到指定邮箱

VBA代码：将整个工作簿中的所有公式转换为值

Excel 宏编程的常用代码

Excel催化剂开源第13波-VSTO开发之DataGridView控件几个小坑

Excel VBA编程

自定义功能区示例：创建用于工作表导航的下拉列表

C#如何快速高效地导出大量数据？

相关资讯

热门标签

活动推荐

运营活动

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐