VB操作excel

Public Function GetFieldValue1(CurRange As Range, FieldName As String, strCondition As String) As String
On Error GoTo err1

Dim i As Long
Dim RowCount As Long
Dim ColCount As Long
Dim j As Long
Dim FieldCol As Long

RowCount = CurRange.Rows.Count
ColCount = CurRange.Columns.Count

For j = 1 To ColCount
If CurRange.Cells(1, j).Value = FieldName Then

Exit For
End If
Next

For i = 2 To RowCount
For j = 2 To ColCount
CurRange.Cells(i, j).Value
Next 'j
Next 'i

Exit Function
err1:
Debug.Print Err.Description
Err.Clear
GetFieldValue1 = ""

End Function
Public Function SumByMutiCondition(ExcelFileName As String, SheetName As String, FieldName As String, strCondition As String) As Double
On Error GoTo err1

Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQL As String

Set Conn = New ADODB.Connection
If (Trim$(ExcelFileName) = "") Then
If (Right(Excel.ActiveWorkbook.Path, 1) = "\") Then
ExcelFileName = Excel.ActiveWorkbook.Path & Excel.ActiveWorkbook.Name
Else
ExcelFileName = Excel.ActiveWorkbook.Path & "\" & Excel.ActiveWorkbook.Name
End If
' MsgBox ExcelFileName
End If
With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelFileName & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
.Open
End With

'SELECT * FROM [sheet1$]"

SQL = "SELECT " & FieldName & " FROM [" & SheetName & "$] WHERE " & strCondition

Debug.Print SQL

Set Rs = Conn.Execute(SQL, , adCmdText)
If Not Rs Is Nothing Then
If Rs.State <> 0 Then
' If Not Rs.EOF And Not Rs.BOF Then
' SumByMutiCondition = Rs.Fields(0).Value & ""
' End If
SumByMutiCondition = 0
Do While Not Rs.EOF And Not Rs.BOF
SumByMutiCondition = SumByMutiCondition + IIf(IsNull(Rs.Fields(0).Value), 0, Rs.Fields(0).Value)
Rs.MoveNext
Loop
Rs.Close
End If
Set Rs = Nothing
End If

Conn.Close
Set Conn = Nothing
Exit Function

err1:
Debug.Print Err.Description
Err.Clear
SumByMutiCondition = 0
Set Rs = Nothing
Set Conn = Nothing
End Function