Tag: vba

等待shell命令完成

我在Excel VBA中运行一个简单的shell命令，该命令在如下所示的指定目录中运行batch file： Dim strBatchName As String strBatchName = "C:\folder\runbat.bat" Shell strBatchName 有时batch file在某些​​计算机上可能需要更长的时间才能运行，并且正在执行的VBA代码依赖于batch file来完成运行。 我知道你可以设置一个等待计时器，如下所示： Application.Wait Now + TimeSerial(0, 0, 5) 但是，这可能无法在一些太慢的计算机上工作。 有没有一种方法可以让系统地告诉Excel继续运行其余的VBA代码，直到shell运行完毕？

“用户定义types未定义”错误

试图执行这个macros时出现上述错误。 我对macros和编码都很陌生，所以请原谅无知。 谢谢 Sub DeleteEmptyRows() Dim oTable As Table, oRow As Row, _ TextInRow As Boolean, i As Long Application.ScreenUpdating = False For Each oTable In ActiveDocument.Tables For Each oRow In oTable.Rows TextInRow = False For i = 2 To oRow.Cells.Count If Len(oRow.Cells(i).Range.Text) > 2 Then 'end of cell marker is actually 2 characters TextInRow […]

计算另一个工作表中的行数

我已经看了build议的问题find我的问题的答案。 最接近的问题叫做：统计另一个Excel工作表中不同的Excel Sheet Sheet中的行数 解决这个问题不适合我。 我正在计算不同工作表中的活动工作表的范围内的行数。 这是我的代码： Sub verbflashcards() Dim wordcount As Long With Worksheets("Verbs") wordcount = .Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.Count End With MsgBox (wordcount) End Sub 我有一个名为Verbs的工作表，它是工作簿中的第二个工作表。 我努力了： With Verbs With Sheet2 With Sheets("Verbs") With Sheets("Sheet2") 他们似乎没有任何工作。

在VBA循环中的代码永远不会结束。 如何解决这个问题？

我运行这个代码来删除有> -100的行。 然而，它保持循环，永不停止。 我在这里错过了什么？ For i = 2 To 500 If Worksheets("Sales").Cells(i, 3).Value > -100 Then Worksheets("Sales").Cells(i, 3).EntireRow.Delete i = i – 1 End If Next i

如何比较工作表中的两个完整行

我是VBA新手。 我有工作来提高VBA代码的性能。 为了提高代码的性能，我必须读整行并将其与另一行进行比较。 有没有办法在VBA中做到这一点？ 伪代码： sheet1_row1=read row1 from sheet1 sheet2_row1=read row1 from sheet2 if sheet1_row1 = sheet2_row1 then print "Row contains same value" else print "Row contains diff value" end if

ExecuteExcel4Macro从封闭的工作簿中获取值

好的，我发现这一点代码，并认为它可能是很好的使用，如果我只需要从一个封闭的工作表拉一个值。 strInfoCell = "'" & strPath & "[" & strFile & "]Sheet1'!R3C3" myvalue = ExecuteExcel4Macro(strInfoCell) 不，当我运行这个代码时，我得到了一个strinfocell的值 ：strInfoCell：“'C：\ Users \ my.name \ Desktop [QOS DGL stuff.xlsx] Sheet1'！R3C3”：String 但是当我运行代码时，文件打开对话框popup，显示“QOS DGL”的桌面文件显示。 这是什么原因造成的，为什么它不是像预期的那样拉回数据呢？ 我知道path和文件名是正确的，casue如果我从debugging输出复制他们，并将其粘贴到开始>>运行然后正确的工作表打开 我知道sheet1（名为：ACL），在单元格（3,3​​）中有一个值， 干杯 亚伦

非networkingSQL注入

似乎有一些关于SQL注入攻击的歇斯底里。 最近在这里 如何根据另一个字段中的查找值返回一个字段中的值 如果我在Excel中创build一个连接到Access数据库的macros，我真的不得不关心SQL注入吗？ 这不是在networking上，它在我的办公室使用（你们记得桌面？）。 我不担心我的同事要破坏我。 如果他们足够聪明的做一个SQL注入，是不是足够聪明来破解我的加载项密码，只是改变代码？

等待Shell完成，然后格式化单元格 – 同步执行一个命令

我有一个使用shell命令调用的可执行文件： Shell (ThisWorkbook.Path & "\ProcessData.exe") 可执行文件执行一些计算，然后将结果导出回Excel。 我希望能够在导出后更改结果的格式。 换句话说，我需要Shell命令首先等待，直到可执行文件完成其任务，导出数据，然后执行下一个命令进行格式化。 我尝试了Shellandwait() ，但没有多less运气。 我有： Sub Test() ShellandWait (ThisWorkbook.Path & "\ProcessData.exe") 'Additional lines to format cells as needed End Sub 不幸的是，格式化在可执行文件完成之前首先发生。 仅供参考，这里是我使用ShellandWait的完整代码 ' Start the indicated program and wait for it ' to finish, hiding while we wait. Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As […]

如何使用VBA创build和写入一个txt文件

我有一个文件是根据input手动添加或修改的。 由于大部分内容在该文件中是重复的，只有hex值正在改变，我想使它成为一个工具生成的文件。 我想编写将打印在该.txt文件中的C代码。 什么是使用VBA创build.txt文件的命令，以及如何写入它

vba中的dim和set有什么区别

请原谅我是VBA的新手。 有时候我用 Dim r as Range r = Range("A1") 其他时间我使用 Set r = Range("A1") 有什么不同？ 什么时候该用什么？