| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2809 人关注过本帖
标题:pb12.5 中如何打开 excel 文件
只看楼主 加入收藏
arman1
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-4-29
收藏
 问题点数:0 回复次数:3 
pb12.5 中如何打开 excel 文件
我想做的功能是有一个表格我要往表格里添加数据,而这个数据是从excel文件中导入的,我用GetFileOpenName函数查找路径然后用importfile函数打开文件,在这个函数的第一个参数给text!参数可以正常打开(这样的话还要把excel文件另存为txt文件比较麻烦,我想直接打开excel文件),可是把它改成xls就不行,不知道打开excel文件是如何实现的,希望高手指点,我是新手。
搜索更多相关主题的帖子: excel 如何 
2014-04-29 15:16
delphi369
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2014-5-7
收藏
得分:0 
只要导入excel文件就可以。
2014-05-07 11:12
pblaogao
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-5-12
收藏
得分:0 
请问哪里能够下载破解的12.5版本
2014-05-12 17:03
xiabinlin
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-3-30
收藏
得分:0 
//execl文件导入

String st_is_path,st_FILENAME
String st_item_no,st_card_name,st_vip_tel,st_mobile,st_type_name,ll_endxfcs
Long ll_xfcs,st_item_num

String ls_title, ls_str
OLEObject xl, xlApp, xlbook, xlsheet

Int ret = 0

//xl.Close()
//xl.DisconnectObject()
//Destroy xl


xl = Create OLEObject
If tab_1.tabpage_4.rb_1.Checked = True Then //盘点数据(有条件) //盘点文件.dbf
    st_is_path = tab_1.tabpage_4.sle_3.Text + "盘点文件.dbf"
ElseIf tab_1.tabpage_4.rb_2.Checked = True Then //盘点数据(无条件) //无条件.dbf
    st_is_path = tab_1.tabpage_4.sle_3.Text + "无条件.dbf"
ElseIf tab_1.tabpage_4.rb_3.Checked = True Then //批号盘点 // 批号库存.dbf
    st_is_path = tab_1.tabpage_4.sle_3.Text + "批号库存.dbf"
ElseIf tab_1.tabpage_4.rb_4.Checked = True Then //订货数量 // 订货文件.dbf
    st_is_path = tab_1.tabpage_4.sle_3.Text + "订货文件.dbf"
ElseIf tab_1.tabpage_4.rb_5.Checked = True Then //验收数量 // 单据文件.dbf
    st_is_path = tab_1.tabpage_4.sle_3.Text + "单据文件.dbf"
End If



ret = xl.ConnectToObject(st_is_path, "Excel.Sheet" ) //打开一个已存在的工作表
If ret < 0 Then
    MessageBox("提示","不能打开所选的文件,可能是已被占用!")
    Destroy xl
    Return
End If


xlApp = xl.Application
xlbook = xlApp.Workbooks[1]
xlsheet = xlbook.Worksheets[1]

Long ll_row,i,ll_rowcount
ll_row = xlsheet.UsedRange.Rows.Count
st_6.Text = '导入数据,等待确认!'

Int li_flag
li_flag = MessageBox("导入数据提示","是否追加数据到数据表中,是-追加,否-导入新的数据,取消-放弃导入?",Question!,YesNoCancel!,1)

Choose Case li_flag
    Case 1 //用户选择Yes,保存数据
        //处理语句
        ll_rowcount = tab_1.tabpage_1.dw_1.RowCount()+1
    Case 2 //用户选择No,不保存
        //删除所有数据包括缓冲区数据
        tab_1.tabpage_1.dw_1.RowsMove(1, tab_1.tabpage_1.dw_1.RowCount(), primary!, tab_1.tabpage_1.dw_1,1, Delete!)
        ll_rowcount = 1
    Case 3 //用户选择了Cancel,不进行任何操作
        //处理语句
        st_6.Text = "导入数据已放弃!"
        MessageBox("导入","导入数据已放弃!")
        xl.Close()
//        xl.DisconnectObject()
        Destroy xl
        Return
End Choose

If ll_row = 0 Then Return
For i = 2 To ll_row
    If tab_1.tabpage_4.rb_3.Checked = True Or tab_1.tabpage_4.rb_5.Checked = True Then //批号盘点 // 批号库存.dbf   or  //验收数量 // 单据文件.dbf
        st_item_no = String(xlsheet.CELLS(i,2).Value)
        st_item_num = Long(xlsheet.CELLS(i,3).Value)
    Else
        st_item_no = String(xlsheet.CELLS(i,1).Value)
        st_item_num = Long(xlsheet.CELLS(i,2).Value)
    End If
   
    tab_1.tabpage_1.dw_1.InsertRow(ll_rowcount)
    tab_1.tabpage_1.dw_1.SetItem(ll_rowcount,"item_no",st_item_no)
    tab_1.tabpage_1.dw_1.SetItem(ll_rowcount,"base_price8",st_item_num)
    ll_rowcount = ll_rowcount+1
Next
xlbook.Saved = True
xl.Close()
//xl.DisconnectObject()
Destroy xl

st_6.Text = "数据导入完成,共:" + String(tab_1.tabpage_1.dw_1.RowCount()) +"条记录!"
MessageBox("导入完成","数据导入完成,共:" + String(tab_1.tabpage_1.dw_1.RowCount()    ) + "条记录!")
2015-01-19 20:08
快速回复:pb12.5 中如何打开 excel 文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021011 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved