Tag: activex

直接将模块function分配给ActiveX命令button

在VBA for Excel中，如何将模块中的现有函数或子集myFun（）分配给新添加的ActiveX单击button？ 我知道我可以在ActiveX命令（单击）button所在的工作表代码页上执行以下操作。 Private Sub myFun_Click() myFun() End Sub “直接”我的意思是命名button“myFun”，并将button直接指向函数myFun（）必须将myFun（）放在另一个子上面，如上所示。

VBA Active Xbutton将用户更新到更新行的第一个单元格

我有一个电子表格有一个button，将所有input的数据转移到另一个表。 然后，我已经做了第二个button，将您带到这个日志，如果你想查看它，但它也需要你最后一个单元格填充。 日志有很多列，所以我想做'去日志'button，带你到最后一行填充的第一个单元格。 我现在所拥有的只是一个简单的公式来把你带到那里。 Private Sub CommandButton2_Click() ThisWorkbook.Sheets("Log").Activate End Sub

Matlab：复制Excel工作表和保存工作簿

我想从现有的工作簿复制多个工作表到一个新的。 这是我的代码，我可以复制工作表，但我无法正确保存工作簿。 在我的下面的代码中，我复制了前三张并保存工作簿，但是当我打开它时，它是空的。 我认为我的工作手册是错误的。 Excel = actxserver('Excel.Application'); Excel.Visible = true; WB = invoke(Excel.Workbooks,'open','C:\Example.xlsx'); SHS = WB.Sheets; %sheets of template Workbook SH = WB.Worksheets.Item(3); invoke(SH,'Copy'); SH = Excel.ActiveSheet; SH1 = WB.Worksheets.Item(2); SH2 = WB.Worksheets.Item(1); invoke(SH2,'Copy',SH); invoke(SH1,'Copy',SH); SH = Excel.ActiveSheet; nWB = Excel.ActiveWorkbook; nWB.SaveAs('C:\TEST.xlsx',1) Excel.Quit()

如何在excel中使用button在工作表中运行计算

我正在尝试创build一个窗体控件或activex命令button来将一系列值更改为特定的计算。 我的button位于名为“Sheet 2”的工作表上，计算需要在名为“Whatif back”的工作表上进行。 当我按下button时，“Whatif back”中的C2必须用“Sheet 2”中的C27进行计算。 我的代码是： Sub Sheet2_Button18_Click() Sheets("Whatif back").Range("C2")=(10000+Sheets("Sheet2").Range(C27)) End Sub 我收到一个编译错误。 请帮忙。 谢谢，Shyam

Java代码运行在Windows上，但不是在Linux上

我有这个代码，我试图在Windows上运行一些代码，这是运行良好，因为我得到所需的输出 package com.org.jato.expressionTransform; import java.util.ArrayList; import java.util.Arrays; import java.util.HashMap; import java.util.HashSet; import java.util.List; import java.util.Map; import java.util.Set; import java.util.StringTokenizer; import com.jacob.activeX.ActiveXComponent; import com.jacob.com.Dispatch; import com.jacob.com.Variant; public class ExpressionTransformerImpl { private String delimiterForForumal = "_V_"; private String delimiterForId = "_VSCAM_"; private int rowLimit = 50000; private Set<String> usedCellIdsSet = new HashSet(); public void convertCurlyBraceToOrCondition(String formula, Long […]

Excel ActiveX标签在点击时闪烁/改变样式

这似乎是一个小故障，多年来一直困扰着我。 一些ActiveX控件放在工作表上时，点击时会做些奇怪的事情。 在下图中，没有任何代码，Label1被禁用，但是当Label1被点击时，Label2消失。 我还看到点击后黑色标签变白。 我知道阻止这种情况的唯一方法是使用子类化/挂钩来拦截并取消标签上的wm_mousedown消息，但这对于这样一个简单的目标来说是一大堆工作。 有没有人有这个简单的解决scheme？ *编辑：我相信发生了什么是z顺序/ z-索引带点击控制到顶部。 但是，如果有一种方法来防止这一点，我很想知道如何。 这是一个单击标签时背景颜色变化的例子。 查看带有标题“原始值：”的标签

在浏览器中查看Word文档

我正在寻找某种程序/ Java小程序/ ActiveX控件或魔术来查看浏览器内的Word / Excel文档（浏览器独立将是最好的情况下，但IE浏览器只是很好）。 我不想在一个框架内打开Word，因为这会给用户一个错误的印象，就是他们可以编辑和保存文档，我只是想显示其内容。 我也发现解决scheme，首先将word文档转换为pdf，但是由于我正在处理的环境存在一些安全限制，我无法做到这一点。

禁用用户查看ActiveX控件属性Excel（VBA）

我目前在Microsoft Excel上构build一个基于VBA的应用程序。 我使用简单的ActiveX控件来获取用户ID /密码。 问题在于用户可能通过查看activeX标签的“属性”来查看密码的值 有什么办法可以阻止用户激活“devise”模式并直接查看文本框的值？ 或者有什么更好的方式来存储在系统上的凭据？ 我使用文本框的原因是因为它们对用户来说更简单（可以保存该值，因此您可以在将来使用该程序，而无需再次input用户名/密码），而且维护起来很简单不需要表格/popup窗口） 感谢您的帮助。 这是工作表上的ID /密码框的样子（使用ActiveX控件） 问题是用户可以看到密码文本框的值，如果他们打开devise模式 – >属性

MS Access通过Excel VBA

我遇到了一个众所周知的问题，但我找不到任何解决scheme。 我有一个旧的应用程序（我不知道到底有多严重）使用Excel使用一些Access数据（* .mdb）在VBA中编写。 该应用程序是在32位系统上编写的。 我尝试使用Office 2010将其更新到新的64位系统。 这里是我用来加载Access数据库的代码： Set Db = DBEngine.OpenDatabase(.sChemin & .sNom, False, False, ";pwd=******") 和我得到的错误： 429 Activex Component Cant Create Object 这是我的参考资料： Visual Basic的应用程序 Microsoft Excel 14.0对象库 OLE自动化 Microsoft Forms 2.0对象库 Microsoft脚本运行时 Microsoft数据访问组件安装版本 Microsoft DAO 3.6对象库 我已经尝试使用regsvr32 "C:\Program Files (x86)\Common Files\microsoft shared\DAO\dao360.dll"取消注册/重新注册DAO dll，并且在尝试使用工作区时遇到了同样的问题。 我不知道是否会帮助，但是当我使用CreateObject（“Access.Application”）时，Access工作正常，并且我在两个不同的时间安装了Excel / Word和Access。

如何从IE中通过ActiveX设置Excel列格式

我使用这个代码来导出HTML中的表格以通过ActiveX复制和粘贴来实现Excel。 我需要将B列中的全部设置为文本格式，因为当导出excel时，内容中包含0作为第一个字符。 我尝试我objWorksheet.Range("B:B").NumberFormat = "@"; 在行objWorksheet.columns.autofit; 但不工作00001显示为1 var wshShell = new ActiveXObject("WScript.Shell"); var userProfile = wshShell.ExpandEnvironmentStrings("%USERPROFILE%\\Desktop\\xx.xls"); var thisTable = document.getElementById("mytable").innerHTML; window.clipboardData.setData("Text", thisTable); var objExcel = new ActiveXObject ("Excel.Application"); //objExcel.visible = true; var objWorkbook = objExcel.Workbooks.Add(); objWorkSheet = objWorkbook.WorkSheets(2); objWorkSheet.Select; objWorkSheet.Delete; objWorkSheet = objWorkbook.WorkSheets(2); objWorkSheet.Select; objWorkSheet.Delete; var objWorksheet = objWorkbook.Worksheets(1); objWorkbook.Worksheets(1).Activate; objWorksheet.name = "xxxxx"; objWorksheet.Paste; objWorksheet.columns.autofit;