Excel的数据导入到PB的DW中
来源:互联网 发布:f35战机编程语言 编辑:程序博客网 时间:2024/05/16 15:57
详细在我的资源中,欢迎下载。
http://download.csdn.net/user/happyflystone- //====================================================================
- // Event:cb_1::clicked()
- //--------------------------------------------------------------------
- // Description:两种方法进行
- //1、通过数组一行一行读入(定义数据有点麻烦)
- //2、通过剪贴板直接
- //网友自行选择用哪种方法
- //--------------------------------------------------------------------
- // Arguments:(None)
- //--------------------------------------------------------------------
- // Returns:
- //--------------------------------------------------------------------
- // Author: FlyStone Date: 2008-09-13 17:31:44 Sep
- //--------------------------------------------------------------------
- // Modify History:
- //
- //--------------------------------------------------------------------
- // Copyright (C) 2007-008 Flystone Co.,Ltd! All rights reserved.
- //====================================================================
- String ls_path,ls_name
- ls_path = "C:/Documents and Settings/Administrator.FLYSTONE/桌面/新建文件夹 (3)/test.xls"
- dw_1.Reset() //clean DW
- String a[1000,1000]
- Integer i,j,li_ret
- li_ret = GetFileopenName('选择XLS',ls_path,ls_name,"XLS","EXCEL (*.XLS),*.XLS")
- if li_ret <> 1 then return
- OLEObject ExcelServer
- Int li_ConnectErr
- ExcelServer = Create OLEObject
- li_ConnectErr = ExcelServer.ConnectToNewObject( "excel.application" )
- If li_ConnectErr < 0 Then
- Choose Case li_ConnectErr
- Case -1
- MessageBox('错误提示','无效的调用')
- Case -2
- MessageBox('错误提示','类名没发现')
- Case -3
- MessageBox('错误提示','对象不能创建')
- Case -4
- MessageBox('错误提示','文件不能连接')
- Case -5
- MessageBox('错误提示','不能连接现在的对象')
- Case -6
- MessageBox('错误提示','文件无效')
- Case -7
- MessageBox("错误提示","文件不存在或已经打开")
- Case -8
- MessageBox("错误提示","服务器不能装载选择的文件")
- Case -9
- MessageBox("错误提示","其他错误")
- End Choose
- Return
- End If
- ExcelServer.Workbooks.Open(ls_path,0,False)
- //对XLS文件进行了改动以后,在关闭该文件时是否需要向用户提出警告。
- ExcelServer.Application.DisplayAlerts = False
- //选择sheets表
- //ExcelServer.activeworkbook.worksheets("sheet2").Select()
- //方法一:
- Int li_rows,li_columns
- li_rows = ExcelServer.ActiveSheet.UsedRange.Rows.Count //取得总行数
- li_columns= ExcelServer.ActiveSheet.UsedRange.columns.Count //取得总行数
- // # of columns in excel
- sle_2.Text = TRIM(STRING(li_rows))
- // # of rows in excel
- sle_1.Text = STRING(li_columns)
- //lole_sheet = ole_1.Application.ActiveWorkbook.WorkSheets[1] //得到第当前work的第一个sheet
- for i = 1 to li_rows
- dw_1.insertrow(0)
- for j = 1 to li_columns
- a[i,j] = string(ExcelServer.ActiveSheet.Cells(i,j).value)
- dw_1.Setitem(i,j,a[i,j])
- end for
- end for
- //方法二,利用剪贴板
- ExcelServer.ActiveSheet.cells.Copy
- dw_1.ImportClipboard(2) //导入数据需要标题
- ExcelServer.Application.activeworkbook.Close(False)
- ExcelServer.Application.quit()
- ExcelServer.DisconnectObject()
- Excel的数据导入到PB的DW中
- Excel的数据导入到PB的DW中
- 如何用PB把excel的数据导入dw
- PB从EXCEL中导入数据到数据窗口的程序(1)
- PB从EXCEL中导入数据到数据窗口的程序(2)
- PB从EXCEL中导入数据到数据窗口的程序(1)
- PB从EXCEL中导入数据到数据窗口的程序(2)
- PB中DW的应用
- PB中DW的应用
- PB中 把DW导出到Excel,与Excel通讯
- PB中 把DW导出到Excel,与Excel通讯
- datalist的数据导入到Excel中
- [pb]从excel导入数据到datawindow
- PB导入EXCEL到数据窗口
- pb 如何从excel中导入数据
- pb 导入EXCEL数据
- pb中excel文件导入dw中源代码(学习备查)
- PB中数据窗口导出数据到EXCEL的程序(1)
- convert a string to XmlElement
- 阅读我们的学科——1-广泛了解
- 通用数据权限管理系统设计
- 卫生部提醒立即停用三鹿奶粉 有关部门展开调查
- 【转载】VC.net 实现dll 编程
- Excel的数据导入到PB的DW中
- java与C++的区别
- linux设备模型详解
- asp.net程序性能优化
- 学习dotnet第四课关于绘图的自己做的实例源代码,存在这儿,方便复习.
- xp + ubuntu双系统,网卡Atheros L2 Fast Ethernet 10/100 Base-T 不能上网的原因【原创】
- 大学毕业后再看会后悔一辈子
- Flex的动画效果与变换!(二)
- 集成