hello各位亲爱的观众朋友们，欢迎收看又是我给大家带来的大型情感类节目，非诚。。。哦，不是，是这个吐槽班。
最近是有点头晕啊，可能是吃饭的时候这个没注意营养什么的，dota元素缺乏了。。。
经过了中秋节五天连续的学习之后，又是迎来了十一九天课，越上越快乐。当我听到十月一主要学英语的时候，我只能说：感觉自考不会再过了。。。
不光自考，计算机进度也不快。前两天老李也是问我：咋就不着急呢？我也不知道为啥，还真就是不着急。。。当然像我这么狂拽酷炫叼霸天的乐观心态和满到令人绝望的课程表，一般人是不会有的。
机房收费系统反正是弄了一半了吧，我是觉得只要思路清晰了，其他的都是小事。。。可是。。。尼玛我就卡在小事上了。。。
上下机的那个算法想了好长时间都觉得差点什么，怎么算都不对，哎~算了，那就先搞别的，这也是终于发现了一些和技术沾边的东西啊。
以前呢，作品展的时候也是为了达到某些目的，曾经写过关于Excel的代码吧。等我翻出当时的博客却发现那是读数据的，用的是DAO达成的目的。这次是要将MSHFlexGrid中的数据导入Excel，那么。。。好吧，我还是问度娘好了。
最后呢也是看了老李写的博客吧，终于是搞定了这个东西。像这种经常要反复用到的代码最好还是弄一个自定义函数。
Public Function OutPutToExcel(MyFlexGrid As MSHFlexGrid) '******************************************* '功能： ' 导入数据到Excel '参数： ' MyFlexGrid ——要导入Excel的数据源 '***************************************** Dim i As Integer Dim j As Integer '用来循环 Dim Excelapp As Excel.Application '定义一个Excel应用 Dim Excelworkbook As Excel.Workbook '定义一个工作簿 Dim Excelworksheet As Excel.Worksheet '定义一个工作表 On Error Resume Next Set Excelapp = CreateObject("Excel.Application") Set Excelworkbook = Excelapp.Workbooks.Add Set Excelworksheet = Excelworkbook.Worksheets(1) '将上面那三个玩意实例化,就是创建对象 Excelworksheet.Activate With MyFlexGrid '将MSHFlexGrid中的数据写进去 For i = 0 To .Rows - 1 For j = 0 To .Cols - 1 DoEvents Excelapp.ActiveSheet.Cells(i + 1,j + 1) = .TextMatrix(i,j) Next j Next i End With Excelapp.Visible = True '显示Excel表 End Function
好的这差不多就这样了，整完了原型中的代码，我这也是发挥了一下恶搞能力吧，能把数据库中的数据导出来，能不能把Excel中的数据导进去呢，我觉得一定是可以的。
Dim cn As ADODB.Connection
Dim strsql As String
Dim lngRecsAff As Long
'连接Excel数据源
Set cn = New ADODB.Connection
cn.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,adExecuteNoRecords
Debug.Print "Records affected:" & lngRecsAff
cn.Close
Set cn = Nothing
这个是在微软的支持中找到的一种使用方法，这里面用的就是ADO，所以我就可耻的复制过来了。不过我觉得使用之前数据类型一定要先对了，否则出啥问题找微软去，不要找我~
其实，sql Server自带导入数据的功能，直接在企业管理器中右键想要导入数据的数据库，任务，导入数据，然后跟着向导走就行了，比较无脑，就不详细说了。
诶。。。怎么感觉这是三角关系。。。
这两天真的是有点感冒啊，估计是上铺那哥们传给我的，幸好我还没有放弃治疗，提前找出感冒药吃了一片。要不是还要好好学习，我还真就请个假回家啥的。。。这说出来我自己都不信啊。。。
刚才还看到某同学说我不更新，我就更给你看，虽然不是啥知名节目，好歹我这也是个自己给自己认证的博客专栏，不能随随便便就写点东西就算更新是吧。
好了，这期就到这了。接下来就是大家喜闻乐见的右上角红叉叉时间。
以上