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抓取数据
最新推荐文章于 2024-11-22 22:45:04 发布