excel-vba相关内容
我对使用Adobe进行vba编码非常陌生,无法使用任何代码。我首先需要打开文档中的pdf文件(使用Adobe Acrobat),然后通过添加一个或多个文本框来编辑第5页。我想知道这是否可行,是否有代码可以做到这一点。我有Adobe Acrobat XI Standard,它允许我手动编辑pdf并在需要的地方创建文本框。 任何帮助将不胜感激。 谢谢 解决方案 http ://www.a
..
我运行一个宏,该宏从PDF文件复制表格并将其保存在Excel中。 一些表包含空单元格,在我的分析中,我需要知道空单元格的数量。 我有一个遍历每一列的函数,以检查该单元格中的值是否为数字。 的麻烦是当我在一个空单元格上运行此函数时它返回true。我什至尝试使用Isblank()函数手动检查单元格,它返回“ false”。 (如果我在粘贴范围之外的任何单元格上尝试此操作,它将返回“ true”)
..
从vba调用外部.exe文件时,像这样: Sub RunEXE() Dim wsh作为对象 SetCurrentDirectory“ \\path\”'设置目录 设置wsh = VBA.CreateObject(“ program.exe”“ \\path\argument”“”,WindowStyle: = 1,waitonreturn:= True) 是否可以直接从
..
我正在测试以下脚本。 Sub Update_All() Dim MyDatabase As DAO.Database Dim MyQueryDef as DAO.QueryDef Dim MyRecordset As DAO.Recordset Dim i Integer '步骤2:识别数据库并查询 PathOfWorkbook = ThisWorkbook.
..
我正在尝试编写一个简单的任务:从Access(2013)数据库检索附件并将其保存到磁盘。目前,我希望代码从记录集中获取第一条记录并将附件保存到C:\maptest.pdf 它显示错误3265:找不到项目在这个集合中(但是数据库中的每个记录都有一个附件)。 有人知道我在做什么错吗? Private Sub CommandButton4_Click() Dim appAcc作为新
..
此问题应适用于任何发生事件的VBA: 我已经在MS Access的Form_Load()事件中填充了一个数组。现在,我想从ListBox_DblClick()事件中提取,取消引用该数组的内容。 我将该数组调到表单模块顶部(如果是Excel,那将是一个工作表模块)它们都共享; 感谢任何帮助: Dim ArrWhatever()作为字符串 函数ThisArr(tmpVal
..
我找不到任何oAuth示例代码,看到其他人拼命寻找它,在VBA中实现oAuth客户端的难点是什么? 解决方案 或 Twitter示例 http://www.twopblog.com/2010/09/using-excel-as-twitter-client-with.html
..
这是我打开网站并搜索对象的代码。可能会发生找不到对象的情况,因此我必须对它的存在进行设置搜索,以便执行或不执行操作。我正在尝试这种方式,但是如果我要查找的对象会导致例程崩溃...。 Dim bot As新的SeleniumWrapper.WebDriver bot.SetProfile“ C:\Users\USER\AppData\Local\Google\Chrome\UserDat
..
我找到了如何使用VBA编程添加参考, 这说明了如何使用库的名称以编程方式添加对象引用, 并带有示例“ VBScript_RefExp_55”。 我的问题是如何找到在此代码中用于不同对象库的引用名称? 例如PowerPoint库? 解决方案 我用它来获取我的参考文献信息: 私有子ListProjectReferencesList() Dim i As Long
..
给定的代码成功运行。它在Outlook“已发送邮件”文件夹中搜索电子邮件主题。搜索基于特定时间段内的特定日期进行。例如,下面的代码查找2018年7月20日12:00 AM至11:59 PM之间发送的电子邮件标题``星期五发送的电子邮件''。 除了现有的搜索条件外,如何过滤发送给特定用户的电子邮件。我要检查[收件人]字段。如果[收件人]有收件人x @ email.com,y @ email.c
..
我遇到问题。 我想使用EXCEL中的VBA更新Access数据库中表中的现有记录。 我的代码: sqlik =“在访问中有效的更新查询” 设置ZAP_QUERY2 = baza.CreateQueryDef(“”,sqlik) 与ZAP_QUERY2 ![abc] = Edit_Form.abc.Text ![bcd] = Edit_Form .bcd.Tex
..
我想在Excel工作表中从2010 Access vba中添加形状并对其进行修改。 我基于Excel“记录宏”编写的代码是: StrSheetName =“菜单” wkbModels.Sheets.Add(之前:= wkbModels.Sheets(“ Models”)) .Name = StrSheetName 设置wksModelsMenu = wkbModels.Shee
..
在VBA中,有一种简短的方法可以注释掉一段代码,就像Java使用 /*...*/ 一样? 解决方案 尽管没有语法,但仍可以使用内置的块注释按钮来关闭: 如果尚未查看“编辑”工具栏,请右键单击该工具栏并启用“编辑”工具栏: 然后,选择一个代码块,然后点击“评论栏”按钮;或已被注释掉,请使用“取消注释块”按钮: 快速简便!
..
是否可以通过更改变量来触发事件?例如。 这将触发事件 Dim t As Integer Dim Fire as Boolean Private Sub Test t = 0 0 Fire = True IIf Fire,t = 1,t = 2 结束子 在事件处理程序中 选择案例t 案例0 '做某事 案例1 '做某事 案例2 '做
..
在此代码中,似乎 Set Object = Nothing 并没有破坏 Fs 对象: Sub Test2() Dim Fs作为新FileSystemObject Set Fs = Nothing MsgBox Fs.Drives .Count'这行有效 End Sub 最后一行没有错误!多数民众赞成表示 Fs 对象仍然存在,对吧?。 那么如何销毁这个
..
当我解压缩时,我正在尝试重命名文件的输出。我试过重命名为 test.xls ,但是它抛出一个对象变量未设置错误。除了扫描 .datecreated 文件夹中的所有文件之外,还有其他方法吗?如果有办法重命名解压缩文件,那将是最佳选择。 Set oApp = CreateObject(“ Shell.Application” ) oApp.NameSpace(“ C:\Users\ ** \
..
我已经看过一些文档,但是到目前为止,我无法为我的特定项目复制任何东西。 我的代码指向一个目录包含60个左右的子文件夹。这些子文件夹中有多个.PDF / .XLS等文件。如果文件未嵌入子文件夹中,则以下代码可以正常工作,但是我需要做的是能够遍历子文件夹并拉动文件本身进行移动。另外,有没有办法最终通过通配符名称提取文件?预先感谢您的帮助。 Dim FSO As Object Dim
..
1)我有一个带有一些按钮的窗体(它在Access中,但我想它也适用于Excel)。 2)我有一个自定义类,可以帮助我调试该表单(以及将来可能添加的表单)。 该类仅记录表单事件触发时的时间,例如加载,卸载,脏,退出等。 我希望该类具有记录事件的能力。 我知道这可以通过使用标准模块并在其中加载公共集合来完成。或者直接使用表单的事件。 但是如果可能的话,我想将其 all 封
..
我必须在Excel中创建170多个命名范围,我试图将它们加载到Access表中。下面是我的代码。 Sub Load_To_ALLL_TSD() Dim strDatabasePath as String Dim oApp作为Access.Application Dim PathOfworkbook作为字符串 PathToDB = ThisWorkbook.Path
..
我试图了解什么是Null以及什么是Empty变量。他们是一样的吗?空字符串如何放入? 创建MS Access表时,为什么字段具有“允许零长度字符串”选项? 我一直在努力将Access数据库中的数据加载到变量中(例如,使用DAO或ADO),我发现自己必须声明所有使用Variant的变量。对我来说这似乎是错的。 没有人有任何很好的示例代码来演示这些代码之间的区别,您能解释为什么我会使
..