02.02.02.tiptop：组件篇（4gl 查询：导入excle）

DKLi1717

已于 2024-04-01 08:55:01 修改

阅读量414

点赞数 9

分类专栏：鼎捷tiptop 5.3 文章标签：开发语言

于 2024-02-01 11:57:11 首次发布

本文链接：https://blog.csdn.net/qq_26730689/article/details/135970846

版权

鼎捷tiptop 5.3 专栏收录该内容

56 篇文章 11 订阅

订阅专栏

本文详细描述了一段用于从Excel文件中批量读取并显示特定列数据的VBA函数，通过循环遍历行号，提取多个指定列的内容并展示在屏幕上。

摘要由CSDN通过智能技术生成

本页目录：

1、代码截切

代码截切

# Pattern name...: t600_p()
# Descriptions...: 批量導入excle到單身
FUNCTION t600_p()
   DEFINE xlapp, irow, icol INTEGER
   # 变量：存对应需要的列数组
   DEFINE ls_col01 DYNAMIC ARRAY OF STRING
   DEFINE ls_col03 DYNAMIC ARRAY OF STRING
   DEFINE ls_col04 DYNAMIC ARRAY OF STRING
   DEFINE ls_col07 DYNAMIC ARRAY OF STRING
   DEFINE ls_col11 DYNAMIC ARRAY OF STRING
   DEFINE li,l INTEGER
   DEFINE irow01,irow03,irow04,irow07,irow11 INTEGER

   CALL cl_openexcel() returning xlapp, irow, icol
   IF xlapp = -1 THEN
         CALL cl_err ('' ,'aoo1213' , 1)    
         RETURN 
   END IF
   LET g_success='Y'

    # 12是指excle总列数
    IF icol >= 12 THEN 
      CALL cl_Excel_ReadColumn(xlapp, 1) RETURNING ls_col01,irow01
      CALL cl_Excel_ReadColumn(xlapp, 3) RETURNING ls_col03,irow03
      CALL cl_Excel_ReadColumn(xlapp, 4) RETURNING ls_col04,irow04
      CALL cl_Excel_ReadColumn(xlapp, 7) RETURNING ls_col07,irow07
      CALL cl_Excel_ReadColumn(xlapp, 11) RETURNING ls_col11,irow11
       FOR li = 2 TO irow
        BEGIN WORK
        display ls_col01[li]," ",
                ls_col03[li]," ",
                ls_col04[li]," ",
                ls_col07[li]," ",
                ls_col11[li]

        IF g_success='N' THEN
            ROLLBACK WORK
            EXIT FOR
        ELSE
            COMMIT WORK
        END IFs
       END FOR
       CALL cl_Excel_COMCleanup(xlapp)
    END IF

END FUNCTION