vba写个调用findstr的语句findstr i aa bb sql 。打印的内容输出到sheet1

您可以使用VBA的Shell函数来调用命令行并执行findstr命令，然后将结果输出到Sheet1。以下是一个示例代码：

Sub RunFindstr()
    Dim cmd As String
    Dim output As String
    
    ' 设置要执行的命令
    cmd = "cmd /c findstr /i ""aa bb"" *.sql"
    
    ' 创建一个新的Shell对象并执行命令
    Dim shell As Object
    Set shell = CreateObject("WScript.Shell")
    output = shell.Exec(cmd).StdOut.ReadAll
    
    ' 将输出结果写入Sheet1的A1单元格
    Sheet1.Range("A1").Value = output
End Sub

请将上述代码复制到VBA编辑器中的某个模块中，并运行RunFindstr宏。执行完毕后，输出的结果将会显示在Sheet1的A1单元格中。