vb读取excel内容

2013-11-14 12:41:00 269 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb6.0 excel连接的创建，内容的读取一连接的创建： Public Sub OpenXLSConn(strFile As String) Const ProcName = "OpenXLSConn" On Error GoTo ErrHandler Dim strConn As String 1 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data S 阅读详情

vb读取excel内容。我想获取的是这样的。在excel表格中搜索B列内容为“32KP”对应的E列的内容比如B17为“32KP”则读取E17的内容到text1中。
我是这样读取表格的
Dim ExcelApp, oBook, a, c
Set ExcelApp = CreateObject("Excel.Application")
Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", missing, True)
a = Text6 '表格名
Set xlsheet = oBook.Sheets(a)

...全文

零成本实现飞牛 OS 内网穿透：CloudFlare 隧道搭建全攻略一、引言：突破内网限制的最优解当你的内网环境中部署了飞牛 OS 系统（无论是老旧电脑还是 NAS 设备），想要实现公网访问时，传统方案往往面临两大痛点：公网 IP 申请困难且成本高DDNS 动态解析配置复杂专业内网穿透工具存在付费门槛今天为大家带来零成本解决方案：通过免费域名搭配 CloudFlare 隧道技术，无需公网 IP 即可轻松实现飞牛 OS 服务的公网访问。全程操作可视化，新手也能快速上手！二、前期准备：必备工具清单（1）域名准备。阅读详情

chs048127

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

dxy2798 2013-11-27

打赏
举报

我觉得用ExcelApp不是很好，尤其是数据量大的情况下，我现在都用sql连接excel，速度比较快，楼主的要求写在sql语句的条件里也好实现，关键是不用循环。

舉杯邀明月 2013-11-15

打赏
举报

哦，我没在VB6中测试。难道在VB6代码中，不能使用VBA对象的全部属性啊。那就换一种方法吧。但这样有一个要求：有效数据区域内，被识别的列不能有空单元格（比如你这儿，就是Ｂ列）。

'Dim ExcelApp, oBook, a, c
Dim ExcelApp As Object  ' As Excel.Application
Dim oBook   As Object   ' As Workbook
Dim xlsheet As Object   ' As Worksheet
Dim a As String, c As String
'Dim i As Long, v As Long
Dim i As Long

Set ExcelApp = CreateObject("Excel.Application")
'Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", missing, True)
Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", False, True)
a = Text6 '表格名
Set xlsheet = oBook.Sheets(a)
'v = xlsheet.Range("B:B").Rows.Count
'For i = 1 To xlsheet.Range("B:B").Rows(v).End(xlUp).Row
'    If (xlsheet.Cells(i, 2).Text = "32KP") Then
'        Text1.Text = xlsheet.Cells(i, 5).Text
'        Exit For
'    End If
'Next
i = 2       ' 数据从第2行开始
Do
   c = xlsheet.Cells(i, 2).Text
   If (Len(c) = 0) Then Exit Do
   If (c = "32KP") Then
       Text1.Text = xlsheet.Cells(i, 5).Text
       Exit Do
   End If
   i = i + 1      ' 指向下一行
Loop

chs048127 2013-11-14

打赏
举报

For i = 1 To xlsheet.Range("B:B").Rows(v).End(xlUp).Row 提示实时错误“1004”应用程序定义或对象定义错误

舉杯邀明月 2013-11-14

打赏
举报

'Dim ExcelApp, oBook, a, c
Dim ExcelApp As Object  ' As Excel.Application
Dim oBook   As Object   ' As Workbook
Dim xlsheet As Object   ' As Worksheet
Dim a As String, c As String
Dim i As Long, v As Long

Set ExcelApp = CreateObject("Excel.Application")
'Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", missing, True)
Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", False, True)
a = Text6 '表格名
Set xlsheet = oBook.Sheets(a)
v = xlsheet.Range("B:B").Rows.Count
For i = 1 To xlsheet.Range("B:B").Rows(v).End(xlUp).Row
    If (xlsheet.Cells(i, 2).Text = "32KP") Then
        Text1.Text = xlsheet.Cells(i, 5).Text
        Exit For
    End If
Next

vb读取excel内容

相关推荐