lzth.net
当前位置:首页 >> 怎么能把ExCEl中某个单元格里的数据读入VB的tExtBox中 >>

怎么能把ExCEl中某个单元格里的数据读入VB的tExtBox中

Dim a As Integer Dim xlApp As Excel.application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Private Sub Form_Load() Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(...

Private Sub Command1_Click() Dim A As Integer Dim scxls As New excel.Application Dim scbook As excel.Workbook Dim scsheet As excel.Worksheet Set scxls = CreateObject("excel.application") '创建EXCEL对象 scxls.DisplayAlerts = Fal...

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Private Sub excelOpen(ExcelName As String) Set xlApp = CreateObject("Excel.Application") 'xlApp.Visible = True Set xlBook = xlApp.Workbo...

textbox1.text=activesheet.activecell.value

通过录制宏,发现,将控件Placement 属性设置为 xlFreeFloating即可 With Selection .Placement = xlFreeFloating End With

Private Sub Command1_Click() Set objexcel = CreateObject("Excel.application") objexcel.DisplayAlerts = False Set objworkBook = objexcel.Workbooks.Open("d:\book1.xls") objexcel.activecell.Value = text1 '保存到当前单元格 'objwork...

给你一个例子 添加一个按钮; '首先通过VB的菜单[工程] -- [引用],勾选:Microsoft Excel 11.0 Object Library '其中11.0是不一定的,要看你计算机安装的OFFICE版本而定 Private Sub Command1_Click() Dim xlsApp As Excel.Application '声明Ex...

我只有VB 2005,但是道理一样的! 首先通过菜单[项目] -- [添加引用],选择[COM]选项卡,选择“Microsoft Excel XX.0 Object Library”,[确定]。 其中:XX.0 ,视你安装的Office版本而定。 我给你弄了个比较详细例子:你自己根据需要,修改吧! P...

可对Ole控件关联对象的Excel表格的单元格的Value 属性赋值来写入VB已读到的数据。 Value 属性,返回或设置一个Variant型数,它指定该属性之值,此属性可读/写。 以下是实现代码: Option Explicit Dim oBok As Object '定义oBok为Object 数据类...

先确定好行数和列数的范围,再用随机函数产生行数和列数,最后用赋值语句直接读取单元格的值就可以了。

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com