我要使用VBA实现以下两个功能：1 有读取按钮，对同文件夹的excel文件进行导入 2 提取完后，对某一列进行关键词筛选，将筛选出的关键词生成一个结果输出表

要在VBA中实现您所述的功能，您可以按照以下步骤操作：

1. 读取按钮的实现：
您可以使用VBA中的`Workbooks.Open`方法来打开同一文件夹下的Excel文件。首先，您需要创建一个按钮，并为其分配一个宏，然后在宏中编写代码来读取文件夹中所有的Excel文件。

Sub 导入文件夹内Excel文件()
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String
    Dim filesToOpen
    Dim i As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\您的文件夹路径\"
    
    ' 选择文件夹中的所有Excel文件
    filesToOpen = Application.GetOpenFilename(filefilter:="Microsoft Excel Files (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm", MultiSelect:=True)
    
    ' 如果用户取消，则退出
    If TypeName(filesToOpen) = "Boolean" Then
        MsgBox "导入已取消"
        Exit Sub
    End If
    
    ' 遍历所有选定的文件
    For i = 1 To UBound(filesToOpen)
        fileName = Dir(folderPath & filesToOpen(i))
        
        ' 打开文件并复制数据到当前工作表
        Workbooks.Open folderPath & fileName
        
        ' 在这里添加复制数据的代码，例如：
        ' Set ws = Sheets("Sheet1") ' 指定要复制数据的工作表
        ' ws.Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
        
        ' 关闭工作簿，不保存更改
        Workbooks(fileName).Close savechanges:=False
    Next i
    
    MsgBox "文件导入完成"
End Sub

2. 关键词筛选和生成结果输出表：
对于筛选关键词并生成结果表的功能，您需要首先确定要筛选的列，然后使用循环和条件判断语句来检查每个单元格是否包含关键词。如果包含，则将其添加到新的工作表中。

Sub 筛选关键词并生成结果表()
    Dim wsSource As Worksheet
    Dim wsResult As Worksheet
    Dim lastRow As Long, i As Long
    Dim keyword As String
    Dim columnToSearch As String ' 假设要搜索的列是A列
    
    ' 设置源数据工作表和结果工作表
    Set wsSource = ThisWorkbook.Sheets("源数据工作表名称")
    Set wsResult = ThisWorkbook.Sheets("结果输出表") ' 如果不存在则会自动创建
    If wsResult.Cells(1, 1).Value = "" Then ' 如果结果工作表为空，则添加标题
        wsResult.Cells(1, 1).Value = "筛选结果"
    End If
    
    ' 获取源数据的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, columnToSearch).End(xlUp).Row
    
    ' 初始化筛选的关键词
    keyword = "您要筛选的关键词"
    
    ' 清空结果工作表的筛选结果
    wsResult.Cells.ClearContents
    
    ' 遍历源数据工作表的指定列
    For i = 1 To lastRow
        If InStr(1, wsSource.Range(columnToSearch & i).Value, keyword) > 0 Then
            ' 如果单元格包含关键词，则复制到结果工作表
            wsResult.Cells(wsResult.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = wsSource.Range(columnToSearch & i).Value
        End If
    Next i
    
    MsgBox "筛选完成"
End Sub

在上述代码中，您需要根据实际情况调整`folderPath`、`源数据工作表名称`和`columnToSearch`等变量的值。同时，确保您的VBA环境设置允许运行这些宏，并且有适当的权限访问和修改文件。