如何获取 AS/400 宏以从 Excel 中提取数据

Question

您好，我正在尝试在 AS/400 上创建一个宏，该宏将从 Excel 工作表中提取数据并将数据输入到屏幕上。我知道如何使用录制宏按钮创建一个宏来运行菜单选项，但不确定如何让它访问 excel 文件，以便它通过列表运行。

Answer 1

假设您正在为客户端访问录制 VBScript 宏，则需要使用 ADODB 或类似内容连接到电子表格。 此页面有一个示例。 基本思路：

CreateObject( "ADODB.Connection" )
Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                  myXlsFile & ";Extended Properties=""Excel 12.0;IMEX=1;" & _
                  strHeader & """"
CreateObject( "ADODB.Recordset" )
' do something with Fields(i).Value
MoveNext
Close both objects