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抓取数据
本文介绍如何利用VBA（Visual Basic for Applications）编程在Excel中创建连接，直接从IBM AS400数据库抓取和处理数据，提升数据处理效率。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
