帮帮忙,急死了!

wxf_rj 2004-10-28 10:20:55
这是我用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表格?谢谢!
...全文
88 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
jiang130 2004-11-03
用 VBA
回复
haohaohappy 2004-11-03
帮忙,你可以控制完后传回EXCEL表中
回复
longki 2004-11-03
提供一个思路:

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"
.........................
回复
creazyfish 2004-11-03
这个建议你先去看下有关vba方面的材料。
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告