Question

如何通过VB操作EXCEL

请问那里可以找到vb操作EXCEL的教程，最好是视频教程，越详细越好。

比如我想用VB建一个小程序放桌面上，通过它提取和修改D:\学生信息.xlsx Sheet1表格中的数据。
表格内容是这样子的：
首行，A1学号，B1姓名C1，D1语文，E1数学，F1物理，G1化学，下面是相对应的内容。

建一个VB工程，
在Text1输入一个学号，按旁边的Command1，
提取对应的内容
姓名显示于Text2内
语文显示于Text3内
数学显示于Text4内
物理显示于Text5内
化学显示于Text6内

当我修改Text2-6的内容后，按Command2，EXCEL内的内容作出相应的修改。

请问如何实现？希望能详细点的将过程告诉我这菜鸟，谢谢！

Answer 1

Private Sub Command1_Click()
If ZID(Text1) = 0 Then
MsgBox "对不起，没找到您输入的ID！"
Else
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\客户资料.xls")
Text2 = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 2)
Text3 = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 3)
'……
End If
On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
Shell "taskkill.exe /im Excel.exe /f", vbHide
End Sub
Function ZID(ID As String) As Integer
Dim I As Integer
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\学生信息.xlsx")
I = 1
Do
If xlApp.Worksheets("Sheet1").Range("A1").Cells(I, 1) = "" Then
ZID = 0
Exit Function
End If
If xlApp.Worksheets("Sheet1").Range("A1").Cells(I, 1) = Form1.Text1 Then
ZID = I
Exit Do
End If
I = I + 1
Loop
On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
End Function
Private Sub Command2_Click()
If ZID(Text1) = 0 Then
MsgBox "对不起，没找到您输入的ID！"
Else
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\学生信息.xlsx")
Val(Text2) = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 2)
Val(Text3) = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 3)
'……
xlBook.Save
End If

On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
Shell "taskkill.exe /im Excel.exe /f", vbHide
End Sub
请参阅我的博客：http://hi.baidu.com/zgmg/blog/item/ab8d2dd1888dbcdf572c84bf.html

Answer 2

Dim i As Integer
Private Sub CommandButton1_Click()
[g1] = Application.Selection
i = 2
Do While Cells(i, 1) <> ""
If Cells(i, 1) = [g1] Then Exit Do
i = i + 1
Loop
[g2] = Cells(i, 2): [g3] = Cells(i, 3): [g4] = Cells(i, 4): [g5] = Cells(i, 5)
End Sub

Private Sub CommandButton2_Click()
'i = 2
'Do While Cells(i, 1) <> ""
' If Cells(i, 1) = [g1] Then Exit Do
' i = i + 1
'Loop
Cells(i, 2) = [g2]: Cells(i, 3) = [g3]: Cells(i, 4) = [g4]: Cells(i, 5) = [g5]
End Sub
1.在Excel中用控件工具建立两个按钮，双击按钮后粘贴上面程序
2.选中需要修改人的姓名-然后点击按钮1，将数据担出到G1:G5，修改后点击按钮2，回传修改后的值

Answer 3

要是只是实现这些功能，不需要用VB。
用EXCEL的记录单功能，就可以。
点数据－－记录单。
条件是用来查询的。
用起来很简单，不用编程。

Answer 4

用VBA吧（宏）