帮帮忙，急死了！

[wxf_rj]

这是我用VB和Access编写的程序，用来修改Access中指定位置的数据：
Data1.Recordset.FindFirst "零件号= '" & Text2.Text & "'"
If Not Data1.Recordset.NoMatch Then
Data1.Recordset.Edit
Data1.Recordset.Fields("零件号") = Text7.Text
End If
其中：零件号是我要找的字段名，而Text2.text中的内容为我要新的
我得问题是：
怎么用VB语言执行同样的功能来控制Excel表格？谢谢！

[creazyfish]

这个建议你先去看下有关vba方面的材料。

[longki]

提供一个思路:

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim strFileName As String

'Create the object of excel
Set xlApp = CreateObject("Excel.Application")

'Open the excel file
strFileName = App.Path & "\Demo_5.xls"
Set xlBook = xlApp.Workbooks.Open(strFileName)
xlBook.Application.Visible = True
Set xlSheet = xlBook.Worksheets(1)

'add the content to excel
xlSheet.Cells(1, 1).Value="data"
.........................

[haohaohappy]

帮忙，你可以控制完后传回EXCEL表中

[jiang130]

用 VBA