怎么在<em>VB</em>窗体里显示一个EXCEL工作表.然后-vb 插入excel,vb编辑

Set XLAPP = CreateObject("Excel.Application")
Set xlBook = XLAPP.Workbooks.Add
Set xlsheet = xlBook.Worksheets(1) xlsheet.Cells(1, 2) = “项百目说明" XLAPP.Workbooks(1).Saved = True '/FALSE 判断文件是否需要保存度
XLAPP.Workbooks(1).SaveAs strfile
xlBook.Close
Set xlsheet = Nothing
Set xlBook = Nothing
Set XLAPP = Nothing

代码很多，只能给你关键代码了。开动你聪专明的大脑，会属成功的！

在工程的应用中加Microsoft ActiveX Data Object 2.5
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sheet1 As String
Function getdata()
If rs.Fields.Item(0).Value <> "" Then Text1(0).Text = rs.Fields.Item(0).Value
If rs.Fields.Item(1).Value <> "" Then Text1(1).Text = rs.Fields.Item(1).Value
If rs.Fields.Item(2).Value <> "" Then Text1(2).Text = rs.Fields.Item(2).Value
If rs.Fields.Item(3).Value <> "" Then Text1(3).Text = rs.Fields.Item(3).Value
If rs.Fields.Item(4).Value <> "" Then Text1(4).Text = rs.Fields.Item(4).Value
If rs.Fields.Item(5).Value <> "" Then Text1(5).Text = rs.Fields.Item(5).Value
If rs.Fields.Item(6).Value <> "" Then Text1(6).Text = rs.Fields.Item(6).Value
If rs.Fields.Item(7).Value <> "" Then Text1(7).Text = rs.Fields.Item(7).Value
If rs.Fields.Item(8).Value <> "" Then Text1(8).Text = rs.Fields.Item(8).Value
End Function
'上一条按键7a686964616fe4b893e5b19e338
Private Sub Command1_Click()
rs.MovePrevious
If rs.BOF = True Then
MsgBox "记录已经到第一条！"
rs.MoveFirst
End If
getdata
End Sub
下一条按键
Private Sub Command2_Click()
rs.MoveNext
If rs.EOF = True Then
MsgBox "记录已经到最后一条！"
rs.MoveLast
End If
getdata
End Sub
结束按键
Private Sub Command3_Click()
End
End Sub

Private Sub Form_Activate()
cn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;persist security info=false;data source=chengji.xls;extended properties='excel 8.0;hdr=yes'"
cn.Open
rs.Open "select*from[sheet1$]", cn, adOpenKeyset, adLockBatchOptimistic
Dim i As Integer
If Not rs.BOF Then rs.MoveFirst
getdata
Label10.Caption = "共有" & rs.RecordCount & "条记录"
End Sub

每个窗体都可以同样的方法连接到一个表

1.部件-添加e79fa5e98193e4b893e5b19e365-可插入对象--选择excel 表格就可以在窗体添加该表格控件

2.工程-引用-Microsoft Excel 11.0 Object Library
下面给个简单的例子
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object

Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "C:\test.xls"
Set xlBook = xlExcel.Workbooks("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Cells(1, 1).Value
Text1.Text = Text1.Text & "ADD"
xlSheet.Cells(1, 1).Value = Text1.Text
Application.DisplayAlerts = False
xlBook.Close SaveChanges:=True
Application.DisplayAlerts = True
End Sub