flystone的专栏

心若无尘，一花一世界，一鸟一天堂

原创 Excel的数据导入到PB的DW中收藏

新一篇: [学习SQL SERVER 2005系列]图解SQL SERVER2005的安装 | 旧一篇: Log explorer 对drop/truncate table的数据恢复
详细在我的资源中，欢迎下载。
http://download.csdn.net/user/happyflystone
 
  1. //====================================================================
  2. // Event:cb_1::clicked()
  3. //--------------------------------------------------------------------
  4. // Description:两种方法进行
  5. //1、通过数组一行一行读入(定义数据有点麻烦)
  6. //2、通过剪贴板直接
  7. //网友自行选择用哪种方法
  8. //--------------------------------------------------------------------
  9. // Arguments:(None)
  10. //--------------------------------------------------------------------
  11. // Returns:
  12. //--------------------------------------------------------------------
  13. // Author:  FlyStone        Date: 2008-09-13 17:31:44 Sep
  14. //--------------------------------------------------------------------
  15. // Modify History:
  16. //  
  17. //--------------------------------------------------------------------
  18. // Copyright (C) 2007-008 Flystone Co.,Ltd! All rights reserved.
  19. //====================================================================
  21. String ls_path,ls_name
  22. ls_path = "C:\Documents and Settings\Administrator.FLYSTONE\桌面\新建文件夹 (3)\test.xls"
  23. dw_1.Reset() //clean DW
  25. String a[1000,1000]
  26. Integer i,j,li_ret
  29. li_ret = GetFileopenName('选择XLS',ls_path,ls_name,"XLS","EXCEL (*.XLS),*.XLS")
  30. if li_ret <> 1 then return
  34. OLEObject ExcelServer
  35. Int li_ConnectErr
  37. ExcelServer = Create OLEObject
  38. li_ConnectErr = ExcelServer.ConnectToNewObject( "excel.application" )
  39. If li_ConnectErr < 0 Then
  40.     Choose Case li_ConnectErr
  41.         Case -1
  42.             MessageBox('错误提示','无效的调用')
  43.         Case -2
  44.             MessageBox('错误提示','类名没发现')
  45.         Case -3
  46.             MessageBox('错误提示','对象不能创建')
  47.         Case -4
  48.             MessageBox('错误提示','文件不能连接')
  49.         Case -5
  50.             MessageBox('错误提示','不能连接现在的对象')
  51.         Case -6
  52.             MessageBox('错误提示','文件无效')
  53.         Case -7
  54.             MessageBox("错误提示","文件不存在或已经打开")
  55.         Case -8
  56.             MessageBox("错误提示","服务器不能装载选择的文件")
  57.         Case -9
  58.             MessageBox("错误提示","其他错误")
  59.     End Choose
  60.     Return
  61. End If
  64. ExcelServer.Workbooks.Open(ls_path,0,False)
  65. //对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。
  66. ExcelServer.Application.DisplayAlerts = False
  67. //选择sheets表
  68. //ExcelServer.activeworkbook.worksheets("sheet2").Select() 
  69. //方法一：
  70. Int li_rows,li_columns
  71. li_rows = ExcelServer.ActiveSheet.UsedRange.Rows.Count //取得总行数
  72. li_columns= ExcelServer.ActiveSheet.UsedRange.columns.Count //取得总行数
  74. // # of columns in excel
  75. sle_2.Text = TRIM(STRING(li_rows))
  76. // # of rows in excel
  77. sle_1.Text = STRING(li_columns)
  78. //lole_sheet = ole_1.Application.ActiveWorkbook.WorkSheets[1] //得到第当前work的第一个sheet
  80. for i = 1 to li_rows
  81.      dw_1.insertrow(0)
  82.      for j = 1 to li_columns
  83.           a[i,j] = string(ExcelServer.ActiveSheet.Cells(i,j).value)
  84.           dw_1.Setitem(i,j,a[i,j])
  85.      end for
  86. end for
  89. //方法二，利用剪贴板
  90. ExcelServer.ActiveSheet.cells.Copy
  91. dw_1.ImportClipboard(2) //导入数据需要标题   
  93. ExcelServer.Application.activeworkbook.Close(False)
  94. ExcelServer.Application.quit()
  95. ExcelServer.DisconnectObject()

 

发表于 @ 2008年09月13日 18:17:00|评论(loading...)|收藏

新一篇: [学习SQL SERVER 2005系列]图解SQL SERVER2005的安装 | 旧一篇: Log explorer 对drop/truncate table的数据恢复

评论：没有评论。
发表评论  


登录
Csdn Blog version 3.1a
Copyright © 无枪狙击手