如题，用Vba运行到Set ie = New InternetExplorer 时提醒 “没有注册类”

简单的两个循环，大约处理8000条数据，但是需要执行7-8次才能得到正确结果，大神帮看下问题出在哪里？ Sub S1() Application.ScreenUpdating = False Dim r, i As Integer Dim s

如题，如何用vba控制PDF在已找出的问题设置高亮文本（标黄） 代码如下 Sub Pdf添加书签() '为某书添加书签 Set APP = CreateObject("AcroEXCH.App.1") Set PDoc = CreateObject

我想实现它不论第一列有数据或者第二列有数据都能复制并合并过来，但是现在只是在第一列有数据的情况下才能复制合并过来，能帮我看看是哪里出问题了吗，需要怎么修改呢。 Sub 区域合并A() Dim ARR, R&, C%, i&, j&, n& '整形可

由于订单对应会有完全相同的值出现，所以无法实现一一对应。 比如表1的内容是 表1订单号 时间 数量 单价 目标 12345 2022/7/15 100 5 张三 12346 2022/7/15 100 5 张三 表2的内容是 表2订单号 时间 数

Option Explicit Sub POS刷卡检核() Dim dicdata1 As Object Set dicdata1 = CreateObject("Scripting.Dictionary") Range("a:b").C

UI in Sheet1authority_list利用excel建置小型工具是一項有效率的工作方式，除了可供使用者們重覆使用並取得一致性的結果，建置者也不一定需具備高門檻的程式設計背景才能開發excel 工具，例如建置小型資料庫以供團隊成員隨時查詢，一舉兩得。為了了解使用者的使用狀況，本文將既有的小型資料庫的登入資訊模組進行簡化，並單純以輸入ID資訊為範例，將使用者的登入時間一併...

一、需求市场调查的目的是为管理和决策部门提供准确的、可靠的、有效的当前信息，有时是为了制定长远性的战略性规划，有时是为制定某阶段或针对某问题的具体政策或策略提供参考依据。正确的决策不是靠直觉和猜测得到的，缺乏充分依据的信息，可能导致错误的决策，在市场经济越来越发达的今天，全方位多层次的市场调查活动越来越频繁。那么利用Excel能在市场调查活动中起到什么作用呢？ 本示例通过设计问卷调查及回收统计系统...

Shape对象的Type属性有如下这些类型，当对单元格中的图形对象进行操作前，可以先判断类型，例如将单元格中的图片位置放置于左上角： Dim Sp As Shape Dim Rng As Range If Sp.Type = msoPicture Then '判断shape的类型是否图片，可以用值13代替msoPicture Set Rng = S...

如题，VB/VBA如果如下代码可以读取json数据到VB/VBA的数据字典或数组里面 Set s = New ScriptControl s.Language = "javascript" s.AddCode "var o = "

遇到了需要把文件按文件名移动到对应文件下的指定子文件夹里。 例如： 150000220262_蒋科_C021907230017370262 150000220262_蒋科_C021907270017401952 150000220262_蒋科_C02

Sub testXML() Dim dom, node, PCMS Set dom = CreateDom Set node = dom.createProcessingInstruction("xml", "version='1.0' encod

一、什么是 MyBatis？MyBatis 是一款优秀的持久层框架，它支持自定义 SQL、存储过程以及高级映射。MyBatis 免除了几乎所有的 JDBC 代码以及设置参数和获取结果集的工作。MyBatis 可以通过简单的 XML 或注解来配置和映射原始类型、接口和 Java POJO（Plain Old Java Objects，普通老式 Java 对象）为数据库中的记录。二、入门案例（1）创建maven项目在此之前，需要提前配置好java环境变量和maven环境变量。..

请编写一个程序迭代求解sin(x),迭代公式为sin(x)=x/1-x^3!+x^5/5!-x^7/7!+...+(-1)^(2n-1)/(2n-1)!,当n项的值小于10^-5时结束，x为弧度。要求输入x的值，输出相应的结果。【注意】迭代公式中的^代表幂运算。并且输入和输出各占一行，输出结果保留4位小数；运行效果如下所示。【运行结果】输入（一行）：1.57输出（一行）：1.0000一、程序代码#!/usr/bin/python# -*- coding: UTF-8..

如何用VBA批量创建多个数据透视图，楼主只会用VBA创建数据透视表，但是不知道如何创建数据透视图，直觉是加一句创建图的代码即可，但还没这个水平，求指教。下文附上数据源和创建透视表的代码 数据源： 组别 电芯编号 容量 能量 温升 GN1 37 7.3

自己做的一个宏，却一个功能就是打开文件即加载宏，网上的一段宏程序如下，但是实现不了 Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName A