VBA-检查互联网中是否存在资源或URL
如果您是众多VBA开发人员之一,那么很可能您已经被要求一次或两次从本地的Eshare或网站下载一些文件.在下载之前,检查是否真的存在确实有意义. 显然存在第一个,第二个不存在. 下面的代码处于其状态,如果是 200 OK ,则返回true. checkUrlexists.vb Visual Basic Public Function CheckUrlExists(url) As Boolean On Error GoTo CheckUrlExists_Error Dim xmlhttp As Object Set xmlhttp = CreateObject("MSXML2.XMLHTTP") xmlhttp.Open "HEAD", url, False xmlhttp.send If xmlhttp.Status = 200 Then CheckUrlExists
30 2022-11-24
编程技术问答社区
算法测试系统,用VBA从文本文件中读取
对于熟悉我的博客的人们来说,众所周知,我通常会从 codeforces.com中解决问题. CodeForces支持大量语言,不幸的是,VBA不是其中之一.因此,我决定建立一个小型算法测试系统,该系统遵循以下模式 - 输入和预期输出均通过单独的文本文件提供.然后,编写算法的人应能够编写一个函数,从第一个文件读取并从另一个文件中获得准确的值. 因此,让我们想象任务听起来像: 获取3个数字的输入并将其汇总.但是,如果第三个数字是,则仅总和前两个总和减去第三个.通过此功能可以很容易地实现: test1.vb Visual Basic If c Mod 2 = 0 Then MainTest = a + b + c Else MainTest = a + b - c End If 听起来可能是这样的另一个可能的问题: 给我一​​个字符串的下一个字符.因此," a b c d"将导致" b c d e"和" a z"为" b a".通过以下代码可以解决
16 2022-11-12
编程技术问答社区
C ++ - 向VBA/Excel添加C ++功能
将C#库添加到VBA后,我决定看一下如何使用C ++进行类似的技巧. c ++在某种程度上有点幻想.而且它有效.所以,让我们开始.想象一下,我们要计算0和n之间的所有数字的总和.最简单的方法(不思考)是拿走所有数字并总结它们.在C ++中,此公式看起来像这样: simpleslowmath.cpp c ++ int __stdcall SimpleSlowMath(int & x) { int result = 0; for (int a = 0; a
20 2022-11-12
编程技术问答社区
VBA与C ++功能 - 哪个在Excel中更快?
通常,比较VBA和C ++的速度是不公平的.就像比较军用喷气式飞机和波音767的速度一样.但是,有趣的是,看到Excel的祖国世界中的C ++速度更快 - 视觉基本编辑器. . 因此,我决定在两种语言中构建具有递归功能的简单斐波那契,而只是将其速度与Excel进行比较.一般来说.带有递归的斐波那契是您在工作或生产代码中永远不应该做的事情,因为由于无用的计算,它非常慢. 请参阅此处的备忘化优化. 因此,如前所述,我已经使用了递归中的斐波那契,因为模拟数十亿个无用的计算确实很容易,因此每个人都会注意到差异. 在C ++中,这是我们的功能: fibwithrecursion.cpp c ++ int __stdcall FibWithRecursion(int & x) { int k = 0; int p = 0; if (x == 0) return 0; if (x == 1) return 1; k = x - 1; p = x - 2
20 2022-11-12
编程技术问答社区
VBA - 将C#库添加到VBA项目 - 第2部分
在这里编写简单的部分后,我认为介绍Intellisense也是一个很好的主意. 代码中的类似内容: 像这样在图书馆中: 问题总是一个 - 如何?在这种情况下,答案对我来说是出乎意料的 - 通过C#中的接口.他们承担了智力的责任,并且工作得很好. 因此,以下代码执行魔术: code.cs c# using System; using System.Runtime.InteropServices; namespace IntDemo { [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)] public interface IIntellisenseDemo { int NumberBy3 { get; set; } int NumberBy2 { get; set; } string TestString(string name);
32 2022-10-21
编程技术问答社区
Vba代码,用于检查我在代码中提供的电子邮件ID集
你好, 我有一组用于这些电子邮件地址的电子邮件地址,即使我在新邮件的“收件人"字段中输入他们的邮件时,我也不应该发送任何邮件,当我单击发送键时,它会通过弹出窗口(如 XXXX 邮件 ID 在 do 中匹配)不是我在代码中提到的联系人列表. 谁能提供我在“TO"字段和代码中检查邮件ID的代码. 我尝试了以下代码. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Recipients As Outlook.Recipients Dim recip As Outlook.Recipient Dim i Dim prompt As String On Error Resume Next ' use lower case for the address ' LCase converts all addresses in the T
110 2022-07-19
编程技术问答社区
将右键单击选项添加到邮件项目
我有一个宏要做一些任务,就是将打开的邮件传输到我硬盘中的特定文件夹.代码如下: Public Sub export1() Const OLTXT = 0 Dim currentExplorer As Explorer Dim Selection As Selection Dim oMail As Outlook.MailItem Dim obj As Object Dim sPath As String Dim dtDate As Date Dim sName As String Set currentExplorer = Application.ActiveExplorer Set Selection = currentExplorer.Selection For Each obj In Selection Set oMail = obj sName = oMail.Subject ReplaceCharsForFile
118 2022-07-19
编程技术问答社区
如何在vba中使用向文本框发送键?
你好, 我正在自动化网页.在更新文本框时,应该在该文本框中按下一些键.但是我通过 vba 中的代码直接处理该文本框的值.所以值注意得到更新. 我试过sendkeys.但它不起作用.给出错误.代码如下 iItems.SendKeys "{L}" 错误:对象没有此属性或方法. 请给我一些解决方案. 谢谢 解决方案 无论那个 iItems 对象是什么,它都没有 SendKeys 方法,所以你得到了那个错误. SendKeys 是一个独立的函数.您只需删除 iItems. 部分,您将不会再收到该错误. 但是,SendKeys 是出了名的不可靠.您无法直接控制哪个控件获取这些密钥.即使用户在您的代码运行时单击其他内容(最常见的问题!)也会搞砸并将您的密钥发送到他们单击的任何内容.这是你无法控制的.
96 2022-07-19
编程技术问答社区
如何使用宏在OpenOffice Calc中禁用“保存”、“另存为”等菜单项?
你好, 我想使用宏在 OpenOffice Calc 的文件菜单中禁用 Save 和 Save As 选项.我已经尝试了以下代码, Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "You can't save this workbook!" Cancel = True End Sub 但它不起作用,请帮助实现这一目标.谢谢 解决方案 上面的代码是指Microsoft Office Excel BeforeSave事件,但是你提到你使用的是OpenOffice Calc! 见: 我们使用全局库来自动化 OOo 计算[^] 文档事件[^] 创建一个简单的宏[^] Google 图书:在 Open.3 中使用电子表格.a>[
174 2022-07-19
编程技术问答社区
自动将电子邮件(Gmail)正文提取到Excel文件
是否可以自动将部分电子邮件正文从我的 Gmail 收件箱提取到 Excel 文件中?我想从表格形式的收件箱中获取数据到 Excel 文件.我试图在我的收件箱上运行 WebQuery,但它给了我以下错误消息. “无法打开 https://mail.google.com/mail.... 无法下载您请求的信息" Google 是否提供任何 API 来实现这一点?或者是否有可能以编程方式(C#)或使用宏来实现这一点?任何帮助或建议将不胜感激.谢谢 解决方案 这里有个问题堆栈溢出[^].而答案是: Jon Fournier 5 月 31 日 16:23 写道:如果我是你,我会改为设置 Outlook 来同步你的 gmail 帐户,并使用 OutlookAPI.这样可能至少容易 10 倍. 发布以从“未回答的问题"集合中删除上述问题.
224 2022-07-19
编程技术问答社区
如何在vb6中对现有记录集运行查询
你好, 我有一个列名为“Y/N"、“Value1"、“Value2"的表“TableA".此数据在 excel 文件中. 每个名称都有多个条目. 1.想在此表中添加一列,并在 Y/N 列的基础上计算值并填充新列.意思是如果 Y/N 列有 Y 则将 value1 放入 value3 列如果它是 N 然后将 value2 放入 value 3 列 2.现在想分组名称并想计算value3的总和 3. 想对那个 Sum 值做一些计算. 请问如何在 VBA 中解决这个问题. 我的代码如下 Private Sub CalcFinalLoanAmount()On 错误 GoTo ErrorHandlerDim xlFile As Excel.ApplicationDim xlsWB1 As 对象Dim xlsWS1 As 对象Dim rs As ADODB.Recordset设置 rs = 新建 ADODB.Recordset设置 xlFile = 新建 Excel.App
302 2022-07-19
编程技术问答社区
Excel编程VBA
我打开了一个 Excel 文件,我使用宏调用一个可执行文件,这个可执行文件可以写入/读取已经打开的 Excel 文件. 问题:在上述情况下,我无法打开其他 excel 文件.请帮忙解决这个问题. 提前谢谢你们! 解决方案 你怎么称呼这个可执行文件? 你使用过 Shell() 命令吗? Application.Workbooks.Open ("/filepath/filename.xls") 通常可以解决问题. 如果没有,请出示代码,我应该可以为您排序. (自称 Excel VBA 大师!)
220 2022-07-19
编程技术问答社区
如何为MAC实现2011年PP中的SlideSelection更改?
大家好! 我想在从一张幻灯片移动到另一张幻灯片时显示消息框. SlideSelectionChnad 在 Windows 上运行良好,但在 MAC 上出现错误: “对象不提供自动化事件". 我知道 PP 2011 for MAC 不支持事件处理. 那么如何通过手动代码实现呢? 谢谢 解决方案 检查这个:创建、运行、编辑或删除宏 - PowerPoint 2011 for Mac[^] 我建议您访问此站点:PowerPoint/Mac 与 Windows 中的 VBA[^].在那里你会发现... Quote:(...) 如果您需要编写同时在 PC 和 Mac 上运行的代码,这是一个方便的技巧:编译器开关. #If Mac Then'这里的代码只能在 Mac 上运行,但在 PC 上会被忽略#Else'此处的代码将在 PC 上运行但在 Mac 上被忽略#End If 有关详细信息,请参阅:PowerPoint 开发人员信息[^]
112 2022-07-19
编程技术问答社区
范围导出片段法替换word 2003/VBA
大家好, 我在 word 模板 (VBA) 中实现了 Range.ExportFragment 方法,以获取从一个文档到另一个文档的文本范围,一切正常,直到我不得不调用它代码使用Word 2003! 我整天都在寻找这种方法的替代品,以便在word版本是2003时可以使用它,但还没有成功. 希望有人能帮帮我,这真的很紧急,如果这个问题没有解决方案,对我的工作将是一个巨大的问题! 提前谢谢, Saleem. 解决方案 经过大量研究,这肯定没有解决方案
256 2022-07-19
编程技术问答社区
是否有TreeView控件来替换MS ActiveX
嗨 我有一个在 Acc2000 中开始使用的数据库,但 TreeView ActiveX 组件和关联的 ListView 一直是 MS 更新内容时出现问题的根源.现在我想远离它. 你有我可以在 Access 2007 中使用的版本吗?我想将它用作记录资源管理器以在记录层次结构中移动,例如 Win Explorer 中的文件夹;ListView 然后显示所选“文件夹"中的记录. Adrian Price 解决方案 如果您可以访问 Delphi[^] 你可以看看:虚拟树视图[^] 它非常快速、灵活,而且 Delphi 有一个向导可以将它变成一个 ActiveX 组件. 最好的问候 埃斯彭·哈林 嗨埃斯彭 谢谢你.我没有 Delphi,对此一无所知,但我看过 Virtual Treeview - 如果他们可以将它作为 ActiveX 组件提供,它看起来很棒,非常适合我想要的东西......我会问他们. 干杯,阿德里安·普莱斯
158 2022-07-19
编程技术问答社区
从access项目运行存储过程sql server 2005以更新多行
大家好, 我想通过使用 vba 从不同的查询更新 ms 访问项目表中的多行我在 sql server 2005 上的数据库. 请你能帮我并给我一些信息. 关于 解决方案 在这里我们回答成员在编程过程中面临的具体问题. 请自行尝试.在 Google 中搜索,找到好的教程并实施它们. 如果您在编码时遇到任何困难,请随时返回此处并提出另一个问题,其中包含描述场景的具体问题. 届时会员将很乐意为您提供帮助. 快乐编码.:)
104 2022-07-19
编程技术问答社区
从word导出后,RTF文本中添加了太多未使用的样式标记。点到a。rtf
你好, 我有一个用 vba 完成的 word 模板,在特定的键盘事件中,我会在文档的 BOOKMARKS 中进行用户所做的更改,以在 DB 中更新它们. 问题是一些数据必须与它们的样式(粗体、斜体、颜色、对齐)一起保存,但是当我尝试复制书签的内容并获取它的 rtf 内容时,添加了很多不必要的标签! 我不想要纯文本,我想保留必要的样式标签,但我必须删除其余部分,因为我无法将所有这些数据保存在数据库中,太大了!! 这是我正在使用和获得的示例: 在书签中,它用粗体写成“*test1",当我从富文本框中获取它时,我得到的是以下字符串: "{\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}{\f1\froman\fprq2\fcharset0 Times New Roman;}} \viewk
400 2022-07-19
编程技术问答社区
如何将用户表单数据分配到具有动态名称的excel单元格中
大家好, 我有一个包含 10 个 texbox 的用户表单.想要将所有文本框数据保存在工作表中,每个文本框数据都有单独的 Excelsheet 行. 我使用 for 循环输入数据,但在代码中遇到问题,例如无法将动态控件名分配给单元格... 控件名称类似于 txtName1, txtName2..... txtName10 看代码... 将 i 调暗为整数 将 iRow 变暗 将 ws 调暗为工作表 设置 ws = Worksheets("Sales") 对于 i = 1 到 10 iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1) = txtName+i+.Text -- 问题出在这里 解决方案 你好, 正如您在代码中提到的,您不能像 txtName + i + .Text 这样写. 但这是一种可能的方式,使用您想要的文本框名称创建
48 2022-07-19
编程技术问答社区
在svg文件中提取数据并自动存储在excel中
suppose if there are 20 svg files with the same circuit components but with different component values, I need to extract the content of transistor(model number) in the circuit alone and automatically export them to excel sheet. Kindly help. TIA What I have tried: i ve tried opening the svg file using OCR. 解决方案 OCR 无法工作,因为 SVG 文件是文本格式,更准确地说是 XML 格式. 只需用文本编辑器打开一个,看看它的外观. 以下是在 VBA 中使用 XML 文件的示例:在 VBA 中使用 XML 文件 (VBA XML) - The Analyst洞穴 |Exce
962 2022-07-19
编程技术问答社区