[½»Á÷] ¡¾½»Á÷¡¿VC++, C#, VB´ðÒÉרÌù ÒÑÓÐ69È˲ÎÓë

Originally posted by moon345 at 2011-04-27 09:47:48:
ÎÒÏëͨ¹ývb°Ñijһ¸öexcel±í¸ñµÄijÁ½ÁеÄÊý¾Ý¶ÁÈ¡³öÀ´£¬´æ·ÅÔÚÊý×éÖУ¬¶Ô¶ÁÈ¡µÄÊý¾Ý»æÖÆÇúÏߣ¬È»ºóÔÙ°ÑÊý¾Ý´æÓÚÁíÍâÒ»¸öexcel£¬ÈçºÎ²Ù×÷°¡£¬±ÏÉèÓõ½£¬ÎÒÊDzËÄñ£¬²»»á£¬ÓиßÊÖ¸ø¸öÀý×Ó»òÕ߽̽ÌÎÒ°¡£¡£¡£¡

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

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

Originally posted by jjdg at 2009-11-20 15:21:
ÎÒÒ²³£ÓÃvb£¬²»¹ý¶¼ÊÇдע²á»úÀ²£¡Ð¡¶«¶«¶øÒÑ£¡