vb中如何加载excel控件,我弄了excel.application说我用户定义类型未定义。

 我来答
护肤达人IT宅族
推荐于2017-12-16 · 知道合伙人互联网行家
护肤达人IT宅族
知道合伙人互联网行家
采纳数:5637 获赞数:17441
毕业于曲阜师范大学,学士学位。互联网行业2年从业经验,读过SEO相关书籍。现任爱家网SEO优化专员。

向TA提问 私信TA
展开全部
'要在VB中操作Excel,需要引用Excel对象模型
'方法,在菜单里选择[工程] -- [引用],在窗口里勾选 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
追问
谢谢
匡宁赏雨
2020-02-11 · TA获得超过3.6万个赞
知道大有可为答主
回答量:1.2万
采纳率:26%
帮助的人:1043万
展开全部
如果你插入的是窗体控件,很简单的。(activex控件比较麻烦,得用vba代码)
右键点车间(1)控件,设置格式,最后一个标签“控制”,单元格链接处点到比如sheet1的g1,确定。
在sheet2的a1输入
=if(sheet1!g1,"车间(1)","车间(2)")
就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式