在 Windows 搜索中复制和粘贴 excel答案

【问题标题】：excel copy and paste in Windows Search在 Windows 搜索中复制和粘贴 excel
【发布时间】：2014-04-29 18:37:25
【问题描述】：

我正在使用 Excel 2010 和 Windows 7 Pro。我想将一个单元格内容复制到 Windows 搜索框中。我该如何为此编写 VBA？

Sub CopytoSearchWindow() 
'CopytoSearchWindow Macro ' ' 
sCell = Range(Application.InputBox(Prompt:="Pick the Cell", Type:=8)).Value

【问题讨论】：

编写代码将是一个好的开始。
这是我目前所拥有的：
Sub CopytoSearchWindow() ' ' CopytoSearchWindow Macro ' ' sCell = Range(Application.InputBox(Prompt:="Pick the Cell", Type:=8)).Value
就这样？（注意：我更新了您的问题以包含代码。将来，请更新您的问题 -- 代码无法在 cmets 中正确呈现）
感谢您这样做。就我的代码而言，我不知道如何调用 Windows 搜索框。这就是我卡住的地方。

标签： windows excel vba search

【解决方案1】：

您可以使用 Shell.Application 对象结合发送一些击键来执行此操作。

示例：（将我的 searchString 位替换为您喜欢的任何内容）

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub searchExample()

    Dim searchCell As Range
    Dim shellApp As Object
    Dim wshShell As Object

    On Error Resume Next 'to catch if user presses cancel
    Set searchCell = Application.InputBox(Prompt:="Pick the Cell", Type:=8)
    On Error Goto 0

    If searchCell Is Nothing Then Exit Sub

    Set shellApp = CreateObject("Shell.Application")
    Set wshShell = CreateObject("WScript.Shell")

    shellApp.FindFiles
    Sleep 500
    wshShell.SendKeys searchCell.Value & "{enter}"

End Sub

Shell.Application 参考：http://msdn.microsoft.com/en-us/library/windows/desktop/bb773938%28v=vs.85%29.aspx

Windows 脚本主机 Shell 参考：http://msdn.microsoft.com/en-us/library/aew9yb99%28v=vs.84%29.aspx

【讨论】：

抱歉，我是 VBA 新手。如何将它与要求用户选择要复制的单元格的代码合并？
已编辑 - 现在应该即插即用。在 StackOverflow 上，答案是示范性的 - 预计您可能需要展示一点想法或努力来实现答案。但实际上 - 如果您不知道足够的 VBA 来替换另一个变量，那么我建议您在尝试向客户/同事提供一些东西之前学习 VBA 的基础知识，否则它会自找麻烦。互联网上有许多简单的指南。无论如何，我希望它有所帮助。