Tag: vba

数组大小限制在VBA中传递数组参数: Excel-VBA 2007似乎对作为parameter passing的数组大小有64k的限制。有谁知道一个修复或解决？代码如下： Public Function funA(n) Dim ar() ReDim ar(n) funA = ar End Function Public Function funB(x) funB = UBound(x) End Function 从Excel： =funB(funA(2^16-1)) '65536 as expected =funB(funA(2^16)) 'Gives a #VALUE 在里面，funA（）工作正常，但传递给funB，参数x是一个错误2015年。

使用Excel VBAclosuresPowerpoint对象（不使用Powerpoint.Application）: 希望有人可以帮助我一些VBA代码。我使用VBA循环将Excel图表，文本框和表格粘贴到Powerpoint模板中。但是，因为我不能确定用户将安装Powerpoint对象库，所以我不能使用Dim PPTApp作为Powerpoint.Applicationtypes的语法。我使用对象。它工作很好。除了一件：closuresPowerpoint。码： Dim oPPTPres As Object ' Late binding: This is a PowerPoint.Presentation but we cannot assume that the Microsoft PowerPoint 11 library will be loaded in the workbook that this module has been copied to. Dim oPPTShape As Object ' Late binding: This is a PowerPoint.Shapebut we cannot […]

如何在Excel中检测粘贴事件: 我需要检测excel的粘贴命令。是否有任何工作可以告诉我们，当用户点击从左边的button点击popup的菜单粘贴。如果用户单击粘贴菜单项，则需要我执行一个过程。任何帮助，将不胜感激。问候，阿米特

如何使用空白单元格作为参考执行sumif？: 请参阅下面的示例数据： Time Date Result 00:21.6 10/1/2012 1:43 FALSE 01:47.7 10/1/2012 2:13 FALSE 00:56.7 10/1/2012 2:49 FALSE 00:54.9 10/1/2012 3:43 00:11.8 10/1/2012 3:43 02:10.9 10/1/2012 3:46 FALSE 01:05.4 10/1/2012 3:58 FALSE 00:55.8 10/1/2012 4:53 04:41.8 10/1/2012 4:52 00:26.3 10/1/2012 4:58 00:04.2 10/1/2012 4:58 00:15.3 10/1/2012 4:59 00:06.4 10/1/2012 4:57 00:10.7 10/1/2012 4:56 00:04.4 10/1/2012 4:56 00:04.2 […]

在Excel公式中查找所有使用的引用: 下面是在Excel中设置的例子， [column1] [column2] A1 =C3-C5 A2 =((C4-C6)/C6) A3 =C4*C3 A4 =C6/C7 A5 =C6*C4*C3 我需要提取公式中使用的参考例如， for "A1", I simply need to get the C3 and C5. for A2, I need to get the C4 and C6.

如何使用Python win32com调用Excel VBA函数和子文件？: 我的Excel工作簿包含类似于下面的VBA子和macros; 他们坐在Module1中。如何使用Python win32com模块调用它们？ Public Sub setA1(ByVal s As String) ThisWorkbook.ActiveSheet.Range("A1").Value = s End Sub Public Function getA1() As String getA1 = ThisWorkbook.ActiveSheet.Range("A1").Value End Function 提前谢谢了！

Excel / VBA – 检测服务器是否可达: 在我的工作地点，不同的计算机位于不同的子网中，如果PC与Samba服务器位于同一个子网中，则可以通过\\myserv\MyFolder访问文件服务器，但是PC位于不同的子网，我到达服务器的唯一方法是使用IP (ie, \\1.2.3.4\MyFolder) 。我只是想知道在VBA，如果有什么办法我可以说：如果我可以使用\\myservfind服务器，那么使用myserv ，否则使用1.2.3.4 ？不幸的是，我根本无法调整networking，我想这样设置，至less在IP更改时，大多数用户仍然可以通过访问\\myserv\MyFolder来使用该工具。

如何将多个工作表导出为CSV（不保存在当前工作表上）: 我试图通过这样的代码将我的工作簿中的许多工作表导出为.csv： Sub Export_To_CSV(exportPath As String) Dim filePath As String For Each WS In ThisWorkbook.Worksheets filePath = exportPath & "(" & WS.Name & ").dat" WS.SaveAs Filename:=filePath, FileFormat:=xlCSV Next End Sub 问题是，这节省了我打开的当前.xlsm文件。我怎样才能得到它导出.csv而不更改当前文件的名称？我认为SaveCopyAs会做的伎俩，但它只适用于workbook而不是worksheet 。

Microsoft Excel数据连接 – 通过VBA更改连接string: 我有一个相当直接的问题。我想通过VBA（macros代码）find一种方法来更改和更改Excel工作簿中的现有数据连接的连接string。我试图做到这一点的主要原因是find一种方法来提示打开工作簿的用户input他们的凭证（用户名/密码），或者在可用连接string中使用可信任连接的checkbox数据连接。现在，数据连接运行的是我创build的示例用户，并且需要在生产版本的工作簿中消失。希望有道理？这可能吗？如果是，请给我一个示例代码块？我真的很感谢在这一点上的任何build议。

对于Excel VBA中的每个类属性: 我有一些看起来像这样的代码： pos.Clutch = sh2.Cells(R, Clutch) pos.Wiper = sh2.Cells(R, Wiper) pos.Alternator = sh2.Cells(R, Alternator) pos.Compressor = sh2.Cells(R, Compressor) … pos.Telephone = sh2.Cells(R, Telephone) poss.Add pos poss是一个集合，Clutch，Wiper等是列索引（从1开始）。这目前的作品，但非常丑陋。我正在寻找一种方法来做这样的事情… Do While i <= classProperty.count For each classProperty in pos classProperty = sh2.Cells(R + 1, i) Next classProperty Loop 显然，这不会工作，但没有人有任何build议，如何做一个方法或集合内类将完成大致相同？