Tag: vba

删除特殊字符VBA Excel: 我使用VBA来阅读一些标题，然后将这些信息复制到PowerPoint演示文稿。我的问题是，名人有特殊的字符，但我也应付的图像文件不。 TITLE形成将JPEG加载到图片容器的path的一部分。例如“P k.jpg”，但标题被称为“pk”。我希望能够忽略TITLE中的特殊字符，只是让它看到一个空格，所以它拿起正确的JPG文件。那可能吗？谢谢！

vba：什么是97.45 * 1＃=？: some_integer = 97.45 * 1# 这个符号是什么意思？ some_integer =什么？

VBA无法删除空格: 为什么修剪不能在VBA中工作？ for i = 3 to 2000 activesheet.cells(i,"C").value = trim(Activesheet.cells(i,"C").value) next i 无论我如何尝试它无法删除文本之间的空间 hiii how ' even after trying trim the o/p is still these hiii how iam有没有什么不对？我只需要删除额外的空间，所以我发现修剪，但它不能很好地工作ltrim和rtrim工作正常

使用VBA在Excel中查询SQL Server表: 我想使用VBA在Microsoft Excel中查询表格。我已经写了一些代码来尝试完成这个任务，但我不断收到一个错误：运行时错误'1004'：说这是一个通用的ODBC错误。我不知道我需要做什么才能让这个代码正常运行，所以我可以查询这个表。我正在使用SQL Server Express，即我连接的服务器： .\SQLEXPRESS 数据库： Databaselink 查询产品表VBA代码： Sub ParameterQueryExample() '—creates a ListObject-QueryTable on Sheet1 that uses the value in ' Cell Z1 as the ProductID Parameter for an SQL Query ' Once created, the query will refresh upon changes to Z1. Dim sSQL As String Dim qt As QueryTable Dim […]

VBAmacros已成功运行3次后内存不足错误: 我有一个正在工作的macros，从.txt文件（2mil数据点以上）读取大量数据，进行一些过滤和计算，然后输出到电子表格。但是，运行macros3次VBA后，运行时错误“7”：内存不足。我的临时解决scheme是保存，closures并重新打开excel（2010），这使得我可以再次运行该程序 – 但是在将程序交给客户端时，这不是一个可行的选项。这是代码，过滤取出中间。 cellsArray是一个变体数组; string和整数被input到它。 For w = 0 To Listbox2count – 1 Worksheets.Add(, ActiveSheet).Name = bookname ' open input text file myFile = ActiveWorkbook.path & "\" & SelectedTxtFileNames(w) Open myFile For Input As #1 ReDim cellsArray(1048570, 12) Do While Not EOF(1) For i = 0 To 11 ' some calculations […]

如何在Excel工作簿之间复制和粘贴工作表？: 如果您有两个使用VBA打开的Excel应用程序，如何将工作表从一个Excel应用程序（1）转移到另一个（2）？问题是，程序员使用JavaScript，当您点击将Web数据传输到xl工作簿的button时，它将打开一个新的Excel应用程序。我知道部分代码将是： Workbooks.Add ActiveSheet.Paste ' Once I returned to the original , ie excel app(1).

使用VBA基于相似的值对Excel行进行分组: 我有report.xlsx文件，其中包含来自另外2个Excel工作簿的数据，这些工作簿是基于某个唯一值进行合并的。 Pool_RAM列具有来自file1.xlsx数据，而Pool_HDD列具有来自file2.xlsx数据。这两列都包含一些重复的值。现在我想根据相似的值对这些行进行分组，并按照下面提到的格式input。 Report.xlsx Actual Data 我希望数据以下面的格式。 Expected Format 请让我知道，如果你需要任何其他信息。

Excel VBA：数据处理macros运行时间越来越慢越慢: 我正在使用32位Excel 2010中的QuantlibXl库分析大量的历史财务数据。我的典型工作表包含长达一百万行的经验数据的长列。我的macros通常需要遍历从顶部到底部的每一行，并执行一些Quantlib典型的财务分析，比如重估安全性，这要求在每一行都创build一个Quantlib对象。分析的东西包含在单元格中作为公式。所以在开始的时候，我试着select顶部有公式的单元格，然后把右下angular拖到表单底部来填充它们。已经在这里，处理时间与所涉及的行数呈指数增长。所以我想我必须写一个macros，一次处理更小的行块。 macros基本上是照顾一次只填充100行的第一行。这和一些优化（下面解释）肯定会大大提高速度，但处理时间仍然呈指数级增长。问题是，尽可能多的我试图优化我的macros，他们越来越慢，他们跑得越来越慢。我跟踪状态栏中的处理行，例如，如果在启动macros时每分钟处理2000行（计算相当复杂），则在整个运行期间其速度会不断下降，例如每个行只有100行60,000行之后。在那个节奏下，它永远不会看到工作表的结尾。所以实际上，在某个时候，最好是放弃它，然后从停止的地方重新开始。我也分割了这些文件，让他们同时运行在不同的计算机上，这在pipe理上是一个痛苦的屁股。我已经实现了大量的优化： – 屏幕更新和自动计算closures。 – 我只对正在处理的行进行计算。 – 垃圾收集：Quantlib对象在不再使用后立即被删除。我以为是他们吃了所有的自由记忆导致了减速。 – 我到目前为止已经将相关结果（单元格）写入文本文件，并删除不再需要的行。再说一遍，这个macros在开始的时候速度非常快，如果像70,000行之后再没有变得更慢的话，它会在几个小时内运行到最后。事实上，我曾希望在运行时增加速度，因为行被删除，表单缩小，但是不会发生。所以我只停留在六万行的过程中，再次启动它，但它却令人厌烦。我想弄清楚是什么原因导致Excel的行为不能线性处理大量的数据，需要重新启动，以及如何避免它。如果有人遇到类似的麻烦，并find解决办法，我很高兴听到这个消息。编辑：每当我停止进程再次加速通过重新开始，我注意到，我必须重新启动Excel，否则恢复就像以前一样慢。我目前的假设是在某些时候数据没有被正确清理。如果是这样的话，你的解决scheme会给我带来更多。 Quantlib库有一个方法来查看有多less对象仍然驻留在称为ohRepositoryObjectCount（）的内存中。在每次计算之后，我都会调用ohRepositoryDeleteAllObjects（）函数，并根据其他方法有效删除它们，但可能仍然有一些泄漏未被发现。编辑2：我现在确信存在内存泄漏，因为在长时间批处理后，任务pipe理器显示3或4个Excel进程占用大约1.5 GB的内存。当退出Excel，它崩溃（与“Excel不再工作了”的消息），并进程持续，所以我不得不杀死他们手动。

插入图片到Excel VBA，方法图片失败: 试图制作一个macros在Excel中逐步插入3个图像一张工作表（图片）包含列1-3行中图像的URL 另一个工作表（输出）应该水平输出图像。 Sub testinsertpix() Dim i As Integer Dim link As String For i = 1 To 3 link = Worksheets("pics").Cells(i, "A").Value Cells(1, i).Select ActiveSheet.Pictures.Insert (link) Next i End Sub 它会插入第一张图片，但当循环到达第二张图片时会失败。 “图片类的插入方法失败” 请帮忙吗？

比较两个arrays与Excel VBA: 至于这个问题，我需要能够将Variant数组A中的所有数据与Variant数组B中的所有数据进行比较。我知道我需要某种双循环（因此每个A值都会针对所有B值进行检查），但我无法弄清楚如何去做。以下是我到目前为止： Sub Button_Click() Dim trgtRange As Variant Dim tempRange As Variant Set myRange = ThisWorkbook.Sheets(1).Range("L:L") For Each cell In myRange If IsEmpty(cell) Then ActiveCell.Offset(-1, 0).Select currentRow = ActiveCell.Row Set trgtRange = Range("L2:L" & currentRow) Exit For End If Next cell Set tempRange = Range("A1:A" & currentRow – 1) ' Insert a double loop here […]