Sub LoadDataFromAS400()
Application.ScreenUpdating = False
Set Db = New Connection
Db.CursorLocation = adUseClient
If Db.State = 1 Then Db.Close
Db.Open "Provider =IBMDASQL.DataSource.1" & _
";Catalog Library List=JDETSTDTA" &
EXCEL连接IBM AS400抓取数据
最新推荐文章于 2022-08-21 16:03:55 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)