| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 837 人关注过本帖
标题:vb excel 太难求助
只看楼主 加入收藏
wpshahafo
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-8-25
收藏
 问题点数:0 回复次数:9 
vb excel 太难求助
已有一个excel工资表
姓名 职位 月工资
张三 总工 60000
李四 工程师 5000

想用VB的窗体做一个模版,每次只需要输入姓名,后面就自动显示职位和月工资,再计算月工资总和。最好变成一个可放在桌面上的,双击就打开模版。

谢谢!

搜索更多相关主题的帖子: excel 
2007-08-25 23:46
wpshahafo
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-8-25
收藏
得分:0 
加上可以保存为excel表。
2007-08-25 23:48
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
纯粹让别人替你做,恐怕 没人有那时间哎, GG

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2007-08-26 01:07
guiyangl015
Rank: 1
等 级:新手上路
帖 子:125
专家分:0
注 册:2006-5-21
收藏
得分:0 
是啊!自己先做做,有问题的地方再拿出来讨论!

站的高,才能看的远!!
2007-08-26 10:10
lisypro
Rank: 4
等 级:业余侠客
威 望:3
帖 子:695
专家分:216
注 册:2005-9-25
收藏
得分:0 

给钱让别人做罢


长期承接管理系统
代做各种vb/ / vc小程序
QQ:82341763
手机:13623290828
群号 11619730
2007-08-27 11:53
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

不难.
我们可以将一个excel工作簿看作为一个数据库.每一个工作表.则为一个数据表.
这样我们就可以用ado去连接excel.然后操作相当于操作数据库一样.
Private Sub Form_Load()
Show
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\book1.xls;Extended Properties='Excel 8.0;HDR=Yes'"

Dim con As New ADODB.Connection
con.Open str

Dim rs As New Recordset
rs.Open "select * from [sheet1$]", con, adOpenKeyset, adLockPessimistic, adCmdText

Dim i As Integer
For i = 0 To rs.RecordCount - 1
Print rs.Fields(1)
rs.MoveNext
Next

rs.Close
End Sub

这是示例代码.你可以研究一下.


我的msn: myfend@
2007-08-27 15:33
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
这个应该是 vlookup的吧!查找目标文件就可以了!

2007-08-27 15:50
lisypro
Rank: 4
等 级:业余侠客
威 望:3
帖 子:695
专家分:216
注 册:2005-9-25
收藏
得分:0 

也可以直接用excel对象做呀


长期承接管理系统
代做各种vb/ / vc小程序
QQ:82341763
手机:13623290828
群号 11619730
2007-08-28 09:12
wpshahafo
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-8-25
收藏
得分:0 
回复:(lisypro)给钱让别人做罢
嘿嘿,我正在学呢,就是没有入门。但是.....
不过就是不给钱给别人做,我要别人给钱给我做。
2007-09-01 07:28
wpshahafo
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-8-25
收藏
得分:0 
回复:(心中有剑)这个应该是 vlookup的吧!查找目标文...

是的,在excel里面用vlookup很容易搞定。但我想在vb里面实现,做成一个界面。各位大侠帮我看一看我用下面的代码运行但没有打开excel表,谢谢!

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Label1_Change()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("D:\1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
End Sub

2007-09-01 07:44
快速回复:vb excel 太难求助
数据加载中...
 
   



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

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