跪求跪求，求助大神帮忙写个根据文件名称选取指定内容的宏

LMY123

愤怒的胡渣 发表于 2018-9-20 15:56
我修改了出厂日期（修改E4里的内容日期就会变），比如修改成2018年9月1日，那么现在我运行宏，应该就是调 ...

Sub ADO_根据J12单元格_查找指定工作薄()
    NA = Year([J12]) & "年" & Month([J12]) & "月" & Day([J12]) & "日" & ".xlsx"
    Set conn = CreateObject("adodb.connection")
    path = ThisWorkbook.path
    n = UBound(Split(path, "\"))
    conn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes';Data Source=" & Replace(path, Split(path, "\")(n), "原材料报告目录表/" & NA & "")
    Sql = "select 试验编号,含水率,超径比 from [Sheet1$] WHERE  试验编号 IS NOT NULL "
    arr = conn.Execute(Sql).GetRows
    For i = 0 To UBound(arr, 2)
        m = m + 1
        Cells(m + 9, 4) = arr(0, i)
        Cells(22, 3) = arr(1, 6)
        Cells(22, 4) = arr(1, 7)
        Cells(22, 5) = arr(1, 8)
        Cells(22, 6) = arr(1, 9)
        Cells(22, 7) = arr(1, 10)
        Cells(23, 3) = arr(2, 6)
    Next
    conn.Close
    Set conn = Nothing
End Sub

愤怒的胡渣

LMY123 发表于 2018-9-20 16:13
Sub ADO_根据J12单元格_查找指定工作薄()
    NA = Year([J12]) & "年" & Month([J12]) & "月" & Day([J ...

厉害厉害，完美解决。感谢大神！