如何使用VBA 代码模糊查询某工作表引用指定D8单元格下显示

rayhen

模糊查询在D4单元格,来源在DATA工作表

您的帮忙,不胜感激

taller

feilanga

....................

feilanga

qdtzq

重新上传了附件

rayhen

感谢l版主跟各位老师,您们超级棒棒棒,也由衷感谢热心帮忙!

rayhen

qdtzq 发表于 2023-6-5 10:21
...............

老师您的代码能贴出图片吗?打开代码都不见了

qdtzq

rayhen 发表于 2023-6-5 10:41
老师您的代码能贴出图片吗?打开代码都不见了

已重新上传附件

ZHLK

Sub 宏1()
    Rows("7:1000").Delete Shift:=xlUp

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=Excel Files;DBQ=C:\Users\Administrator\Desktop\6-5\6-5.xlsx;DefaultDir=C:\Users\Administrator\Desktop\6-5;DriverId=1046;Max" _
        ), Array("BufferSize=2048;PageTimeout=5;")), Destination:=Range("$D$7")). _
        QueryTable
        .CommandText = "SELECT ID,Title,Genre,Year,RunTime,Rating FROM [DATA$] WHERE [Genre] Like '%" & Range("d4") & "%'"
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .ListObject.DisplayName = "表_1"
        .Refresh BackgroundQuery:=False
    End With
    Cells.EntireColumn.AutoFit
End Sub

rayhen

qdtzq 发表于 2023-6-5 10:48
已重新上传附件

老师您的代码能贴出图片吗?打开代码都不见了