Tag: excel 2007

为什么我在Excel Addin中“无法在证书存储中find清单签名证书”？

我有一个在Visual Studio 2008中创build了几年的Excel加载项目。它有一些改变，所以我升级到了Visual Studio 2010（唯一可以使用的IDE）。 不知道这是否是造成问题，但它是背景信息。 当我检查代码并编译它时，出现错误“错误1无法在证书存储中查找清单签名证书”。 谁能告诉我这是什么意思，如何解决？

Excel VBA匹配并排列行

我有列A到J的Excel文档。我有列K到N与相关的数据，但不alignment。 我需要将列F中的值与列K中的值匹配，以便排列在一起。 当我移K时，我必须将L，M，N一起移动。 我不能排列列A到J – 他们必须保持在位。 之前的示例： ABCDEFGHIJKLMN data data data data data record1 data data data data record3 data data data data data data data data record2 data data data data record1 data data data data data data data data record3 data data data data data data data data data record4 data data data […]

使用excel vba过滤掉多个条件

A列中有8个variables，1,2,3,4,5和A，B，C 我的目标是过滤掉A，B，C，只显示1-5。 我可以使用下面的代码来做到这一点： My_Range.AutoFilter Field:=1, Criteria1:=Array("1", "2", "3","4","5"), Operator:=xlFilterValues 但是代码做的是过滤variables1到5并显示它们。 我不想做相反的事情，但是通过筛选出A，B，C并显示variables1到5，得到相同的结果 我试过这个代码： My_Range.AutoFilter Field:=1, Criteria1:=Array("<>A", "<>B", "<>C"), Operator:=xlFilterValues 但它没有工作。 为什么不能使用这个代码？ 它给出了这个错误： 范围类的运行时错误1004 autofilter方法失败 我该怎么做？

Excel VBA如果工作表（“wsName”）存在

我想知道是否有干净的切割function返回True或False如果工作簿内的工作簿存在？ 如果可以在不跳过error handling的情况下做到这一点，那将是好事，但不是必须的。 我发现的唯一的东西并不真正的工作： On Error Resume Next If (Worksheets("wsName").Name <> "") Then Debug.Print "Worksheet exists!" Else Debug.Print "Worksheet doesn't exist!" End If On Error GoTo ErrHandler

最好的语言来parsing极大的Excel 2007文件

我的老板习惯于对我们的数据库执行查询，返回数以万计的行并将其保存到excel文件中。 作为实习生，我不得不编写处理这些文件信息的脚本。 到目前为止，我已经尝试VBScript和Powershell为我的脚本需求。 这两者都可能需要几分钟的时间来执行即使是最简单的任务，这将意味着脚本完成后将需要大约8小时的一天。 我现在的解决方法是编写一个PowerShell脚本，它从xlsx文件中删除所有的逗号和换行符，将.xlsx文件保存为.csv，然后让一个Java程序处理数据收集和输出，脚本完成后清理.csv文件。 这对于我目前的项目来说只需几秒钟，但是我不禁要问，下一个项目是否还有一个更优雅的select。 有什么build议么？

将事件处理程序分配给在VBA中dynamic创build的用户表单上的控件

我发现互联网上的许多资源几乎做我想做的，但不完全。我有一个命名范围“daylist”。 对于dayList中的每一天，我想在用户窗体上创build一个button来运行当天的macros。 我能够dynamic添加button，但不知道如何将daycell.text从命名范围，button，事件处理程序传递到macros：S Heres我必须创build用户表单的代码： Sub addLabel() ReadingsLauncher.Show vbModeless Dim theLabel As Object Dim labelCounter As Long Dim daycell As Range Dim btn As CommandButton Dim btnCaption As String For Each daycell In Range("daylist") btnCaption = daycell.Text Set theLabel = ReadingsLauncher.Controls.Add("Forms.Label.1", btnCaption, True) With theLabel .Caption = btnCaption .Left = 10 .Width = 50 .Top = […]

从VB代码解除VBProject的保护

我怎样才能从vbmacros解除我的VB项目？ 我发现这个代码： Sub UnprotectVBProject(ByRef WB As Workbook, ByVal Password As String) Dim VBProj As Object Set VBProj = WB.VBProject Application.ScreenUpdating = False 'Ne peut procéder si le projet est non-protégé. If VBProj.Protection <> 1 Then Exit Sub Set Application.VBE.ActiveVBProject = VBProj 'Utilisation de "SendKeys" Pour envoyer le mot de passe. SendKeys Password & "~" SendKeys […]

如何使用VBA添加自定义function区选项卡？

我正在寻找一种方法来添加一个自定义选项卡的Excelfunction区，将带有几个button。 我偶然发现了一些通过Google解决问题的资源，但都显得有些狡猾，而且非常复杂。 什么是快速简单的方法来做到这一点？ 我希望当我的VBA被加载到Excel中时，新的选项卡被加载。 更新 ：我从这里尝试这个例子，但最后的指令得到一个“对象所需”的错误： Public Sub AddHighlightRibbon() Dim ribbonXml As String ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" ribbonXml = ribbonXml + " <mso:ribbon>" ribbonXml = ribbonXml + " <mso:qat/>" ribbonXml = ribbonXml + " <mso:tabs>" ribbonXml = ribbonXml + " <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">" ribbonXml = ribbonXml + " <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">" ribbonXml = […]

Excel“外部表格不是预期的格式”。

我正在尝试使用下面显示的代码读取Excel（xlsx）文件。 我得到一个“外部表格不是预期的格式”。 错误，除非我已经在Excel中打开文件。 换句话说，我必须先在Excel中打开文件，然后才能从我的C＃程序中读取。 xlsx文件在我们的networking上共享。 我怎样才能读取文件，而不必先打开它？ 谢谢 string sql = "SELECT * FROM [Sheet1$]"; string excelConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + pathname + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1;\""; using (OleDbDataAdapter adaptor = new OleDbDataAdapter(sql, excelConnection)) { DataSet ds = new DataSet(); adaptor.Fill(ds); }