VB：突出显示工作表中的 Excel 单元格

Question

我想知道是否可以创建一个 vbs 文件来突出显示 Excel 工作簿中的单元格。

我有一个包含多个计算机主机名的 excel 工作表，我还批量运行一个脚本，对文本文档中的每个主机名进行 ping 操作。如果 ping 结果成功，我想调用 vbs 文件以突出显示 excel 中的单元格。这可能吗？

谢谢！

迪米特里

Answer 1

有很多方法可以做到这一点，但我必须问你为什么要使用批处理脚本和文本文件来 ping 主机名，而你可以在 Excel 中做到这一点？

有两种方法可以做到这一点......一种更复杂和正确，另一种快速而肮脏。坦率地说，我推荐快速和肮脏的。

正确方法： 从您的 Windows kernel32.dll 中声明 ReadConsole 和 WriteConsole 方法，并利用它们来获取您的 ping 结果。这里描述得很好：

http://visualbasic.about.com/od/learnvb6/l/bldykvb6dosa.htm

问答方式： 使用 VBA 中的内置 Shell() 函数并将 ping 的输出通过管道传输到文本文件。解析所述文本文件并在完成后将其删除。

例如

for each currCell in hostnameRange
   ' Ping each hostname and pipe the results to a file
   shell "ping " + currCell.value + " >> ping_result.txt"
next currCell

inFile = FreeFile()
Open "ping_result.txt" for Input as #inFile

fileBuffer = Input$(LOF(inFile ), inFile) ' Open and read the file to a buffer

for each currCell in hostnameRange
   ' Search for ping failures in the buffer
   if instr(1, fileBuffer, "could not find host " + currCell.value) = 0 then
        debug.print "Ping successful."
   end if
next currCell