求助关于不打开工作簿获取其他工作簿数据

风过天涯

附件已上传，附件中的工作簿都是以共有的文件名_年月日时分秒命名的，有没有什么办法不打开工作簿获取其他工作簿数据，始终获取文件名中日期最新的那一份工作簿中sheet1的信息，有没有什么办法，拜谢各位大佬

无敌小猪猪

如果格式准确不变的话，可以先判断最新的工作簿的名称来获取指定文件名+路径，然后用SQL获取最新工作簿里的指定信息

无敌小猪猪

你这个文件名称只要取后面数字最大的应该就是最新的那个工作簿了

风过天涯

无敌小猪猪 发表于 2023-3-22 16:19
你这个文件名称只要取后面数字最大的应该就是最新的那个工作簿了

这个我知道，但是我不知道怎么去实现

ykcbf1100

附件请参考。。。

fzxba

附件.rar (40.75 KB, 下载次数: 17)

2023-3-22 16:32 上传

点击文件名下载附件

风过天涯

fzxba 发表于 2023-3-22 16:32

好像有点问题，提示的日期，不是想要的日期

fzxba

风过天涯 发表于 2023-3-22 16:49
好像有点问题，提示的日期，不是想要的日期

我是以最新创建日期，改也简单……
若改，此楼补充

风过天涯

fzxba 发表于 2023-3-22 16:52
我是以最新创建日期，改也简单……
若改，此楼补充

不用了，挺好的，谢谢

约定的童话

您可以使用ADO连接方式，在VBA中通过SQL语句获取其他工作簿的数据，而无需打开工作簿。以下是一个简单的示例：

Sub ReadDataFromOtherWorkbook()

    '定义变量
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim connStr As String
    Dim filePath As String
    Dim sheetName As String
   
    '设置变量值
    filePath = "C:\Users\UserName\Documents\OtherWorkbook.xlsx" '请替换为您自己的文件路径
    sheetName = "Sheet1" '请替换为您要读取数据的工作表名称
   
    '设置连接字符串
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & _
              ";Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'"
              
    '打开连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connStr
   
    '设置SQL语句
    sql = "SELECT * FROM [" & sheetName & "$]"
   
    '执行SQL语句
    Set rs = conn.Execute(sql)
   
    '将数据复制到当前工作簿中
    Range("A1").CopyFromRecordset rs
   
    '关闭连接
    rs.Close
    conn.Close
   
    '释放对象
    Set rs = Nothing
    Set conn = Nothing

End Subvb
Sub ReadDataFromOtherWorkbook()

    '定义变量
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim connStr As String
    Dim filePath As String
    Dim sheetName As String
   
    '设置变量值
    filePath = "C:\Users\UserName\Documents\OtherWorkbook.xlsx" '请替换为您自己的文件路径
    sheetName = "Sheet1" '请替换为您要读取数据的工作表名称
   
    '设置连接字符串
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & _
              ";Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'"
              
    '打开连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connStr
   
    '设置SQL语句
    sql = "SELECT * FROM [" & sheetName & "$]"
   
    '执行SQL语句
    Set rs = conn.Execute(sql)
   
    '将数据复制到当前工作簿中
    Range("A1").CopyFromRecordset rs
   
    '关闭连接
    rs.Close
    conn.Close
   
    '释放对象
    Set rs = Nothing
    Set conn = Nothing

End Sub
在此示例中，首先通过ADO连接字符串打开其他工作簿，然后使用SQL查询语句获取工作表中的数据。将数据复制到当前工作簿后，使用Close方法关闭连接，并使用Nothing关键字释放对象的内存空间。

需要注意的是，为了使用ADO连接方式，您需要安装Microsoft Access数据库引擎。此外，有关连接字符串的详细信息和语法，可以参考Microsoft官方文档。