在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美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
主站蜘蛛池模板: 中国女人a毛片免费全部播放 | 色婷婷综合网 | 国产综合在线视频 | 永久在线 | 免费一区二区三区 | 男男生子大肚play做到生 | 日日艹| 人人干在线观看 | 午夜伦伦 | 欧美午夜在线播放 | 男男浪荡性受高hnp肉 | 亚洲一级毛片免费在线观看 | 特黄特色大片免费视频大全 | av2021天堂网手机版 | 俺来色| 日本亚洲免费 | 女人张开腿男人桶 | 午夜免费的国产片在线观看 | 给我免费播放片黄色 | 美女视频一区二区 | 亚洲欧美一区二区三区麻豆 | 日韩a视频 | 自拍你懂的| 成人免费淫片95视频观看网站 | 男女视频免费观看 | 国产亚洲精品aa在线观看 | 欧美性猛片xxxxⅹ免费 | 国产拍拍拍免费视频网站 | 天天干天天射天天舔 | 日本色片在线观看 | 日韩ab| 精品一区二区在线观看 | 亚洲天天综合 | 亚洲合集综合久久性色 | 特级毛片aaaaaa蜜桃 | 97福利视频 | 性欧美黑人巨大videos | 欧美图片小说视频 | 99久久无色码中文字幕 | 九色视频网 | 色多多在线免费观看 |