刚开始接触机房收费的时候,连上数据库,配置ODBC,登陆进去,那窗体叫一个多,不由地有种害怕的感觉,但是有人说,每天努力一点点,就会进步一点点,不会的就会少一点点,会的就会多一点点........
在看似杂乱无章的各个窗体都相互独立,其实,他们之间有着千丝万缕的关系,剪不断,理还乱。在机房收费系统中,有多处用到导出Excel表格,就这个问题做一个简单的总结。
第一种方法
打开VB-工程-应用-勾选Microsoft Excel 14.0 Objexts 2.6 Library
编写代码如下:
Private Sub CmdExport_Click()Dim j As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application") '实例化对象xlAppxlApp.Visible = TrueSet xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)For i = 0 To myflexgrid.Rows - 1For j = 0 To myflexgrid.Cols - 1myflexgrid.Row = imyflexgrid.Col = jxlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)NextNext
End Sub
第二种方法
在根目录中提前建立好空的Excel表格,这个表格所存放的目录应当和你的VB工程同属于一个目录,然后就是核心部分了,编写代码:
版权声明:本站所有资料均为网友推荐收集整理而来,仅供学习和研究交流使用。
工作时间:8:00-18:00
客服电话
电子邮件
admin@qq.com
扫码二维码
获取最新动态