<em>vb</em>中如何加载<em>excel</em>控件，我弄了

要先安装office主互操作程序集（PIA）
然后添加引用 Microsoft.Office.Interop.Excel

'要在VB中操作Excel，需要引用Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号

'在你的显示按钮中加7a64e59b9ee7ad94339入以下代码。
'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要带双引号
'Sheet1也可以改为你的工作表的名字，要带双引号
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Dim CarWeight
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
'设置Excel为不可见
excel_App.Visible = False
'打开文件
Set excel_Book = excel_App.Workbooks.Open("地址") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例

'这里需要先将你的车号存入valuesearch变量才能搜索
'如 valuesearch = Form1.TextBox1.text

'进行搜索，存入carweight变量
CarWeight = Application.WorksheetFunction.VLookup(valuesearch, Range("C:C"), 2, False)

'然后将CarWeight赋值给你的皮重文本框
'如Form1.TextBox2.Text = CarWeight
'''''''''''''''''''''''''''''''''''
'关闭Excel文件
Set excel_sheet = Nothing
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing
如果你已经正确引用的excel,那么你可以试试以下代码：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim excelapp As Excel.Application = New Excel.Application
excelapp.Workbooks.Open("c:\wxw-yp-cy.xls")
excelapp.Visible = True
在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" 'excel文件名
SheetName = "sheet1" '表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
'例:
xlSheet.Cells(5, 2) = Text1.Text '给单元格B5赋值
Text2.Text =xlSheet.Cells(2, 3) ‘取C2的值

xlBook.Close (True) '关闭工7a686964616fe59b9ee7ad94337作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

如果你已抄经正确引用袭的excel,那么你可以试试以下代zhidao码：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim excelapp As Excel.Application = New Excel.Application
excelapp.Workbooks.Open("c:\wxw-yp-cy.xls")
excelapp.Visible = True

End Sub