Public Sub GetGuJiaFromExcel(ByVal fs As String, ByVal r1 As Long, ByVal r2 As Long) '''''打开Excel文件读取数据
On Error GoTo Ends:
Dim mybb As Variant
Dim i As Long
Dim j As Long
Dim hao1 As Long
Dim Index1 As Long
If r1 < 1 Then Exit Sub
If r2 < r1 Then Exit Sub
Set oExcel = CreateObject("excel.application")
oExcel.Visible = True
Set oBook = oExcel.Workbooks.Open(fs)
Set oSheet = oBook.Worksheets(1)
mybb = oExcel.Range(Cells(r1, 1), Cells(r2, 6))
For i = 1 To r2 - r1 + 1
hao1 = Val(mybb(i, 1))
Index1 = GetGuIndex(hao1)
If Index1 > 0 And Index1 <= nGu Then
Gu(Index1).TimJiaBefore = Val(mybb(i, 3))
Gu(Index1).TimJiaMax = Val(mybb(i, 4))
Gu(Index1).TimJiaMin = Val(mybb(i, 5))
Gu(Index1).TimJiaEnd = Val(mybb(i, 6))
End If
Next
Ends:
oExcel.Quit
Set oSheet = Nothing
Set oBook = Nothing
Set oExcel = Nothing
End Sub
-
等级
本版专家分：0结帖率 0% -
展开阅读全文
-
等级
本版专家分：6155勋章
-
- 蓝花 2011年9月 VB大版内专家分月排行榜第三
-
-
这是什么，有用的吗？
-
等级
本版专家分：6155勋章
-
- 蓝花 2011年9月 VB大版内专家分月排行榜第三
-
-
'┏〓〓〓〓〓〓〓〓〓 GetExcelRs,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'VB读取EXCEL工作薄某个表中数据
Function GetExcelRs(ByVal sFile As String, Optional ExcelSheetName As String = "sheet1", Optional ErrInfo As String) As ADODB.Recordset
'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
'--需要什么函数或功能，可以联系我。
'版权所有，请保留作者信息.QQ：1085992075
'如需商业用途请联系作者
On Error GoTo Err
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Dim ConnStr As String
ConnStr = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & ";ReadOnly=False"
RS.Open "SELECT * FROM [" & ExcelSheetName & "$]", ConnStr, 1, 3
Set GetExcelRs = RS
Set RS = Nothing
Exit Function
Err:
ErrInfo = Err.Description
MsgBox ErrInfo
End Function
'┗〓〓〓〓〓〓〓〓〓 GetExcelRs,end 〓〓〓〓〓〓〓〓〓┛
-
等级
本版专家分：29432勋章
-
- 技术圈认证 用户完成年度认证，即可获得
-
- 签到达人 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
-
黄花
2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
-
-
对于不规则的数据还是用com接口读取的好。
-
等级
本版专家分：1659 -
下面是一个[用VB创建一个xls文件][并向里面写入一个数据]的例子 和LZ的反过来了
注意:本例题程序必须引用 Microsoft Excel 11.0 Object Library
'Form = Command1
'引用 Microsoft Excel 11.0 Object Library
'完成效果：在D盘下建立一个名字为 2的 excel文件 文件中的第5列第5行有“成功字样”
'*************下面是代码***************
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Add()
Set xlsheet = xlbook.Worksheets("Sheet1") '设置活动工作表
xlsheet.Cells(5, 5) = "成功" '向第五行第五列写入该数据
xlbook.SaveAs "D:.xls" '另存文件
xlbook.Close '关闭工作簿
Set xlbook = Nothing '从内存中清除
xlapp.Quit '关闭excel
Set xlapp = Nothing '从内存中清除
End Sub
- VBA_把Excel某一区域的内容读入到数组中/把数组的内容写入到Excel中
1 把Excel某一区域的内容读入到数组中: Dim strArray() As Variant Dim wk_data As Variant Set wk_data = Sheets("Sheet1") strArray = wk_data....2 把数组的内容写入到Excel中 wk_data.Range("A1").Resize
- VB中操作Excel的一般做法（读取）
1、定义Excel操作变量Dim objExcelFile As Excel.ApplicationDim objWorkBook As Excel.WorkbookDim objImportSheet As Excel.Worksheet2、打开Excel进程，并打开目标Excel文件Set objExcelFile = New Excel....
- vb中从excel中捞取数据插入表中！
代码实现的功能是：从指定的EXCEL文件中抓取一些数据插入表中控制点1指定的excel 中要有sheet2sheet中要有一个名为“upload”的文件代码如下： check sheets names must contain upload intCsheet = xlBook....
- 使用VB读取EXCEL数据的小程序
使用VB读取EXCEL数据的小程序程序界面部分代码使用VB进行MD5加密的代码 程序界面 VB生成EXE工程时可能由于系统原因会导致按钮文字显示不全，缺字少字的情况，网上搜了好多帖子，有说DLL文件缺失，有说框体不够大等等...
- vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中
本来从MSFlexGrid或MSHFlexGrid导出数据到Excel中，是一个非常简单的问题，但论坛里还是经常有人问如何导出，有的虽然知道用单元格赋值方式循环导出，但速度太慢，因此写了一个通用的数据导出函数，由于以数组方式一...
- vb读取excel中的数据并在窗体上显示
Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格...
- GetRows的用法详解！
大家应该都知道 Recordset 有个 GetRows 属性，但是真正使用的不多，其实这个属性很简单，就是把数据集输出到一个数组中。但是实用性可不小，在这里我举一个例子说明一下GetRows的使用方法，大家举一反三能想到更多...
- 关于Labview里对excel的编程
首先，Labview是有一些自带的关于Excel编程的例子的。在find example里search一下，有挺多的，其中有一个叫write table to XL.vi,我最早就是跟着它学的。学了不少，也被误导了很久，其实也不能算误导，只是以前没花...
- 我在CSDN参与的3000个帖子
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐...
- vb/vb.net开发精粹(23)
编VB程序结合有道网页翻译找生词的尝试 请教字符串数据提取思路 ...请教高手指点迷津，如何读取一定格式的文本文件向Excel写入数据？ 如何让程序跳过启动时的一个对话框 VC代码转VB 如何更新col
- [VFP实例]VFP的OLE技术应用详解
VFP提供两种类型的OLE对象：一种是OLE控件（．OCX文件），这是一种自定义控件，通常在WINDOWS/SYSTEM目录下，拥有自己的事件、方法，类似于VFP的基本类，这种控件可以用VC、VB5．0、DeLphi、SDK2．0等编程工具...
- VB操作EXCEL表的常用方法
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。...
- Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt
我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法 Dir 函数 返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或...
- vb.net 教程 目录
在 vb.net教程 中更新了： vb.net 教程 5-19 拓展：制作一个QQ大家来找茬和美女找茬辅助工具 （2019-11-25 16:29:53）vb.net 教程 5-20 拓展 论坛图片批量转换 （2019-11-25 16:19:31）vb.net 教程 5-21 拓展 如何...
- Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt(转载)
我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法 Dir 函数 返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的...
- 提高Excel VBA的执行效率
作者：不详vba广泛应用于Microsoft Office办公套件，尤其是Excel。vba以它的功能强大，方式灵活，越来越引起office人员的重视，由于VBA非常灵活，因此对于特定功能的实现可能存在多种方法。但值得关注的是好的方法与...
- VB.net 查找文件中指定位置的数据
position 和seek 查找文件中的要求位置的数据，简单的例子，查找数据可是一看就懂
- VB 小技巧自定义TextBox文本框右键菜单
'TextBox单击鼠标右键总是跟出来一个系统默认的关于文本操作的菜单，如何把它去掉？请看如下代码。 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 ...
- 通过vc中的CDatabase类来直接通过ODBC读写Excel表格文件
CDatabase对象表示到数据源的连接，通过它可以操作数据源。数据源是位于一些数据库管理系统（DBMS）的数据的指定实例，包括MicrosoftSQLServer，MicrosoftAccess，BorlanddBASE和xBASE。在应用中可以同时使一个或多...
- 用VC操纵Excel的数据文件
转自：http://blog.csdn.net/eattonton/archive/2009/03/23/4018206.aspx 在Visual C++ 中调用Excel 2000 程 蓬 在开发软件时，经常要将数据输出到Excel 2000中，在Excel 2000中对该数据进行进一步地格式化...
- WEB开发文档2 总结
Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到下一页显示数据 下载中文名
- vb/vb.net开发精粹(4)
各位帮忙 找一个w70n5msg.dll 文件 ＶＢ中如何使用insert语句，插入一条纪录 分布式组件状态问题 在VB6.0中 使用SQLDMO.SQLServer 显示数据库名称出错啦, 请大家指点...在VB控制水晶报表中，用不固定的数据源，运行
- VC中彻底玩转Excel
VC中彻底玩转Excel 作者：龚敏 来源：子玉山庄
- C++操作Excel学习笔记
C++操作Excel学习笔记 ...C++读取Excel的XLS文件的方法有很多，但是也许就是因为方法太多，大家在选择的时候会很疑惑。 由于前两天要做导表工具，比较了常用的方法，总结一下写个短文， 1.OLE的方式 这个...
- vb/vb.net开发精粹(7)
一个简单的句子，却搞不定 flexcell 单元格图像问题 谁知道tar.gz文件在vb中解压命令如何写 ◆求让一个窗体成为另一个窗体对话框的API写法◆ 请教了：如何获取控件listview的消息常量 ...vb中操作excel问题，如何
- vb/vb.net开发精粹(22)
关于 VB 里其它过程的值传递给 Function 函数体的问题？？？ VB更改Excel自定义纸张大小怎么操作呢？ 为什么我写的程序在VB环境下运行不报错，一编译运行就报错 数据导入EXCEL问题 发个预言贴, 过一年再回来看看...
- 各种Excel VBA的命令
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置...", vbYesNo) If X = vbYes Then Close 本示例
- VB .NET 读取数据库数据处理后再循环插入数据库
读取数据库数据处理后再插入数据库，很多语句都可以使用inset into实现，但有些批量处理业务，需要逐条记录处理后，在写回数据库。 网上查了很多资料，竟然没有这样的例子，很是奇怪，难道我学的路子不对头？ 小白...
- 大学《数据库系统》课程设计报告
湖南科技大学计算机科学与工程学院 《数据库系统》 课 程 设 计 题 目: 教学管理系统 专 业：计算机科学与技术 年 级： 2017级 班 级： 计科三班 学 号： 170510323 姓 名： 雨 萱 完成时间：2019年1月3日 ...
- 搜集各种Excel VBA的命令供参考！
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置...", vbYesNo) If X = vbYes Then Close 本示例