关于《终极进销存》的一段代码

jiahaocn

BIN_YANG168 版主的“终极进销存”示例的一段代码，可以讲解一下吗，谢谢！！！
   —— 如果汲及板权的话，证明版主删除吧……
Private Sub Workbook_Open()
    Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
    strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
    Select Case Left(strCon, 5)
    Case "ODBC;"
        iFlag = "DBQ="
    Case "OLEDB"
        iFlag = "Source="
    Case Else
        Exit Sub
    End Select
    iStr = Split(Split(strCon, iFlag)(1), ";")(0)
    iPath = Left(iStr, InStrRev(iStr, "\") - 1)
    With ActiveSheet.PivotTables(1).PivotCache
        .Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
        .CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
    End With
End Sub

[ 本帖最后由 jiahaocn 于 2009-8-20 19:45 编辑 ]

jssy

已对该代码进行修改,以适应路径变化和文件更名等不同情况,并对主要代码进行解释,请参考:
http://club.excelhome.net/thread-472788-1-1.html

jiahaocn

谢谢回复,看看去