'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号
'在你的显示按钮中加入以下代码。
'注："地址"中加入你的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追问
谢谢
右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。
在sheet2的a1输入
=if(sheet1!g1,"车间（1）","车间（2）")
就可以了。
excel VBA 提示“用户定义类型未定义”?
Dim wd As Object Dim tb As Object Set wdapp = CreateObject("word.application") '打开一个word运用环境 wdapp.Visible = True '允许word文件可见 Set wd = wdapp.Documents.Add '新建一个word文档 Set tb = wd.Tables.Add(wd.Range(0, 0), 3, 6)'在文档开始处加入一个3行6列的表...
excel vba 连接数据库,说我用户定义类型未定义
勾选“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”
vb提示用户定义类型未定义
你的VB工程要引用“Microsoft Excel xx.x Object Library”才行。或者不引用，而改成下面这样也行：Dim objXLApp As Object 下面那个objWorkBook也要改为：Dim objWorkBook As Object Set objWorkBook = CreateObject("Excel.WorkBook")
excel:Dim xDoc As DOMDocument处报错“用户定义类型未定义”
1：读取。 1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序： Dim xlApp As Excel.Application '定义EXCEL类 Dim xlBook As Excel.Workbook '定义工件簿类 Dim xlsheet As Excel.Worksheet '定义工作表类...
...运行时显示"用户定义类型未定义",请问我应该怎么做?
首先，确保对象已正确创建。例如，如果你尝试在代码中使用Word对象，你需要在使用前定义并引用它。参考以下示例:vb Sub Test()Dim wdapp As Object Set wdapp = CreateObject("Word.Application")wdapp.Visible = True ' ...其他word操作...End Sub 如果你在代码中引用了Word对象，确保在调用前已经...
在VB中,出现用户定义类型未定义,是为什么?怎么回事啊?
出现用户定义类型未定义 === 这种情况一般是你调试程序里出现的在系统里不能识别对象或者字符串！请仔细检查!
用户定义类型未定义 office excel 2003
这是因为，你的Excel的VBE中没有对Word运用环境进行前期绑定。所以产生“用户类型为定义错误”解决方法：1、打开Visual Basic编辑器；2、选择“工具” - “引用”3、向下滑动滚动条，找到“Microsoft Word 11.0 Object Library”，然后在这个项目前打勾即可解决这个问题。如果你进行了前提绑定，那么后面就...
vb提示用户定义类型未定义
1、需要定义的类型不存在，如：dim a as xx，而xx是没定义的（可能xx写错了）,需要先定义xx类型。2、工具：vb6 3、用户定义类型未定义错误分三类：a)写错了默认变量类型名，如：dim a as intege，改成dim a as integer即可。b)写错了自定义变量类型名，如自定义变量a1，写成了al，改正成a1...
vb用户定义类型未定义什么意思
这是个工具条事件，有没有放工具条了，到部件中去选上Microsoft Windows Common Controls 6.0 (SP6)，其中有个工具条控件。frmShow 是一个同名的类的对象，使用之前要确保已经定义了。
VB菜鸟编登陆程序,调试时一直显示“用户定义类型未定义”
工程——引用——Microsoft Activate Data Object 2.8 Library 把Database1.accdb改为Database1.mdb VB6.0可以编译 但是登陆后会提示错误 Dim 学生成绩管理系统 As New 学生信息管理系统 用户类型未定义
