Tag: vba

有没有办法检查重复的值在Excel中没有使用CountIf函数？

SO上的很多解决scheme都涉及使用CountIf来查找重复项。 但是，如果我有一个超过100,000个值的列表， CountIf通常需要几分钟的CountIf来search重复项。 有没有更快的方法来searchExcel列中的重复项没有使用CountIf？ 谢谢！ 编辑＃1： 在阅读了评论和回复后，我意识到我需要进一步细化。 让我们假装自己是一个观鸟者，从观鸟之旅回来之后，我可以在我的旅行中看到的1到25或50只新鸟的任意一个input到我看到的“鸟类名单”中。 这真是一个dynamic增长的列表，每增加一个，我都想确保我不重复列表中已存在的内容。 所以，在我的文件A栏是鸟的名字。 BM列可能包含鸟类的其他属性。 我想知道在我最近的观鸟之旅ALREADY之后，我刚刚在A列中添加了一只鸟，是否存在于我列表中的其他地方。 而且，如果是这样的话，我会手动合并这两个条目的数据，扔掉一些，仔细审查后保留一些。 我显然不想在我的数据库中有同样的鸟重复的条目。 所以，最终我想要一些迹象表明，有或没有重复在别的地方，如果有重复，请告诉我要查看什么行（或突出显示或着色两个副本）。

如何使用vba将只有一个工作表复制到另一个工作簿

我有1个WorkBook("SOURCE") ，其中包含大约20张表。 我想使用Excel VBA只复制一个特定工作表到另一个Workbook("TARGET") 。 请注意，“TARGET”工作簿还不存在。 它应该在运行时创build。 使用的方法 – 1） Activeworkbook.SaveAs <—不起作用。 这将复制所有表单。 我只想要特定的表格。 请回复这个宝贵的意见。 谢谢 ！！

从.NET中的VBA函数访问返回值？

我有以下代码在VBA（驻留在Excel 2007工作簿中）： Public Function Multiply(a As Double, b As Double) As Double Multiply = a * b End Function 如果我从其他VBA代码中调用Multiply，它会返回正确的值。 但是，当我从C＃中调用Multiply时： var excel = new Application {Visible = true}; excel.Workbooks.Open(filename); var returned = excel.Run("Sheet1.Multiply", (Double) a, (Double) b); …乘法发生（我可以通过添加跟踪到VBA中的Multiply函数来validation这一点），但是返回的值在我的C＃代码中是不可用的; returned的总是null 。 有人可以告诉我如何得到从我的C＃代码Multiply的返回值？

两次运行后，在Excel中运行SAS存储过程失败

我希望这是一个适当的地方来问这个问题。 我最近在Excel中构build了一个数据分析工具，通过向SAS存储过程（作为“inputstream”）提交input，运行stream程并在Excel中显示结果。 我还使用一些代码来检查并删除工作簿中的所有活动存储的进程再次运行该过程之前。 这第一次2次成功运行，但第三次尝试失败。 它总是失败的第三次尝试，我不明白为什么。 Excel VBA中是否有这种内存分配方式？ 还是其他一些最大的缓冲区？ 我已经介入了VBA代码的每一行，它似乎挂起（在第三次运行）在下面的行： SAS.InsertStoredProcess processLoc, _ outputSheet.Range("A1"), , , inputStream 用于启动Microsoft Office的SAS加载项的代码： Dim SAS As SASExcelAddIn Set SAS = Application.COMAddIns.Item("SAS.ExcelAddIn").Object 用于从目标输出表中删除存储进程的代码： Dim Processes As SASStoredProcesses Set Processes = SAS.GetStoredProcesses(outputSheet) Dim i As Integer For i = 1 To Processes.Count ' MsgBox Processes.Item(i).DisplayName Processes.Item(i).Delete Next i 用于插入和运行存储过程的代码： Dim inputStream As […]

在excel vba中使用VLC player activex作为免注册的COM

问题定义 我有两个USB显微镜阅读部分和序列号。 我想控制Excel-VBA屏幕截图的显示和logging。 我想尝试使用提供的VLC活动X组件。 我需要完成产品是一个单一的压缩，不需要安装。 我认为使用这个activex对象作为一个免注册的COM是最好的select。 参考 我一直在做我的功课，这里是我的参考。 如何使用vlc.dll而不注册？ 免注册的COM Interop VLC播放器和Excel Visual Basic编辑器 从VBA无法获得免注册的COM 我到目前为止的尝试。 我创build了Desktop \ excel vlc demo \ excel vlc demo.xlsb然后我将整个vlc发行版复制到桌面\ excel vlc demo \ vlc \ 这包括axvlc.dll和axvlc.dll.manifest 我创build了一个模块，并把这个代码。 Sub VLC() Dim actCtx As Object Set actCtx = CreateObject("Microsoft.Windows.ActCtx") actCtx.Manifest = ThisWorkbook.Path & "\vlc\axvlc.dll.manifest" Dim myVlC As Object Set myVlC = […]

PowerShell：从excel文件中删除VBA模块

我想做的事： 打开一个excel文件 dynamic导入VBA模块并从模块运行一个function 卸下模块 所以这是我的PowerShell代码： $excel = New-Object -ComObject Excel.Application $excel.Workbooks.Open($filepath) | Out-Null $macro = $excel.ActiveWorkbook.VBProject.VBComponents.Import($MacroFilepath) $Excel.ActiveWorkbook.Application.Run("HoursSumCounter.main") | Out-Null $excel.ActiveWorkbook.VBProject.VBComponents.Remove($macro) （自然，我启用访问Excel的信任中心设置中的VBA项目，以便能够dynamic地导入模块） 现在我得到的错误是： Cannot find an overload for "Remove" and the argument count: "1". At line:1 char:1 + $excel.ActiveWorkbook.VBProject.VBComponents.Remove($macro) + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [], MethodException + FullyQualifiedErrorId : MethodCountCouldNotFindBest 这整个事情实际上是如果我在Excel（无PowerShell）中这样做。 但这是我发现的… 我检查了删除function的重载： [DBG]: […]

Excel条件格式不打印时显示？

我有这样的工作簿： 用条件格式来突出显示我在U列中的前十位数字。 我的工作簿中有以下vba代码： 而这个禁用计算和重新启用计算的代码： Option Explicit Sub code2() MsgBox "This will take upto 2 minutes." Application.ScreenUpdating = False Dim WB As Workbook Dim I As Long Dim j As Long Dim Lastrow As Long Dim WeekNum As Integer 'Clear Data Sheet On Error GoTo Message With ThisWorkbook.Worksheets("Data") .Rows(2 & ":" & .Rows.Count).ClearContents End With On […]

pipe理电子表格版本

我们在电子表格中有很多VBA代码，很多时候人们把它们保存到本地驱动器上。 当我们想要升级电子表格时，我们将新版本推送到共享驱动器，但是没有任何强制人们不使用旧版本电子表格的方法。 在这里有一些最佳做法部署VBA电子表格，所以如果有人加载一个旧版本，它不会打开或将要求您升级。 这似乎是任何自定义解决scheme必须是一个问题，所以我会通过MS会有一些解决scheme在这里。 微软是否有一个标准的版本/部署解决scheme，或者我需要拿出一些本土的解决scheme（电子表格ping数据库启动时检查版本）

以编程方式确定Excel文件（.xls）是否包含macros

有没有什么办法可以通过编程来确定.xls是否包含macros，而不用在Excel中实际打开它？ 还有什么方法来检查哪些证书（包括时间戳证书）这些macros签名？ 再次不使用Excel。 我特别想知道是否有任何string总是出现在Excel文件的原始数据中。

短信从C＃连接到手机并获得响应

我写了代码发送短信使用我的GSM电话，通过COM端口连接到计算机。 代码如下。 问题是，我确实看到它在电话的发件箱中，而且它实际上似乎已经发送，但是当我联系收件人时，他们说我还没有收到邮件。 我testing手机，并创build和发送消息，只使用手机，它完美的作品。 但是，当我用我的代码这样做，它已经发送，我从手机得到所有正确的AT COMMAND响应，但实际上不发送消息。 这里是代码： using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.Threading; using System.IO.Ports; namespace WindowsFormsApplication1 { public partial class Form1 : Form { SerialPort serialPort1; int m_iTxtMsgState = 0; const int NUM_MESSAGE_STATES = 4; const string RESERVED_COM_1 = "COM1"; const string […]