vba

    1热度

    1回答

    这个问题听起来很愚蠢,但是当我使用函数GetElementsByTagname(“frame”)时,它只返回3作为长度而不是5,正如我预期的那样? 这里就是我算的标记名“框架”,但5倍的幽灵,当我问在VBA长度我得到3 ... 我观察了HTML of the webpage: 1)你可以看到3是主框架的数量(top_navigation,contentframe,dummyframe) 2)如果我

    0热度

    2回答

    嗨,Excel和VBA大师。 我有一个问题,我敢肯定,你可以帮我:) 在这种情况下: 我有一些产品,它们的价格和商店工作。我需要以最优惠的价格找到每一件产品。 在Worksheet1我有报价从商店: 在Worksheet2我需要列出所有产品他们最好的价格和SHOPNAME(只有最优惠的价格行,但不加倍) 我敢打赌,这不是很难做到,但我的excel技能是非常低劣的(我不能告诉它我的老板:) ),所以

    0热度

    1回答

    我在Access数据库中出现此错误。 假设我有一个名为ComboAreaProgetto的窗体,它具有一个叫做textboxArea的文本框和一个名为AddButton的按钮。该按钮在单击事件上有一个事件过程,该事件必须将该文本框内容添加到表ComboAreaProgetto的字段'Area progetto'中。这里是下面的代码: Private Sub AddButton_Click() D

    0热度

    1回答

    我一直试图解决这个问题很长一段时间了。这可能是很好的知道我不是很熟悉Excel公式& VBA,并且我正在使用Excel 2010. 我有两个单独的工作表,我们称他们为“数据”和“模板”。 在“数据”我有〜10000个细胞的信息(从E2运行邻近E10001,数字顺序排序)。 在“模板”我有我想从“数据”的数据来填充模板。这里存在的问题是,“模板”表中填充了约10,000个空的循环模板,其中一个模板覆

    1热度

    1回答

    我有一个代码,可以压缩所有选定的文件(信贷RonDeBruin的代码),虽然我修改了它的一些部分。我的问题是,每次我运行的代码它弹出这样的错误: 这里是我的代码: Sub zipAllFiles() 'rondebruin <--- Credits to code Dim FileNameZip, FolderName Dim strDate As String, DefPath As S

    2热度

    1回答

    我有一个巨大的导入和导出应用程序,写回到版本VBA 9.1和迁移它到Excel 2013 我在第一次冻结期间遇到问题使用这一行的行。 AddWorksheetWithDefaults.Parent.Windows(1).Activate With AddWorksheetWithDefaults.Parent.Windows(1) .FreezePanes = False .FreezePa

    1热度

    2回答

    所以我试图做一个样本选择器。 我有的当前变量是用户指定的范围。 Settings.AmountColumn是一个看起来像B1:H100线条的范围。 SampleRefArr是一个行号数组,相对于Settings.AmountColumn的第一行。例如,如果我的SampleRefArr显示(3,4,7),那么我需要采取以下范围(B4:H4,B5:H5,B8:H8)并将它们复制到新的电子表格中。我已经

    0热度

    1回答

    我使用用户The_Barman从一个Excel文档导出特定细胞的CSV文件提供了解决方案CSV文件: Sub WriteCSVFile() Dim My_filenumber As Integer Dim logSTR As String My_filenumber = FreeFile logSTR = logSTR & Cells(18, "C").Value & " , "

    0热度

    2回答

    我正在处理VBA代码以将选项卡上的所有内容合并到一个选项卡中。所有的作品很好,除了我不能得到包含TAB文件名称。我有超过200多个选项卡,我需要从它们的所有内容放在一个选项卡上(数据结构相同),但也包括列名称(最好是A列)中的选项卡名称。这是我迄今为止: Sub FuLL_LIST_MERGE() ' ' FuLL_LIST_MERGE Macro ' ' Dim ws As Work

    0热度

    1回答

    我想设置word文档页脚的行间距为12点。 我用这个代码 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.ParagraphFormat.LineSpacing = 12 但doensn't工作。我正在使用单词2013.