姓名 职位 月工资
张三 总工 60000
李四 工程师 5000
想用VB的窗体做一个模版,每次只需要输入姓名,后面就自动显示职位和月工资,再计算月工资总和。最好变成一个可放在桌面上的,双击就打开模版。
谢谢!
不难.
我们可以将一个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
这是示例代码.你可以研究一下.
是的,在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