excel-vba

    0热度

    0回答

    在Control Panel> Printer and Faxes我的默认打印机,是HP LaserJet P2035 on Ne02: 我有连接到我的系统2台活跃打印机。 我想PrintOut与我的第二打印机,其是:HP LaserJet Pro MFP M127-M128 PCLmS on Ne01: 有这Sheet1 我PrintOut嵌入(作为图标)以上嵌入文档MS-Word文档。 我的代

    10热度

    2回答

    我已经写在VBA刮刀解析从洪流站点的某些影片信息退出浏览器。我用IE和queryselector完成任务。当我执行我的代码时,它会解析一切,并弹出一个错误。看起来这个错误似乎是无处不在,而不是继续。如果我取消错误框,那么我可以看到结果。我已经上传了两张图片,向您展示我遇到的错误。我如何成功执行代码而不会出现任何错误?提前致谢。 下面是完整的代码: Sub Torrent_Data() D

    2热度

    1回答

    我有一个主子,使得使用一个Client类:与100 000Clients创建一个数组并循环阵列之上100次,每次设置不同的随机数到每个Client。 Sub start() Application.ScreenUpdating = False Dim j As Long Dim clientsColl() As Client ReDim clientsC

    0热度

    1回答

    我创建了一个DLL(使用C++),它依赖于sqlite3.dll(用于数据库访问& sqlcipher),我试图使用VBA来访问它。在VBA我使用以下声明: Declare Function GetData_VBA Lib "xyz.dll" (ByVal path As String, ByVal id As String, ByRef inputArr() As String, ByRef o

    -2热度

    1回答

    我是VBA的新手。 Endstate - 在一个范围内搜索并计数用户指定的填充颜色计数合并单元格(我知道,合并遗址所有内容)的唯一单元格值为一个整体单元格。 我已经编译了下面的代码,但它不能正常工作,任何帮助将不胜感激! Function CountUniqueColorBlocks(SearchRange As Range, ColorRange As Range) As Long Dim c

    0热度

    1回答

    我希望我的宏在单独的IE选项卡中打开存储在电子表格中的每个链接。我是成功的,打开第一个链接,但在循环的第二次迭代某种原因,我得到: 自动化和error.The接口是未知 错误。 我怀疑宏在第一次迭代后失去IE对象引用,但我不知道为什么。 范围设置OK。 下面是代码: Sub OpenCodingForms() Dim wb1 As Workbook Dim ws1 As Worksheet

    0热度

    1回答

    如何删除返回字符串中有问题的空白区域? 我在Excel中使用单元格内的函数,我有一个字符串,我在其中找到特定的文本并将其移动到同一字符串中的另一个地方。 我的结果很好,除了它们包含一个额外的空白,我无法弄清楚如何删除。我相信这对你来说很简单,但我对于正则表达式和学习很陌生。 示例文本字符串: 999999 - Blah Blah Blah 8888 blah blah 期望的结果是: 9999

    0热度

    3回答

    我的工作流程通常包括启动一组EC2服务器,并让它们在Excel工作簿的不同部分上工作。它不理想,但它是如何。我想尽可能自动化这个过程。 理想情况下,我会在启动时创建一个打开Excel工作簿的AMI。然后,该工作簿将自动运行一个脚本,该脚本从保管箱文件夹中获取已命名的Excel工作簿,打开该工作簿并运行其自动脚本。这样我所要做的就是编写第二个Excel工作簿的脚本,给它一个“魔术”名称,将它上传到保

    0热度

    1回答

    我在Excel中创建了一个搜索表格,我想用VBA代码搜索工作簿其余部分中的特定单词。这是我的表格的一个例子。 水果 商店 区 我已经设置这些值作为一个字符串,但我有具有一个项目的空白,然后运行宏麻烦。所以,如果我只想找到水果和面积,它不会运行,因为商店是空白的。有没有一种方法可以搜索工作簿而不必填写每行? 这是我用来复制数据的代码。 finalrow = Cells(Rows.Count, 1).

    -1热度

    3回答

    我是绝对新的Excel和宏VBA我有以下问题。 我写了这个代码打印从3TH行开始到第5行的ķ列单元格的内容: Dim outQuantityRange As Range Set outQuantityRange = Range("K3:K5") For Each currentOutQuantity In outQuantityRange.Cells MsgBox (curren