关于EXECL 上传数据到400

最近有不少人在问EXECL 传数据到 400 怎么做,现就我自己常用的两种方法进行描述,希望对大家有帮助:

一、CA 上传：（如附件 1 和 附件 2）
  1、将EXECL 保存成  .csv 格式 
  2、然后在 CA 菜单中选择（ 将文件发送到主机）
  3、按画面提示一步步操作
**以上截图 如附件

二、VBA上传 （如附件 3）
  1、本例做一个 EXECL 两列（A/B）数据上传的
  2、首先要有安装CA（5。5可以，其他版本没试过），配置一个数据原（如：AS400）
  3、打开EXECL ---工具--宏---vissual basic 编辑器
  4、编写VBA 代码 

  简单如下：
  Private Sub CommandButton1_Click()

   '选择上传事件,这里通过 单击"数据上传" 按钮才将数据上传 如图

   Set OCONN = CreateObject("ADODB.Connection")
    Set ORS = CreateObject("ADODB.Recordset")

    OCONN.Open "DSN=AS400", "USER", "PASS"
    ' 其中 DSN为 ODBC里配置的
       
   Dim str1 As Double
    Dim str2 As Double
    Dim i As Double
   
    For i = 1 To 1000
    
  '因上传数据少于1000,这里省略判断 记录数
  '直接赋 给一个 循环 次数的 数值

    str1 = Range("=Sheet1!A" & i)
     str2 = Range("=Sheet1!B" & i)
     
   '将EXECL 中 A\B 列的值赋予变量  str1 str2
   
     sqlstr = "insert into pf.PFNAME values(" & str1 & "," & str2 & ")"
     
    '将值插入 指定的 400 --PF
    
     ORS.Open sqlstr, OCONN
     
    '执行上传语句
   Next
    
   ' MsgBox ("上传完成，共" & count & " 条")
   'count 需在前面定义,并实际统计,这里不做该统计,有需求可以自己设置
End Sub

[ 本帖最后由 caomangyu 于 2007-5-25 17:01 编辑 ]

附件1.rar

附件2.rar

附件3.rar

---

 Ginger 回复于：2007-05-25 17:12:30

如何将Excel中的数据填入AS400应用程序中？如在ERP系统的盘点输入时，启动输入程序，会有以下字段：

Tag           Part Number         Location          Quantity

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	数据 上传 关于 附件 EXECL CA 输入 这里 AS400 如何