Tag: activex

如何在excel中使用vba编写旋钮控件: 我在控件库中发现了这个ActiveX控件（Knob Control 2.0），但我不知道如何利用这个控件，因为我一直无法将它的值链接到任何单元格。我可以得到一些帮助，将其值链接到任何单元格。感谢您期待您的帮助。

通过MATLAB ActiveX服务器恢复Excel工作表中的CustomView设置: 我正在使用ActiveX服务器通过MATLAB修改Excel电子表格中的格式。我需要生成一个新的电子表格，并且需要在此工作表中设置与之前在较旧的电子表格中设置的CustomView设置相同的CustomView设置。在这里，我加载了较旧的电子表格，并且能够查看通过Excel定义的CustomView的数量。 e = actxserver ('Excel.Application'); % open Activex server ewb = e.Workbooks.Open(fileName); % open file (enter full path!) >> ewb.CustomViews.get Application: [1×1 Interface.000208D5_0000_0000_C000_000000000046] Creator: 'xlCreatorCode' Parent: [1×1 Interface.000208DA_0000_0000_C000_000000000046] Count: 3 这是我卡住的部分，因为我不知道如何将这些设置“转移”到另一张纸上。我发现了一些ActiveX文档，但是没有提到如何能够存储这些设置并在另一个电子表格中使用它们。我想到的是像… myCustomViews = ewb.CustomViews; save('myCustomViews.mat','myCustomViews'); % % % Clear all and close/quit instance of actxserver % % e = actxserver('Excel.Application'); newEwb […]

无法将自定义属性添加到Excel工作簿: Excel工作簿有一个CustomDocumentProperties集合。这个集合是DocumentPropertiestypes的，这些集合有一个我试图从Matlab调用的Add方法。如果我调用集合上的invoke方法，我看到： workbook.CustomDocumentProperties.invoke Item = handle Item(handle, Variant, int32) Add = handle Add(handle, string, bool, int32, Variant(Optional)) 我认为这意味着Add方法需要一个string，bool，int32和一个可选的变体，并且这与Add方法的Microsoft文档（ http://msdn.microsoft.com/en-us/library/office/ff862806。 aspx）。然而，我尝试过这个function的所有input组合，例如， workbook.CustomDocumentProperties.Add('MyProp',true,int32(1),true) 导致错误： Invoke Error: Incorrect number of arguments 除非我提供7个或更多的参数，当我得到错误： Error: Invalid number is arguments. This method can take maximum 6 arguments 或者如果我提供除string以外的任何东西作为导致错误的第一个参数： No method 'Add' with matching signature found for class 'Interface.2DF8D04D_5BFA_101B_BDE5_00AA0044DE52'. […]

javascript在Excel中searchstring: <head> <script type="text/javascript"> function getdata(x) { var excel = new ActiveXObject("Excel.Application"); var excel_file=excel.workbooks.open("c:/users/B1ECDJAF/test1.xlsx"); var excel_Sheet = excel_file.worksheets("Sheet1"); var b=excel_sheet.cells.find(x); var c=excel_sheet.cells(b,2).value; document.write("$"+c); return data; excel_file.Close(); excel.Quit(); } </script> </head> <body> <script type="text/javascript"> getdata(ipt4-002); </script> </body> xcel文件有2列，第一列是部件号，第二列是价格。例 ipt2-005 $ 1.97 ipt3-005 $ 5.98 ipt4-001 $ 5.97 ipt4-002 $ 9.99 我想匹配零件号码，并将价格拉入我的网页。我有大约100个价格的多个项目拉，并希望有一张表格中的价格，所以他们很容易改变，而不必改变每次我改变价格的HTML代码。我想使用相同的脚本来查找使用不同“零件号”的所有价格任何帮助，将不胜感激。我能够只quering该项目的正确的单元格查找的价格，但我宁愿做搜寻和匹配的零件编号，这样，它是我所有的项目之一代码和我没有改变代码为每项目。

保存并重新打开工作表后，无法检查ActiveX Toolbox: 我正在创build一个基于Excel VBA的应用程序，在这个应用程序中应该显示特定的数据，并且我正在尝试使用ActiveX Chekboxes过滤这些信息。创buildcheckbox之后，我可以正常检查/取消选中它们，并使用一些macros来执行某些我想要的操作，例如，确保只能选中一个选项。我使用： Private Sub CheckBox1_Click() If Worksheets("Cover").CheckBox1.Value = True Then Range("O8") = 1 If Worksheets("Cover").CheckBox1.Value = False Then Range("O8") = 0 If Worksheets("Cover").Range("O8") = 1 Then Worksheets("Cover").CheckBox2.Value = False Worksheets("Cover").CheckBox3.Value = False Worksheets("Cover").CheckBox4.Value = False End If End Sub 问题是，我保存这个工作表并重新打开后，再次开始工作，我不能检查或取消选中框。我也不能在devise器模式中对它们进行格式化（如果我右键单击其中一个checkbox，并select“属性”窗口来改变活动工作表的属性出现）。而且，当然，这些macros不再工作（运行时错误'438'）。有没有人有线索可能是什么问题，以及如何解决？提前致谢！

Excel ActiveXbutton是可点击的，但不起作用: 大约一个星期前，我发现在我的电脑上运行时，所有的ActiveXbutton都停止工作在所有的电子表格中。他们对别人很好。去年一直没有问题。我知道最近有一个Windows更新引起了一阵骚动，阻止了人们甚至能够点击ActiveXbutton。我遇到的问题似乎有所不同…我可以点击button（一旦点击，它将显示在button周围的虚线）。然而，没有任何反应。我有这些button创build打开用户窗体。我已经检查validationPrivateSub代码仍然存在，以启动button单击窗体。由于我所有的工作人员都能够使用电子表格和ActiveXbutton，所以我认为我的电脑上出现了一些本地的情况，并不一定是编程相关的，但是我找不到任何原因。有任何想法吗？

用Matlab混合文本颜色读出Excel单元格: 我有麻烦读出包含混合颜色文本的Excel单元格的字体信息与Matlab使用ActiveX。以单元格A1string“ GreenBlueRedBlack ”的excel文件作为示例，其中string的各个部分以指定的颜色显示。 MyExcel = actxserver('Excel.Application'); Workbook = MyExcel.Workbooks.Open('D:\data\Test.xlsx'); MySheet = MyExcel.ActiveWorkBook.Sheets.Item(1); Text=get(MySheet.Range('A1').Characters,'Text'); Color=MySheet.Range('A1').Characters.Font.Color; % provides NaN for m=1:size(Text,2) % read out letters seperately Color(m)=MySheet.Range('A1').Characters(m,1).Font.Color; end 代码当然提供NaN索引到整个单元格。我无法find正确的子索引和循环通过单元格中的每个字母的方法。如果我理解正确的话， Characters(x,y)应该被提供起始点和单元格想要的子部分的长度。但是Characters(1,1)只返回NaN和Characters(2,1)以及Characters(1,2)超过matrix的尺寸。如何subindexing到一个单元格的子string工作？谢谢。

无法使用ActiveX控件执行macros（Excel VBA）: 问题：不同机器上的用户无法执行VBAmacros，这在我的机器和其他机器上完美运行。在MS Excel 2010 v.14.0.7015.1000（32位）中遇到ActiveX窗体控件问题。使用ActiveXbutton和文本框我写了VBA代码来填充单击button时的文本框。代码在我的机器上完美执行，并已在其他机器上工作。我与其他用户可以单击button有问题。我告诉用户尝试用Alt + F8键盘命令运行macros时遇到了麻烦，但是用户得到了“需要对象”的错误。打了一堵墙，我正在寻找任何可能的帮助。也试过这个论坛相关的MS更新无济于事： Microsoft Excel ActiveX控件禁用？提前致谢！如果有帮助，附上代码： Public Sub CommandButton1_Click() 'Clear Working tab spreadsheet Worksheets("Sheet3").Range("A:AF").ClearContents '—————– 'Filter One Doc to correct process and requirement ' Process Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _ Field:=4, _ Criteria1:=Worksheets("MASTER TAB").Cells(2, ActiveCell.Column), _ VisibleDropDown:=False ' Requirement Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _ […]

通过跳转来启用Excel表单导航: 我有几个activeXbutton和combobox放在一个Excel文档。现在，从一个对象到另一个对象，我必须用鼠标select下一个对象。我希望能够按Tab键从一个combobox到另一个combobox。有没有人有任何想法呢？

Excel部署 – resize和其他组件显示问题: 我一直在一个项目在Excel中工作了一段时间，并有问题部署到我的客户端。我们有（完全）相同版本的Excel，但是当他打开文件时，组件的大小都是错误的。请看下面的截图：当他打开devise模式或单击并保持垂直滚动条时，问题大部分会自行纠正：但与原来相比，还有一些问题，如“租赁开始”和“租赁结束”标签。我也应该提到这个问题不是孤立的这个项目。我们也遇到了一些不同的问题，但是从来没有把devise模式与之联系起来，也弄不清楚。我已经尝试过我的IntegralHeight属性每个论坛post，以及双重检查，我的组件没有设置与单元格的大小。有谁知道为什么这可能会发生？他有Windows 8.1，我有7，如果这可能是不同的。注意：所有的控件都是ActiveX控件。