在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標(biāo)識(shí) 上網(wǎng)做生意,首選VIP會(huì)員| 設(shè)為首頁| 加入桌面| | 手機(jī)版| RSS訂閱
食品伙伴網(wǎng)服務(wù)號(hào)
 
當(dāng)前位置: 首頁 » 食品專題 » 辦公軟件-excel使用技巧 » 正文

另類快速導(dǎo)出數(shù)據(jù)庫為EXCEL文檔

放大字體  縮小字體 發(fā)布日期:2006-06-16

在網(wǎng)上的導(dǎo)出為 EXCEL文檔的方法大概是這樣的
  
  Dim i As Integer, j As Integer
  Dim myexcel As New Excel.Application
  Dim mybook As New Excel.Workbook
  Dim mysheet As New Excel.Worksheet
  Set mybook = myexcel.Workbooks.Add '添加一個(gè)新的BOOK
  Set mysheet = mybook.Worksheets.Add '添加一個(gè)新的SHEET
  ' For i = 1 To myres.RecordCount
  ' For j = 1 To myres.Fields.Count
  ' mysheet.Cells(i, j) = myres.Fields.Item(j - 1).Value
  ' If (i * j) Mod 500 = 0 Then
  ' DoEvents
  ' End If
  ' Next j
  ' myres.MoveNext
  
  ' Next i
   myexcel.Visible = True
   mybook.SaveAs (m_ExcelName) '保存文件
  
  

  這中方法沒什么錯(cuò)誤,但是如果數(shù)據(jù)量很大的話,麻煩就來了,出現(xiàn)程序長時(shí)間不響應(yīng)
  
  關(guān)鍵是循環(huán),下給出我的代碼
  
  假設(shè)定義的記錄名為myres
  
  Dim myexcel As New Excel.Application
  Dim mybook As New Excel.Workbook
  Dim mysheet As New Excel.Worksheet
  Set mybook = myexcel.Workbooks.Add '添加一個(gè)新的BOOK
  Set mysheet = mybook.Worksheets.Add '添加一個(gè)新的SHEET
   myexcel.visible=true
  
  mysheet.Cells.CopyFromRecordset myres
  
  mybook.SaveAs (m_ExcelName) '保存文件

  利用這個(gè)代碼可以大大的縮短導(dǎo)出時(shí)間,8000多個(gè)紀(jì)錄用第一種方法大概需要2分多
  
  而用第二種方法只大概要4秒,可以親自試驗(yàn)一下,上述結(jié)果測試平臺(tái)為WIN98+EXCEL2000

 
[ 網(wǎng)刊訂閱 ]  [ 食品專題搜索 ]  [ ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關(guān)閉窗口 ] [ 返回頂部 ]

 

 
推薦圖文
推薦食品專題
點(diǎn)擊排行
 
 
Processed in 0.596 second(s), 955 queries, Memory 3.02 M
主站蜘蛛池模板: 亚洲性人人天天夜夜摸 | 日本网站免费观看 | 亚洲人成电影综合网站色 | 欧美tube最新的69hd | 国产欧美亚洲精品 | 加勒比精品久久一区二区三区 | 成人国产亚洲欧美成人综合网 | 99久久99这里只有免费费精品 | 欧美潘金莲一级风流片a级 欧美片欧美日韩国产综合片 | 亚洲午夜网站 | 操黄色 | 美女视频黄视大全视频免费网址 | 年下攻高h好涨 | 日本污视频网站 | 久久天堂网 | 色站视频 | 一级片一级片一级片 | 手机在线1024| 一级做受毛片免费大片 | 韩国朴银狐诱感在线观看 | 在线电影亚洲 | 看黄网站在线观看 | 色婷婷精品大全在线视频 | 久久99精品一级毛片 | 三级在线看 | 国产色产综合色产在线观看视频 | 色色激情网 | 亚洲 欧美 成人 | 激情五月激情综合色区 | 亚洲日本一区二区三区 | h录音 国产 在线 | 精品欧美一区二区三区在线观看 | 国产精品第九页 | 四虎影像| 天天爱夜夜 | 生活片毛片 | 啪啪.com | 成人黄色免费网站 | freesexvideo性残疾 | 亚洲成年 | 韩漫免费网站无遮挡羞羞漫画 |