Tag: popup窗口

使用VB 2010从Excel中捕获popup窗口,警报和例外

这是我第一次发布在计算器上。 我昨天开始学习VB 2010(虽然我知道一些Ruby),并且已经使用了这个问题了很多,但没有发现太多。 我已经编写了一个程序,它接收一个CSV列表的文件path(所有的.XLS文件)并尝试打开它们。 这些优秀的工作簿被另一个程序标记为不可读取; 我的程序试图捕获导致错误的警告,popup或exception。 它适用于大多数例外(密码保护,无法读取的内容,危险文件等),但一些popup窗口,要求你点击“确定”button继续不被捕获。 也许他们没有被归类为例外或者什么,我很想知道。 至less能得到他们的文本forms是很好的。 这是我的脚本: Private Sub runReportButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles runReportButton.Click Dim Exl As New Excel.Application() Exl.Visible = False Exl.DisplayAlerts = False For Each row As DataGridViewRow In dgvReport.Rows If Not IsNothing(row.Cells(0).Value) Then If row.Cells(0).Value.ToString.Contains(".xls") Then Try 'Open the workbook and attempt to catch […]

popup式错误消息(macros) – 通过checkboxselect进行更新 – Excel 2010

我有一个基本上是我想要的macros(当两个冲突的checkbox被选中时提醒用户) – 下面的代码。 G2中的1是生成的值来表示这种情况。 该错误消息在SelectionChange上触发,但是这似乎仅在通过鼠标select了另一个单元格时才会显示。 工作表包含一系列供用户select的checkbox,用户只需使用checkbox,而不需要直接select或直接input单元格。 在这种情况下,即使所描述的场景发生,错误消息也不会被触发。 有没有办法通过更新工作表上的任何checkbox来触发msgboxmacros? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("G2") = 1 Then MsgBox "ERROR – Select AND Reject checked" End If End Sub 此外,我想扩大范围适用于列G中的所有单元格,我似乎无法得到这个为我工作。 我见过几个例子,引用了“G:G”,但到目前为止,只有这个例子才能用于一个单元格。 对于任何明显的错误提前道歉,我已经使用了一段时间的Excel – 但我是使用VBA全新的。

Excelpopup单元格计算

第一次海报在这里。 Excel VBA代码我是初学者。 如何创build一个popup窗口,当我点击一个单元格,然后根据popup窗口中input的内容更新时,popup一个窗口? 单元格包含一个我想要更新的数字。 说我有一个包含数字的单元格列表,我点击其中一个单元格,并在popup的窗口中写入+5。 原来的号码现在更新5添加到它。 如果我在PopUp窗口中写入-5,相同的情况会相反。

当鼠标hover在Excel 2010中的button上时popup

我有一个工作表上的许多button(不记得,如果他们是activex或不)。 我想添加几行描述当光标hover在button上时每个button的function。 这甚至有可能吗?

Excel 2007自定义function区生成空白错误popup窗口

我有一个Excel 2007自定义function区加载项,在某些特定情况下会产生错误。 错误窗口是vbCriticaltypes的错误,带有红色的X,完全空白,只有一个“确定”button。 对于function区中的20个左右的命令,每个命令都会产生一个错误,导致用户多次点击以清除错误,之后恢复正常执行,不会对操作产生明显的影响。 从我的研究到目前为止,我已经确定这发生在Excel 2007中,当Excel不是最顶层的活动窗口时,由Excel在后台尝试某些function区操作。 在我的情况下,创build一个新的工作簿时,每次尝试将加载项的macros命令添加到quicktools菜单时,都不会发生。 我相信这是因为quicktools窗口在活动的Excel实例之上。 主题上的其他线程提示Ribbon.Invalidate,当它不能立即执行时调用,将产生错误。 此外,无论何时执行“getVisible”或“getEnabled”UI命令。 但是,我并不是在线程期间的任何地方调用Ribbon.Invalidate,只是在隔离和修改了键绑定之后,这两者都不会在工作簿创build时执行,或者将命令分配给quicktools。 另外,我不使用customUI.xml或VBA代码中任何地方的“getVisible”或“getEnabled”命令。 在这一点上,我感到茫然。 任何可以提供的帮助将非常感激。

点击单元格时调出用户表单

我有一个电子表格,其中包含第一列中的人员列表以及各行其余部分中关于他们的各种信息。 我有一个用户表单,它将填充并随后编辑每个logging,当用户点击该用户的名字时,我想popup这些logging。 例如: Name Age DOB Postcode John Smith 55 3/6/1958 RM3 5WO Mary Jones 22 4/2/1991 RM2 6TP 所以我想能够点击约翰·史密斯(A2)提出一个与他的年龄段,DOB,邮政编码等领域的表单。我也希望能够使用表格添加条目,所以它也将function列表下至less一行。 我已经被给了下面的代码来使用: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then frm_tch_staffinfo.Show End If End Sub 我试过在工作表中使用它,但似乎并没有工作 – 当我点击A2时没有任何反应。 代码中有一些错误,或者我已经实现了它? (我已经把它放在相关工作表的代码中)。 此外,我想展开目标地址,以包含所有名称(其数量可能会更改)的范围和至less一个单元格(但不包括A1中的标题)。 是否可以定义这样一个范围? 无论是简单地selectA2和以下,或者使用一个过程来计算单元格已满,并在最后添加或更多。 谢谢你的帮助! ETA: 我绝对需要Excel,因为我的用法是电子表格而不是数据库。 这是一个简化的例子:数据实际上都是数字,用于其他工作表中相对复杂的计算。

VBA在下载xls文件时省略从Internet Explorerpopup保存

我search了很多网站来获得答案,但无法成功。 我想从我的公司网站下载xls文件,并通过VBA我能够login,然后更改几个参数,最后我点击导出button。 点击导出button后,xls文件将被下载,但后来我得到了一个关于保存/另存为/打开从Internet Explorerpopup。 所以最后我卡在这里,我用发送键来下载这个,但有没有其他的选项,将保存xls文件在我定义的path和预先定义的xls名称。 还有一个问题,点击导出button后xls文件名可以是任何东西。 非常感谢您的帮助。

无法运行macros

我在下面的macros中遇到了一个问题 Sub RefreshAction() Range("b7").Select Application.Run "RefreshCurrentSelection" Application.OnTime (Now() + TimeValue("00:00:05")), "thisworkbook.Action" End Sub 当我第一次运行macros时,单元格刷新,但之后立即得到错误消息 消息:无法运行macros“C \ Desktop \ XYZ.xlsm!thisworkbook.Action”。macros可能不可用在此工作簿或所有macros可能被禁用。 我已经通过“信任中心 – ”信任中心设置 – >macros设置 – >启用所有macros,它不工作。 还可以单击“信任访问VBA项目对象模型”框。

使用VBscript自动closuresExcelpopup提示

我有一个应该通过Web查询访问远程监控服务器的Excel文件。 由于文件中的数据必须定期刷新和保存,所以我写了一个.vbs脚本来完成。 它工作正常,但由于服务器使用基本的身份validation安全性,无法closures,每次运行,Excel会popup一个popup式窗口“Windows安全”窗口要求input用户名和密码。 有一个“保存凭据”选项,但仍然需要用户点击“确定”继续,但系统要求没有用户交互。 search一下,我发现这个堆栈交换post和其他类似的方法,所以我修改了我的需要的脚本: Set wshShell = CreateObject("WScript.Shell") Do ret = wshShell.AppActivate("Windows Security") If ret = True Then wshShell.SendKeys "{enter}" Exit Do End If WScript.Sleep 500 Loop 当窗口出现时,脚本会触发,甚至在当时我关注的任何窗口上注册一个“enter”按键,但是它不能关注popup窗口本身。 它在其他应用程序如“记事本”或“计算器”上工作得非常好。 这是不是特定于popup窗口? 我如何修改脚本以专注于“Excel”popup窗口? 还有其他更简单或更可靠的替代scheme吗? 谢谢

macros单元格更改时提醒我值 – popup警报 – EXCEL

我正在寻找创build一个macros来提醒我,当一个单元格的值更改。 这个特定列中的单元格可以具有“OVER”或“UNDER”的值。 我想编写代码来通过一个popup框(消息:“单元格下(上)”)提醒我当值的变化。 谢谢, 帕特里克