worksheet

    2热度

    3回答

    我有大量的EXCEL文件(即200)我想将一个特定的工作表从一个工作表复制到另一个工作表。我做了一些调查,我无法找到Openpyxl 这做这件事的方法是代码我迄今 def copy_sheet_to_different_EXCEL(path_EXCEL_read,Sheet_name_to_copy,path_EXCEL_Save,Sheet_new_name): ''' Function us

    1热度

    1回答

    我试图保护工作表使图像的插入图像的插入。然后我学会了如何用VBA代码保护WorkSheet,但WorkSheet不允许插入图像。 当我手动保护工作表时,发现如果选中“修改对象”选项,工作表允许插入图像。 现在,我在寻找有关的Protect方法的参数,然后我有以下代码: With Sheets("Sheet1") .Protect Password:="password", Drawin

    0热度

    1回答

    我希望仅在所有必需的单元格都包含信息时才执行脚本。 上面表显示的布局如何。需要为脚本启动的行是列B到G 我还希望但不是必需的一个额外功能是,如果用户没有填写所有需要的单元格,它将突出显示它们红色并删除相关活动行的列H & I中的值。 下面是执行时H列的值为“已完成” function moveComplete() { Utilities.sleep(200);

    1热度

    1回答

    我有一个约350,000行数据的列表,我需要排序并将结果粘贴到新的WS上。前12列是权重,第12列是定性值。我需要在值为2530的前12行中搜索权重,同时也具有相应的定性值0. 权重从C列开始,并且在O列中具有对应的定性值(+12列)。对于所有12列权重和随后的定性值重复该模式。 我是VBA的新手,我的代码已经从各种来源拼凑在一起。这似乎需要永远运行,我不确定是否它是错误的代码或只是一个庞大的数据

    0热度

    2回答

    有谁能告诉我为什么下面的VBA代码给我一个类型不匹配的Excel? Dim mySheet As Worksheet Set mySheet = Worksheets("BOSS List") Worksheets(mySheet).Cells.Clear

    0热度

    1回答

    当试图将我的'remSheet'变量设置为newQuery工作簿的工作表1时,我不断收到上面提到的'类型不匹配'错误。 脚本的开头如下所示。最后一行是导致错误的行 Sub importNewPTRs() Dim masterWorkbook As Workbook Set masterWorkbook = ThisWorkbook Dim newQuery As Workbook Set

    0热度

    1回答

    不知道为什么,这是行不通的: COUNTIF(OFFSET(OtherSheet F5,0,0,4,1),” < 10" !) 尝试在另一个工作表的4行中计算小于10的值。当然,我可以使用OtherSheet F5:F8而不是OFFSET像这样: COUNTIF(!OtherSheet F5:F8” < 10" ) ,这工作得很好。但我正试图去动态确定“4”的位置。但是,当范围在另一个电子表格中时

    0热度

    1回答

    下面复制的代码表我有一个新的Microsoft Word文档的工作表,并将其粘贴。唯一的问题是,当粘贴在word文档中时,它会切断一半的表格。有什么建议么?谢谢。 Sub btnExport() Dim objWord As Word.Application Range("C2:D60").Copy Set objWord = CreateObject("Word.Application.

    1热度

    3回答

    我希望在Excel中的工作簿的一个或多个特定工作表上运行VBA代码。但是我不希望激活代码运行的工作表,我希望在后台完成,并在当前工作表上显示结果,其中会有按钮调用代码。 我对这个问题所见到的所有回复都需要访问宏将运行的工作表,但我想避免这种情况。 也许把代码放在With语句中可以完成这项工作吗?我已经调查过它,但无法弄清楚线条前面的所有点。 我试图在这里发布代码,但我不断收到缩进错误,所以现在我将

    0热度

    1回答

    我有一个包含我们基金经理月度报表所有PDF的文件夹。我正在尝试创建一个将循环遍历它们的子文件,将每个PDF报告转换为Excel文档中的工作表。问题是,每个公司给我们发表声明的命名约定是非常不同的,所以我试图想出一个优雅的方式来命名每个工作表。这是打开新工作簿的第一个子代码,设置路径并调用实际导入pdf的其他子代码。 Sub newWkbk_callSub() Dim PDF_File A