±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 8331  |  »Ø¸´: 145
±¾Ìû²úÉú 1 ¸ö ³ÌÐòÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴

libralibra

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)

æôÆï½«¾ü

¡ï ¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÓàÔó³É(½ð±Ò+3, ³ÌÐòÇ¿Ìû+1): лл²ÎÓëÓ¦Öú£¡ 2011-04-28 19:04:06
ÒýÓûØÌû:
Originally posted by moon345 at 2011-04-27 09:47:48:
ÎÒÏëͨ¹ývb°Ñijһ¸öexcel±í¸ñµÄijÁ½ÁеÄÊý¾Ý¶ÁÈ¡³öÀ´£¬´æ·ÅÔÚÊý×éÖУ¬¶Ô¶ÁÈ¡µÄÊý¾Ý»æÖÆÇúÏߣ¬È»ºóÔÙ°ÑÊý¾Ý´æÓÚÁíÍâÒ»¸öexcel£¬ÈçºÎ²Ù×÷°¡£¬±ÏÉèÓõ½£¬ÎÒÊDzËÄñ£¬²»»á£¬ÓиßÊÖ¸ø¸öÀý×Ó»òÕ߽̽ÌÎÒ°¡£¡£¡£¡

ûÏëµ½ÏÖÔÚÓÃvbµÄ»¹ÊÇÕâô¶à°¡,
ÓÐ2¸ö°ì·¨:
1.adoµ±×öÊý¾Ý¿â¶Á
2.ÓÃexcel¶ÔÏó

¾ßÌå°ì·¨((ÎÒû¾ßÌå²âÊÔ,ÕÒµÄÀý×Ó,Äãµ÷ÊÔÏÂ)
µÚÒ»ÖÖ:
CODE:
dim   n   as   long
Dim   oConn   As   New   ADODB.Connection
Dim   oRS   As   New   ADODB.Recordset
oConn.Open   "Provider=Microsoft.Jet.OLEDB.4.0; "   &   _
                      "Data   Source=C:\Book1.xls; "   &   _
                      "Extended   Properties= " "Excel   8.0; " " "
oRS.Open   "Select   *   from   [Sheet1$] ",   oConn,   adOpenStatic
n   =   1
do   until   oRS.EOF
msgbox   "µÚ "   &   n   &   "   Ìõ¼Ç¼£¬µÚÒ»ÁУº "   &   oRS.fields(1)   &   _
        "£»µÚ¶þÁУº "   &   oRS.fields(2)
n   =   n   +   1
oRS.Movenext
Loop
oRS.Close
oConn.Close

µÚ¶þÖÖ:
CODE:
1¡¢¶¨ÒåExcel²Ù×÷±äÁ¿

Dim objExcelFile As Excel.Application

Dim objWorkBook As Excel.Workbook

Dim objImportSheet As Excel.Worksheet

2¡¢´ò¿ªExcel½ø³Ì£¬²¢´ò¿ªÄ¿±êExcelÎļþ
Set objExcelFile = New Excel.Application
objExcelFile.DisplayAlerts = False
Set objWorkBook = objExcelFile.Workbooks.Open(strFileName)

Set objImportSheet = objWorkBook.Sheets(1)

3¡¢»ñÈ¡ExcelÓÐÐ§ÇøÓòµÄÐкÍÁÐÊý
intLastColNum = objImportSheet.UsedRange.Columns.Count

intLastRowNum = objImportSheet.UsedRange.Rows.Count

4¡¢ÖðÐжÁÈ¡ExcelÖÐÊý¾Ý

ÓÉÓÚǰÁ½ÐÐΪHeader²¿·Ö£¬ËùÒÔÐèÒª´ÓµÚÈýÐжÁÈ¡

Èç¹ûµÚ1µ½µÚ10¸öµ¥Ôª¸ñµÄÖµ¾ùΪ¿Õ»ò¿Õ¸ñ£¬ÔòÊÓΪ¿ÕÐÐ

For intCountI = 3 To intLastRowNum

''Check if Empty Data Row

blnNullRow = True

For intI = 1 To 10

If Trim$(objImportSheet.Cells(intCountI, intI).Value) <> "" Then

blnNullRow = False

End If

Next intI

Èô²»ÊÇ¿ÕÐУ¬Ôò½øÐжÁÈ¡¶¯×÷£¬·ñÔò¼ÌÐøÏòºó±éÀúExcelÖеÄÐÐ

If blnNullRow = False Then

»ñÈ¡µ¥Ôª¸ñÖеÄÊý¾Ý£¬×öÓÐЧÐÔCheck£¬²¢½«ºÏ·¨Êý¾Ý´´½¨ÎªÊµÌå´æÈë¶ÔÏóÊý×éÖÐ

objImportSheet.Cells(intCountI, 1).Value

¡­¡­

End If
Next intCountI

5¡¢Í˳öExcel½ø³Ì£¬²¢¹Ø±ÕExcelÏà¹Ø²Ù×÷¶ÔÏó
objExcelFile.Quit
Set objWorkBook = Nothing
Set objImportSheet = Nothing

Set objExcelFile = Nothing

matlab/VB/python/c++/Javaд³ÌÐòÇë·¢QQÓʼþ:790404545@qq.com
101Â¥2011-04-27 18:19:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

likuihei

½ð³æ (ÕýʽдÊÖ)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶Ó­ÌÖÂÛ 2011-08-22 10:54:45
Âé·³ÄúÇë½Ìһϣ¬VBÔõôʵÏÖ×îС¶þ³Ë·¨
ÿÌìÖØ¸´Í¬ÑùµÄÊÂÇ飬ÐèÒªºÜ´óµÄÄÍÐÔ
102Â¥2011-04-28 14:36:34
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

libralibra

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)

æôÆï½«¾ü

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶Ó­ÌÖÂÛ 2011-08-22 10:54:56
ÒýÓûØÌû:
Originally posted by likuihei at 2011-04-28 14:36:34:
Âé·³ÄúÇë½Ìһϣ¬VBÔõôʵÏÖ×îС¶þ³Ë·¨

×îС¶þ³Ë·¨ÊǸöÊýѧ·½·¨,ÓÃʲôÓïÑÔ±à³Ì˼Ïë¶¼Ò»ÑùµÄ
matlab/VB/python/c++/Javaд³ÌÐòÇë·¢QQÓʼþ:790404545@qq.com
103Â¥2011-04-28 16:35:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wangchi109

Òø³æ (СÓÐÃûÆø)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶Ó­ÌÖÂÛ 2011-08-22 10:55:07
Ïò¹ËÎÊ·¢ÎÊ£º
      Çë½ÌÈçºÎÀûÓÃc#ÔÚÉ¢µãͼÉÏ»æÖÆÒ»ÌõÄâºÏÇúÏß¡£¸÷É¢µãµÄX£¬Y×ø±ê¾ùÒÑÖª¡£¸ù¾Ý×ø±êÊý¾Ý£¬×Ô¶¯Ñ°ÕÒÒ»Ìõ×îΪƥÅäµÄÇúÏߣ¬²¢µÃ³öÇúÏߵıí´ïʽ¡£
Èç¹ûÓÐÒ»Ì죬ÎÒÍü¼ÇÁËÄã¡­¡­ÎÒÄþÔ¸£¬Ò»±²×Ó£¬¿à¿à³ÕÁµ¡­¡­²»Ëµ°®ºÞ£¬¾ÍËãÊÇÒ»µÈÔÙµÈ
104Â¥2011-05-04 15:55:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

libralibra

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)

æôÆï½«¾ü

¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÓàÔó³É(½ð±Ò+2): лл²ÎÓëÓ¦Öú£¡ 2011-05-04 22:50:47
ÒýÓûØÌû:
Originally posted by wangchi109 at 2011-05-04 15:55:01:
Ïò¹ËÎÊ·¢ÎÊ£º
      Çë½ÌÈçºÎÀûÓÃc#ÔÚÉ¢µãͼÉÏ»æÖÆÒ»ÌõÄâºÏÇúÏß¡£¸÷É¢µãµÄX£¬Y×ø±ê¾ùÒÑÖª¡£¸ù¾Ý×ø±êÊý¾Ý£¬×Ô¶¯Ñ°ÕÒÒ»Ìõ×îΪƥÅäµÄÇúÏߣ¬²¢µÃ³öÇúÏߵıí´ïʽ¡£

´ËÎÊÌâ·Ö½âΪ2²¿·Ö:
1.ÓɲÉÑùµãÄâºÏÇúÏß.ÕâÊÇÊýѧÎÊÌâ,ÓжàÖÖ·½·¨,×î³£ÓÃ×îС¶þÖµ·¨
2.c#plotÇúÏß.Õâ¸öÍøÉÏÀý×Ӻܶà,¿ÉÒÔÓÃ.netµÄtee chart¿Ø¼þ,Ò²¿ÉÒÔ×Ô¼ºÐ´´úÂë.
²Î¿¼
http://tech.ddvip.com/2008-12/1229590864101085_2.html

[ Last edited by libralibra on 2011-5-4 at 16:52 ]
matlab/VB/python/c++/Javaд³ÌÐòÇë·¢QQÓʼþ:790404545@qq.com
105Â¥2011-05-04 16:50:58
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wangchi109

Òø³æ (СÓÐÃûÆø)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶Ó­ÌÖÂÛ 2011-08-22 10:55:18
ÒýÓûØÌû:
Originally posted by libralibra at 2011-05-04 16:50:58:
´ËÎÊÌâ·Ö½âΪ2²¿·Ö:
1.ÓɲÉÑùµãÄâºÏÇúÏß.ÕâÊÇÊýѧÎÊÌâ,ÓжàÖÖ·½·¨,×î³£ÓÃ×îС¶þÖµ·¨
2.c#plotÇúÏß.Õâ¸öÍøÉÏÀý×Ӻܶà,¿ÉÒÔÓÃ.netµÄtee chart¿Ø¼þ,Ò²¿ÉÒÔ×Ô¼ºÐ´´úÂë.
²Î¿¼
[url]http://tech.ddvip.com/20 ...

лл¹ËÎÊ£¬ÎÒÊÔÊÔ
Èç¹ûÓÐÒ»Ì죬ÎÒÍü¼ÇÁËÄã¡­¡­ÎÒÄþÔ¸£¬Ò»±²×Ó£¬¿à¿à³ÕÁµ¡­¡­²»Ëµ°®ºÞ£¬¾ÍËãÊÇÒ»µÈÔÙµÈ
106Â¥2011-05-05 19:52:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

libralibra

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)

æôÆï½«¾ü

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÒýÓûØÌû:
89Â¥: Originally posted by laiqingping at 2011-03-09 20:33:20:
ÓëANSI/ISO¼æÈݵıàÒëÆ÷£¬ÔÚwindows xpÏÂʹÓã¬×îºÃÊÇÖÐÎİ汾µÄ£¬Ð»Ð»ÏÈÀ²£¬ÎÒÊǸö³õѧÕߣ¬Çë´ó¼Ò¶à¶à°üº­À²

ÖÐÎľÍÀ§ÄÑÁË
±àÒëÆ÷È¥ËѸögcc
matlab/VB/python/c++/Javaд³ÌÐòÇë·¢QQÓʼþ:790404545@qq.com
107Â¥2011-08-24 14:37:43
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÀÃÐܵË

½ð³æ (СÓÐÃûÆø)

×ÔÈ»×ÔÓÉÕß

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
´óÏÀ£¬ÎÒÊÇÒ»¸öC#³õѧÕß
ÏÖÔÚÏÈ×öÒ»¸öÓйؽØÍ¼µÄ¶«¶«
¾ßÌåÒªÇ󣺰ÑÎÒÉÏ´«µÄÄÇÕÅͼÖеĺìÉ«²¿·Ö½ØÈ¡£¬ÇҰѺìÉ«²¿·ÖµÄ±³¾°É«È¥µô
ÔÚ±£´æÏÂÀ´£¬

ÎÒ£¬¿ÒÇë´óÏÀ£¬Äܾ¡Á¿ÏêϸµÄ˵˵±àдµÄ˼·ºÍ¹ý³Ì£¬
ÎÒÔÚ´Ëл¹ýÀ²£¬
ÔÙ×£ÄãÖÐÇï¿ìÀÖ

ÎÒ»¹ÄêÇᣬÎÒ¿ÊÍûÒ»Ö±ÔÚ·ÉÏ
108Â¥2011-09-12 22:07:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wjy3004

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)

ÌìϱøÂí´óԪ˧

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû

ÎÒ»¹ÊǸÕÕÆÎÕVB£¬¾õµÃVBµÄÃæÌ«Õ­ÁË£¬ÏÂÒ»²½Ñ§VC++£¬ÔÙÏÂÒ»²½C#
µ­²´Ã÷Ö¾£¬Äþ¾²ÖÂÔ¶¡£
109Â¥2011-12-15 09:45:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

·É»¢

ľ³æ (ÕýʽдÊÖ)

¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ËÍÏÊ»¨Ò»¶ä
ÎÒÓÐÒ»¶ÎC#³ÌÐò£¬ÔÚ¶ÓÁнÓÊÕÍêÊý¾ÝÈ»ºóÏÔʾ³ö£¬ÎÒ15ms½ÓÊÕÒ»Ö¡Êý¾Ý£¬µ«ÊÇÏÖÔÚÓжªÖ¡µÄÏÖÏó£¬ÇëÎÊÔõô½â¾ö£¿
110Â¥2012-03-30 13:41:16
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ magic7004 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 307Çóµ÷¼Á +9 ³¬¼¶ÒÁ°º´óÍõ 2026-04-06 9/450 2026-04-07 10:20 by linyelide
[¿¼ÑÐ] »¯¹¤µ÷¼Á303·Ö£¬¹ýËļ¶ +32 ÆÜÎà´ý·ç 2026-04-02 32/1600 2026-04-07 10:01 by flydream1314
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +16 СÁõͬѧ߹߹ 2026-04-06 17/850 2026-04-07 09:58 by dongzh2009
[¿¼ÑÐ] ²ÄÁϹ¤³Ì302·ÖÇóµ÷¼Á +11 zyxÉϰ¶£¡ 2026-04-04 11/550 2026-04-07 09:35 by Çç¿Õ210210
[¿¼ÑÐ] 22408 µ÷¼Á²ÄÁÏ +6 ÎÒ½Ðez 2026-04-06 7/350 2026-04-07 09:04 by MW_WTU
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á 348·Ö +8 °¦ÎÒ³¬ÕæÃ»ÕÐÁË 2026-04-06 8/400 2026-04-07 08:19 by houyaoxu
[¿¼ÑÐ] 0854µç×ÓÐÅÏ¢319Çóµ÷¼Á£¨½ÓÊÜ¿çרҵµ÷¼Á£© +3 ÐÇÐDz»Õ£ÑÛà¶ 2026-04-05 3/150 2026-04-05 20:20 by à£à£à£0119
[¿¼ÑÐ] 298·Ö 070300Çóµ÷¼Á +15 zwen03 2026-04-02 15/750 2026-04-05 12:52 by Hdyxbekcb
[¿¼ÑÐ] 271·ÖÇóµ÷¼ÁѧУ +12 zph158488£¡ 2026-04-02 13/650 2026-04-05 10:13 by lqwchd
[¿¼ÑÐ] ÄÐÉú£¬Ò»Ö¾Ô¸»¦9ÉúÎïѧ071000£¬³õÊÔ308Çóµ÷¼Á +3 Áõīī 2026-04-04 3/150 2026-04-05 08:26 by barlinike
[¿¼ÑÐ] 323Çóµ÷¼Á +8 Àî¼ÑÀÖ1 2026-04-04 8/400 2026-04-04 22:26 by hemengdong
[¿¼ÑÐ] 294Çóµ÷¼Á +6 Grey_Ey 2026-04-02 9/450 2026-04-04 22:07 by hemengdong
[¿¼ÑÐ] ±¾¿Æ211£¬×¨Òµ085404£¬293·ÖÇëÇóµ÷¼Á +5 Á«²Ë¾ÍÊÇź°É 2026-04-04 5/250 2026-04-04 14:08 by ÕâÊÇÒ»¸öÎÞÁĵÄê
[¿¼ÑÐ] Ò»Ö¾Ô¸»¦985£¬326·ÖÇóµ÷¼Á +3 Áõīī 2026-04-03 3/150 2026-04-04 11:16 by ±¯É˵ÄÓóÍ·
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +11 ÎâèùÓ±£¡ 2026-04-03 11/550 2026-04-04 09:56 by ССÊ÷2024
[¿¼ÑÐ] һ־Ը˫·Ç085502£¬267·Ö£¬¹ýËļ¶Çóµ÷¼Á +3 ÔÙæҲҪ³Ô·¹°¡ 2026-04-03 3/150 2026-04-04 05:03 by gswylq
[¿¼ÑÐ] ×Ü·Ö328ÉúÎïÓëÒ½Ò©¿¼ÊýѧÇóµ÷¼Á +7 aaadim 2026-04-02 9/450 2026-04-03 22:53 by syh9288
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +6 ÏàÐűػá¹ââÍòÕ 2026-03-31 7/350 2026-04-02 23:16 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼²ÄÁÏ¿ÆÑ§Ó빤³Ì288·Ö£¬Çóµ÷¼Á +14 Êdz½°¡ 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[¿¼ÑÐ] 266Çóµ÷¼Á +4 ѧԱ97LZgn 2026-04-02 4/200 2026-04-02 09:52 by yulian1987
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û