| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 322 人关注过本帖
标题:请教高手如何将数据库的字段导出到同EXCEL的不同工作表
只看楼主 加入收藏
smart921
Rank: 1
等 级:新手上路
帖 子:104
专家分:9
注 册:2010-8-8
结帖率:88.64%
收藏
已结贴  问题点数:20 回复次数:10 
请教高手如何将数据库的字段导出到同EXCEL的不同工作表
比如:将基本信息导出到sheet1中,将教育信息导出到sheet2中,将薪酬信息导出到sheet3中。
搜索更多相关主题的帖子: EXCEL 不同 导出 信息 工作表 
2020-10-15 23:33
厨师王德榜
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:106
帖 子:620
专家分:2574
注 册:2013-2-16
收藏
得分:5 
    只能大概给出一个示例:
    myexcel = CREATEOBJECT("Excel.Application")
    myexcel.DisplayAlerts = .F.  &&  不弹出警告框   
    wb = myexcel.Workbooks.open("d:\cExl\X1.xlsx")
    myexcel.Visible = .T.  
    wb.sheets("sheet1").Activate
    ... 写入 基本信息
    wb.sheets("sheet2").Activate
    ... 写入 教育信息
    wb.sheets("sheet3").Activate
    ... 写入 薪酬信息
    wb.save()
    wb.close()
    myexcel.quit()
2020-10-16 10:16
schtg
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:44
帖 子:936
专家分:1408
注 册:2012-2-29
收藏
得分:0 
学习啦,谢谢!

[此贴子已经被作者于2020-10-17 05:33编辑过]

2020-10-16 18:24
smart921
Rank: 1
等 级:新手上路
帖 子:104
专家分:9
注 册:2010-8-8
收藏
得分:0 
回复 3楼 schtg
谢谢!我的意思是按每门课程建个工作表,不知怎么处理?
2020-10-16 21:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:230
帖 子:8258
专家分:21156
注 册:2012-2-5
收藏
得分:0 
上传相应数据

坚守VFP最后的阵地
2020-10-16 22:48
smart921
Rank: 1
等 级:新手上路
帖 子:104
专家分:9
注 册:2010-8-8
收藏
得分:0 
回复 5楼 sdta
将数据库aaa数据导出,生成aaa.xls.
附件: 游客没有浏览附件的权限,请 登录注册
2020-10-17 07:51
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:230
帖 子:8258
专家分:21156
注 册:2012-2-5
收藏
得分:15 
CLOSE DATABASES
USE aaa
nRows = RECCOUNT() + 1
_vfp.DataToClip("aaa", RECCOUNT(), 3)
oExcel = CREATEOBJECT("Excel.Application")
oExcel.WorkBooks.Add
oExcel.Workbooks(1).Sheets(1).Paste
oExcel.Workbooks(1).Sheets(1).Name = "基本信息"
oExcel.Workbooks(1).Sheets(2).Name = "教育信息"
oExcel.Workbooks(1).Sheets(3).Name = "薪酬信息"
oExcel.Workbooks(1).Sheets(1).Cells(1, 8).Resize(nRows, 3).Select()
oExcel.Selection.Copy
oExcel.Workbooks(1).Sheets(2).Paste
oExcel.Workbooks(1).Sheets(1).Cells(1, 11).Resize(nRows, 2).Select()
oExcel.Selection.Copy
oExcel.Workbooks(1).Sheets(3).Paste
oExcel.Workbooks(1).Sheets(1).Cells(1, 8).Resize(nRows, 5).Delete
oExcel.Workbooks(1).Sheets(1).Cells(1, 1).Resize(nRows, 7).Select()
oExcel.Workbooks(1).Sheets(1).Columns.AutoFit
oExcel.DisplayAlerts = .F.
oExcel.ActiveWorkbook.Saveas(SYS(5)+SYS(2003)+"\bbb.xls",39)
oExcel.DisplayAlerts = .T.
oExcel.Quit
RELEASE oExcel

坚守VFP最后的阵地
2020-10-17 10:02
smart921
Rank: 1
等 级:新手上路
帖 子:104
专家分:9
注 册:2010-8-8
收藏
得分:0 
十分感谢!
2020-10-17 13:46
变秃且变强
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-7-22
收藏
得分:0 
2020-10-19 20:06
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:1833
专家分:3270
注 册:2007-4-27
收藏
得分:0 
这个内容,以前有一个实例的帖子的,楼主你查找一下,应该能查到,大约是3年前的吧

只求每天有一丁点儿的进步就可以了
2020-10-21 16:45
快速回复:请教高手如何将数据库的字段导出到同EXCEL的不同工作表
数据加载中...
 
   



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

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