vb吐槽班06 进击的Excel

诶，好的好的，今天依旧小满来到了。。。咳咳。。。拿错稿子了。

hello各位亲爱的观众朋友们，欢迎收看又是我给大家带来的大型情感类节目，非诚。。。哦，不是，是这个吐槽班。

最近是有点头晕啊，可能是吃饭的时候这个没注意营养什么的，dota元素缺乏了。。。

经过了中秋节五天连续的学习之后，又是迎来了十一九天课，越上越快乐。当我听到十月一主要学英语的时候，我只能说：感觉自考不会再过了。。。

不光自考，计算机进度也不快。前两天老李也是问我：咋就不着急呢？我也不知道为啥，还真就是不着急。。。当然像我这么狂拽酷炫叼霸天的乐观心态和满到令人绝望的课程表，一般人是不会有的。

机房收费系统反正是弄了一半了吧，我是觉得只要思路清晰了，其他的都是小事。。。可是。。。尼玛我就卡在小事上了。。。

上下机的那个算法想了好长时间都觉得差点什么，怎么算都不对，哎~算了，那就先搞别的，这也是终于发现了一些和技术沾边的东西啊。

以前呢，作品展的时候也是为了达到某些目的，曾经写过关于Excel的代码吧。等我翻出当时的博客却发现那是读数据的，用的是DAO达成的目的。这次是要将MSHFlexGrid中的数据导入Excel，那么。。。好吧，我还是问度娘好了。

最后呢也是看了老李写的博客吧，终于是搞定了这个东西。像这种经常要反复用到的代码最好还是弄一个自定义函数。

Public Function OutPutToExcel(MyFlexGrid As MSHFlexGrid)
'*******************************************
'功能：
'             导入数据到Excel
'参数：
'             MyFlexGrid     ——要导入Excel的数据源
'*****************************************Dim i As IntegerDim j As Integer                            '用来循环Dim Excelapp As Excel.Application           '定义一个Excel应用Dim Excelworkbook As Excel.Workbook         '定义一个工作簿Dim Excelworksheet As Excel.Worksheet       '定义一个工作表On Error Resume NextSet Excelapp = CreateObject("Excel.Application")Set Excelworkbook = Excelapp.Workbooks.AddSet Excelworksheet = Excelworkbook.Worksheets(1)   '将上面那三个玩意实例化,就是创建对象Excelworksheet.ActivateWith MyFlexGrid                             '将MSHFlexGrid中的数据写进去For i = 0 To .Rows - 1For j = 0 To .Cols - 1DoEventsExcelapp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j)Next jNext iEnd WithExcelapp.Visible = True                     '显示Excel表End Function

好的这差不多就这样了，整完了原型中的代码，我这也是发挥了一下恶搞能力吧，能把数据库中的数据导出来，能不能把Excel中的数据导进去呢，我觉得一定是可以的。

    Dim cn As ADODB.ConnectionDim strSQL As StringDim lngRecsAff As Long'连接Excel数据源Set cn = New ADODB.Connectioncn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=C:\test\xltestt.xls;" & _"Extended Properties=Excel 8.0"'使用 Jet 4.0 Provider 通过 ADO 连接将 Excel 数据导入到 SQL Server。strSQL = "SELECT * INTO [odbc;Driver={SQL Server};" & _"Server=<server>;Database=<database>;" & _"UID=<user>;PWD=<password>].XLImport9 " & _"FROM [Customers$]"Debug.Print strSQL'执行导入数据cn.Execute strSQL, lngRecsAff, adExecuteNoRecordsDebug.Print "Records affected:" & lngRecsAffcn.CloseSet cn = Nothing

这个是在微软的支持中找到的一种使用方法，这里面用的就是ADO，所以我就可耻的复制过来了。不过我觉得使用之前数据类型一定要先对了，否则出啥问题找微软去，不要找我~

其实，SQL Server自带导入数据的功能，直接在企业管理器中右键想要导入数据的数据库，任务，导入数据，然后跟着向导走就行了，比较无脑，就不详细说了。

诶。。。怎么感觉这是三角关系。。。

这两天真的是有点感冒啊，估计是上铺那哥们传给我的，幸好我还没有放弃治疗，提前找出感冒药吃了一片。要不是还要好好学习，我还真就请个假回家啥的。。。这说出来我自己都不信啊。。。

刚才还看到某同学说我不更新，我就更给你看，虽然不是啥知名节目，好歹我这也是个自己给自己认证的博客专栏，不能随随便便就写点东西就算更新是吧。

好了，这期就到这了。接下来就是大家喜闻乐见的右上角红叉叉时间。

以上

vb吐槽班06 进击的Excel相关推荐

vb吐槽班02 不要以为学生信息管理系统很难啊魂淡！
诶,好的好的,今天依旧是我给大家带来大型情感类电脑连续节目vb吐槽班,我们依旧是吐的飞起,感觉好恶心... 自从上次在csdn发过博客之后,一直生活在水深火热的预习专业课的生活中,毕竟 ...
vb吐槽班09 难得正经一回。。。
机房算是勉勉强强的准备做完了吧,最后只剩一个强制下机的功能不知道从何下手.虽然有考虑过用winsock之类的控件发送一个消息,但是貌似我做的这个玩意还不是C/S模式的程序. 好吧,那这周又 ...
二级VB培训笔记06：窗体与常用控件综合案例【个人信息注册】
二级VB培训笔记06:窗体与常用控件综合案例[个人信息注册] 一.常用控件属性与方法思维导图二.综合案例--个人信息注册 1.创建工程,修改名称为"个人信息注册",窗体名称设置为 ...
vb如何用代码对Excel的指定区域实行保护
有时,我们为了保证数据的准确性,需要在对Excel工作表的指定区域进行保护,以达到禁止用户修改的目的,那么,如何用代码直接实现呢? 为此,我编写了一个简单的函数供大家调用,虽然该函数是用VBA写的,其 ...
计算机班内排名公式,巧用Excel数组公式统计各班优秀人数EXCEL基本教程 -电脑资料...
期末考试期间,教导处的阿明忙得不亦乐乎,不时地发出感叹:"现在各班编在一起考试,统计优秀.及格.低分人数,真让人头疼", 我知道他在操什么心,却心不在焉地说:"count ...
计算机基础知识教程excel求平均分,Excel 2003快速求取各班各科最高分EXCEL基本教程 -电脑资料...
学校里经常组织考试,每次考试结束之后照例都是对成绩的分析和比较, 我们以图1所示的工作表为例.班级位于"原始分"工作表A列,语文等各科成绩及总分分别位于C列至H列.我们将在不对原表 ...
php datedif,关于VB的DateDiff()函数与EXcel DateDif()函数
自定义了一个日期差函数.用法见附件. Function timediff(x As Date, y As Date, Optional z As String) As String Dim i As ...
vb小工具-----txt转为excel
前段时间用vb做了一个小软件,用来将下位机存储的运行记录(txt格式)转为excel格式. 源代码如下,供需要借鉴的朋友来下载,代码有点乱,但是功能是经过验证了的.本来是想将工程作为附件插入进来,弄了 ...
excel 中vb组合框_在Excel 2010中修复组合框大小调整
excel 中vb组合框 With Excel data validation, you can create drop down lists on a worksheet. However, the ...

vb吐槽班06 进击的Excel

vb吐槽班06 进击的Excel相关推荐

最新文章

热门文章