问题标签 [vba7]

我正在做一个项目，我正在从具有相同设置的其他文件中导入工作表。我在工作表模块中编写了一些代码，预计将随导入一起提供。处理放置在共享驱动器中的文件时，我遇到了错误。工作表代码将自动替换为以下内容，这导致我的文件崩溃。

知道为什么会发生这种情况以及如何解决吗？

另外，这是我的工作表模块代码。

这是我用于导入的代码。impSHT 是我为其他工作簿复制的工作表。

我无法弄清楚为什么宏每次都使用以下代码保存文件名 .xl&somedigits 的文件，例如 filename.xl105：

像（来自“.xlsm”）sm 是函数的一部分。生成的文件名看起来像 Fname.xl105、Fname.xl35、Fname.xl254 等......有些想法？

我正在尝试使用 Excel VBA 和 Selenium 自动化 Google Chrome

但是我用来访问数据的网站在完全加载之前会加载很多广告！ 数据网站链接

触发下一个命令所需的元素甚至在整页加载 1 秒之前就已经存在。但是代码在触发下一个命令之前等待页面完全加载。（整个页面几乎需要 7-8 秒才能加载）。

红框中的元素是我真正需要的。但是代码等待加载所有的东西，比如广告和任何不需要的脚本

如何更改等待时间，使其不等待加载完整内容。

我继承了 Excel Tracker 工作表，代码最初是由离开公司的其他人创建的。

我们有一个 Excel VBA 跟踪器表，它与 Jira 通信并用于毫无问题地获取项目和问题，直到我们公司从 cookie 的站点管理员更改为更安全的 cookie 的“隔离站点管理员”，因为切换到隔离站点minder cookie 身份验证我们的 Excel 跟踪表将毫无问题地从 Jira 获取项目密钥，但无论我们查询 Jira 的哪个项目，无论我们如何更改代码，它都会带来相同的 50 个问题列表，它不会看到问题“Key " 并过滤并获取项目的正确问题。我不像 Excel VBA 那样出色，但我确实理解并且可以按照代码在做什么并进行小的调整，但是我现在继承了这个跟踪表并且不太擅长 Jira 代码和相互交流

代码如下：

有一个函数可以获取具有代码的请求：

jql 部分确实获取了项目密钥，当它将项目的详细信息发送到 Json 时，它返回了错误的问题密钥 

Json函数如下：

任何帮助将不胜感激

您好，我想更改名为“icon1”的特定形状的颜色，该形状位于名为“Box1”的组中，但此“Box1”位于名为“BigBox1”的组中（因此 icon1 在子组中）。“Box1”组（其他形状：“icon2”、“icon3”/“text1”、“text2”）中还有其他形状和文本框，我不想更改颜色。我试图更改“icon1”的颜色，但 VBA 告诉我找不到具有此名称的项目。

我不知道如何解决我的问题，你能帮我吗？

我想从 Access 的附件字段中将图片（.jpg、.png）插入 Excel 工作表。

我当前的代码是这样的：

它不会从数据库上传图像。

我已经搜索过其他替代方案，其中一个建议是使用 ADODB.Sream。但它在“ADODB.Stream.Write”上给了我一个错误（根据我的研究，没有人能解决这个问题）。这是“运行时错误'3001'参数类型错误，超出可接受范围或相互冲突。”

我已经在这行代码上工作了三天，以多种不同的方式对其进行了配置，但错误不会消失。目前，代码为：

错误开启.FindFirst。我在With rs这段代码之前有一个声明。所有变量均已定义，所有记录集均已正确打开。

产品Debug.Print：

'(6 = 5 AND '4 人带浴室的房间' = '4 人带浴室的房间' AND Nz(#8/20/2021#)) OR (#9/15/2020# > #8/ 22/2021#);'

显然，该记录与标准不匹配，但我假设FindFirst它将用于查找匹配的记录。我找不到丢失的操作员。我错过了什么？

好的...经过多次审查，我发现我的 FindFirststr 配置不正确。我在寻找常量而不是变量。我已将其更正为以下内容：

现在，此更改会生成 FindFirst 将使用的语句，但是，我仍然收到缺少运算符错误。

我在 FindFirst 处理之前放入了 Debug.Print 以查看 FindFirststr 文本，一切看起来都不错：

我没有看到错误。我没看到吗？

我一直在绞尽脑汁，进行无休止的研究，并在谷歌上搜索以试图找到解决问题的方法，我们将不胜感激。

那么问题来了……

假设我有一个表，其中包含以下标题：

1. ID（自动编号）
2. 日期
3. 姓名
4. 打开卡路里
5. 卡路里

在我的表单上，我需要输入日期、姓名和 OpenCalories。然后我保存这个记录。几天后，我需要为同一个人发布另一条记录，因此我将再次输入日期、姓名和 OpenCalories 并保存此记录。

如何访问自动将稍后日期的 OpenCalories 发布到 EndCalories for the previous dates 字段？

下面的示例： 示例显示我想要实现的目标。 所以我需要顶部表格在每个新条目时变成底部表格。我希望这能解释它。

我需要更新基于查询的表。查询 (tmp_Assign) 是一个直接的单表查询，用于提取特定于位置和日期的数据。导致错误的代码如下。

在运行 DoCmd.RunSQL 之前，strSQL 包含：

我已将 strSQL 复制到 Access Create Query SQL 中，它按预期工作（使用表所基于的查询名称）。

我将查询作为表打开的原因是因为我尝试在查询上使用更新代码（所有三个都需要更新）但在所有三个上都遇到了类似的错误。我将查询作为表打开，其他两个工作正常。这个没有。

省略号表示执行 FindFirst 以选择开放房间的代码。它工作正常。我不理解这个错误，因为这整个部分是一个基于 Assgnrst 表的 DO 循环，并且 SleepChoice 变量是从 Assgnrst 表中设置的。语句中的变量已正确声明和设置。除了 RmID 和所有字段都存在于表中之外，这些变量都是数字的。为什么无法识别表？

我正在使用一个包含许多工作表的工作簿，并且我正在使用一个具有 150 多个组合框和 200 个标签的用户窗体。

我想只在一个中设置组合框的特性和设计，并且我想在其中应用很多，所以我不想重复代码数百次。

我应该怎么做？我一直在阅读，但我无法将这些例子与我的相匹配。

这是错误的代码：

另外我不知道如何触发代码？它是在用户表单中初始化还是在模块中？如您所见，我很新手！

提前非常感谢。