我是这样读取表格的
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)
-
等级
本版专家分：0结帖率 85.71% -
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)展开阅读全文
-
等级
本版专家分：60187勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
'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
-
等级
本版专家分：0
-
For i = 1 To xlsheet.Range("B:B").Rows(v).End(xlUp).Row
提示实时错误“1004”应用程序定义或对象定义错误
-
等级
本版专家分：60187勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
哦，我没在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
-
等级
本版专家分：37 -
我觉得用ExcelApp不是很好，尤其是数据量大的情况下，我现在都用sql连接excel，速度比较快，楼主的要求写在sql语句的条件里也好实现，关键是不用循环。
- MFC 画坐标系以及画灰度图像的直方图
1.创建一个对话框类CHistogramdlg，并在类定义一个指向int指针（Imagedata），用于传入统计好的灰度分布数据，一般存储在256的数组中。2.重载对话框类的OnPaint，并添加代码如下：void CHistogramdlg::OnPaint(){ ...
- MFC对话框绘制灰度直方图
本文主要讲述基于VC++6.0 MFC图像处理的应用知识，主要结合自己大三所学课程《数字图像处理》及课件进行回忆讲解，主要通过MFC单文档视图实现点击弹出对话框绘制BMP图片的灰度直方图，再获取平均灰度、中指灰度和...
- MFC的文件打开与读取显示
CString str; CFile file; CFileDialog dlg(TRUE,NULL,NULL, OFN_PATHMUSTEXIST|OFN_FILEMUSTEXIST, ...//第一个参数为TRUE就是打开文件，为FALSE就是保存文件 //第四个参数就是打开的路径和文件必须存在 ...
- （一）MFC读取并显示一幅位图图像，并获取鼠标点击位置的像素坐标和灰度值（接上篇博客）
上篇博客简要介绍了如何利用MFC读取并显示一幅位图图像，并获取鼠标点击位置的像素坐标和灰度值信息，主要包含了对话框的创建和添加程序，代码也在上一页中给了大家，但是并没有详细说明功能，所以在这一节当中主要...
- 【数字图像处理】四.MFC对话框绘制灰度直方图
本文主要讲述基于VC++6.0 MFC图像处理的应用知识，主要结合自己大三所学课程《数字图像处理》及课件进行回忆讲解，主要通过MFC单文档视图实现点击弹出对话框绘制BMP图片的灰度直方图，再获取平均灰度、中指灰度和...
- [Python图像处理] 十一.灰度直方图概念及OpenCV绘制直方图
本篇文章主要讲解灰度直方图的基本概念，Python调用OpenCV实现绘制图像直方图，基础性知识希望对您有所帮助。 1.灰度直方图基本概率 2.绘制直方图 3.使用OpenCV统计绘制直方图
- VC 6.0 MFC 读取并显示图片和彩色转灰度
关于MFC读取BMP图片，相信对于很多初学者都是一头雾水，找不着头绪。那么就让我浅浅地说一说到底怎么样读取并显示BMP图片吧。因为我也是初学，摸索学习了四五天，由于有些MFC基础，因此大概理清了MFC读取图片的机理...
- MFC读取图片并显示
效果显示：
- halcon基本示例之灰度直方图
void test() { HImage image("2.jpg"); HImage gray = image.Rgb1ToGray();//转化为灰度图 Hlong width, height; image.GetImageSize(&width, &height); HRegion region; region.GenRectangle1(0,
- c++读取.raw格式图像
第一次接触用c++进行图像处理，首先就是对于裸格式.RAW的图片进行处理，在网上也是找了很久，但是都没有合适的，知识搜集到一些信息，就是说.raw是8位二进，，很好处理，然后就没有搜集到更多的信息了，首先申明自己...
- MFC读取图像并显示
oid CddrwDlg::OnBnClickedButton1() { // TODO: 在此添加控件通知处理程序代码 //添加代码 // TODO: 在此添加控件通知处理程序代码 //打开文件 ...//指明可供选择的文件类型和相应的扩...
- MFC读取文件中的jpg图片如何显示
MFC读取文件中的jpg图片如何显示？希望有简单的方法，网上看到的都比较乱。
- raw格式（裸数据）格式文件读写
raw格式文件为裸数据，包含了相机原图像文件在图像传感器产生后计入相机图像处理器之前的一切图像信息。 从硬盘中读取raw格式文件存入opencv的图像容器中 CString strPath= dlg.GetPathName(); CFile file; ...
- 手把手教你用MFC和OpenCV，制作mfc读取并显示图像（两种方式）
mfc opencv读取并显示图像
- MFC显示灰度图片
在MFC中将一幅灰度图片的数据，显示到界面中. 1. 定义绘制变量，图片绘制到内存时所用 CDC m_dcBG; CBitmap m_bmBG; CBitmap *m_pOldBmBG; 2. 初始化绘制内存，我是在控件的OnSize中根据控件大小变化...
- VC/MFC读取BMP文件并显示
自己写过的代码，留作保存，以后不会忘了 先声明几个变量 ...//BMP图像文件头 BITMAPINFO BmpInfo;//BMP图像信息结构 RGBQUAD * pRGBQUAD;//调色板 DWORD dwBmpDataSize;//BMP数据区大小 在LoadBMPF
- MFC读取Excel文件+数据处理+写入Excel
在日常编程的过程中，我们经常会遇到需要...门槛相对较高，所以我们有时需要用EXCEL来代替简单的数据库操作，对于MFC连接数据库并进行对应操作，可以参考之前的博客：MFC以ADO方式连接ACCESS数据库 今天主要介绍...
- MFC读取XML文件并解析
现在经常会对XML文件进行操作，怎么在MFC下去读和解析XML文件呢？直接上代码： 首先得等在stdafx.h中加入这句，以引入MSXML命名空间 #import named_guids using namespace MSXML2; 然后再要使用的类的头文件...
- MFC读取.CSV文件
最近做些小算法，需要将数据导入MFC程序，这里就该方法做简单说明。 其实过程也不是很难，来看第一步： 下面是数据导入函数，具体不多说，看代码解释！ /************************* *从文件中导入csv数据 *******...
- c++中txt文件的读取以及在MFC中读取txt坐标数据并完成图形绘制
主要介绍如何读取txt文件中的坐标数据，并在MFC窗口中绘制出来，工程创建方法和绘图方法与上一篇博文基本一致，这里就不再详赘述，可参考上一篇博文vs2010、MFC窗口中绘制点、线、面。 C++中读取文件的方法有两种，...
- mfc 读取大数据 （txt文件）显示
文件格式是这样的： dfd,afa,afa,234,r3r,d2ed,2d,3d2,d2d,2de, dfa,fdsf,sa,dfdsf,sds,ddf,sdf,dsd,dfd,dfd, ...... 数据间用，隔开 //list control 的初始化 CListCtrl* pmyListCtrl = (CListCtrl*)...
- MFC下实现 灰度图像显示函数代码 C++
首先，在做图像编程的过程中，对于图像的显示是非常重要的，我们对于图像的处理，经常会用到图像的显示，用于查看结果是否正确，所以我们自然会产生一个想法，是否可以编写一个图像显示的函数，类似于matlab中的...
- MFC固定对话框大小
MFC固定对话框大小
- MFC读取图片文件并获得图片头和数据
需要读取图片文件，获得图片的头BITMAPINFOHEADER和数据BYTE*，看了好多例子 整理一下删减后的几种方法 1. 2. 3.
- MFC 读取csv文件
本来要读Excel文件的，太麻烦，转为csv格式直接读取人啊，要学会知难而退
- MFC文件打开格式，MFC默认打开文档后缀（支持打开多图像格式）
在VS中新建一个 MFC单文档或多文档的应用程序，可以通过“文件（File）/打开（open）”的打开文件选择的对话框，那如何选择文件过滤器呢，比如要实现选择打开文件格式为*.bmp或*.jpg的图像文件。一般可以通过编程的...
- MFC VS2010 读取txt中数据并显示
需要读取的数据格式如下：有两列，第一列为心电数据，第二列为脉搏波数据 首先设定要读取的行数N=5000，以及定义一个动态数组CArray m_PointArray; 之前在VC6.0中写的代码如下： void CDemoDlg::...
- MFC 如何读取UTF-8文件
项目是UNICODE的字符集,现在想读取UTF-8文件并显示UTF-8文件如何编写代码,请各位大神解答 最好具体详细点,本人菜鸟一枚
- mfc读取TXT文件坐标点绘图
新手，请大家多多帮助，如何用读取txt中的坐标点，并在窗口上顺次连接这些点，绘制成线。
- MFC获取文件大小的方法
MFC 下通过 CFileStatus 获取文件大小。