[已解决]有人会做这种效果吗?

execlhu

各位有人知道这种效果怎么做的吗?用sql或者vba,有没有操作步骤,求指教

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-5-30 14:21

execlhu 发表于 2021-5-30 09:58
这是附件

以下代碼，再注意一下簡繁的部份
我這邊是繁體環境，您到時再改成簡體喔！

Sub demo()
   Set conn = CreateObject("adodb.connection")
   Set rs = CreateObject("adodb.recordset")
   ds = ThisWorkbook.Path & "\數據源.xlsx"
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ds
   sql = "select * from [中西藥$]"
   rs.Open sql, conn, 3, 3
   If rs.RecordCount <> 0 Then
      [a2:e1000].ClearContents
      [a2].CopyFromRecordset rs
   End If
   rs.Close
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

execlhu

这个是跨表的

cutecpu

您好，可以上傳附件喔！

execlhu

cutecpu 发表于 2021-5-29 23:28
您好，可以上傳附件喔！

好的

execlhu

cutecpu 发表于 2021-5-29 23:28
您好，可以上傳附件喔！

这是附件

cutecpu

execlhu 发表于 2021-5-30 09:58
这是附件

以下代碼，再注意一下簡繁的部份
我這邊是繁體環境，您到時再改成簡體喔！

Sub demo()
   Set conn = CreateObject("adodb.connection")
   Set rs = CreateObject("adodb.recordset")
   ds = ThisWorkbook.Path & "\數據源.xlsx"
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ds
   sql = "select * from [中西藥$]"
   rs.Open sql, conn, 3, 3
   If rs.RecordCount <> 0 Then
      [a2:e1000].ClearContents
      [a2].CopyFromRecordset rs
   End If
   rs.Close
End Sub


祝順心，南無阿彌陀佛！

execlhu

cutecpu 发表于 2021-5-30 14:21
以下代碼，再注意一下簡繁的部份
我這邊是繁體環境，您到時再改成簡體喔！

好的

execlhu

cutecpu 发表于 2021-5-30 14:21
以下代碼，再注意一下簡繁的部份
我這邊是繁體環境，您到時再改成簡體喔！

大神我想补充一下,那个数据源的名字能按照一定的格式动态获取吗?
比如6-1日获取6-1号的数据源,到了6月2号就获取2号的数据源

cutecpu

execlhu 发表于 2021-6-1 22:19
大神我想补充一下,那个数据源的名字能按照一定的格式动态获取吗?
比如6-1日获取6-1号的数据源,到了6月2 ...

可以喔，要看您確定的命名規則是什麼喔！

execlhu

cutecpu 发表于 2021-6-1 23:03
可以喔，要看您確定的命名規則是什麼喔！

命名规则就是一个时期加组别,那要怎么设置啊!