数据透视中指定操作源数据

bartonsk

请教各位网友和老师,附件是一个原始文件
想录制一个宏,放在个人宏文件簿里作为功能使用,问题是将下述代码放到 "个人宏文件簿"里面的时候,操作文件簿都是personal.xlsb,而不是源文件,
但是如果直接在源数据里面建宏使用,就是正常的.
请教一下如何改进?

Sub 数据汇总()
   
    Rows("4:4").Select
    If (Cells(4, 1) <> "") Then
       MsgBox "已经处理过"
       Exit Sub
    End If
    Selection.Delete Shift:=xlUp
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "BS"
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A4").Select
    Selection.End(xlDown).Select
    Selection.ClearContents
    Dim sht As Worksheet
    Set sht = ThisWorkbook.Sheets(1)
     Dim rngData As Range
    Set rngData = sht.Range("A3").CurrentRegion
     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        rngData, Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:=sht.Range("G3"), TableName:= _
        "数据透视表1", DefaultVersion:=xlPivotTableVersion14
        
    Cells(3, 7).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("BS")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
        ).PivotFields("    成交"), "求和项:    成交", xlSum

End Sub

bartonsk

本想偷懒,利用数据透视表写汇总,结果两个工作簿之间切换问题一直解决不了.最后无奈,自己换个思路,不涉及工作簿之间的引用.
Sub 分时内外盘处理()
'由通达信导出的内外盘自动处理
    If Cells(1, 2) <> "" Then
        MsgBox "适用程序错误,请重新检查"
        Exit Sub
    End If
    Columns("G:J").Select
    Selection.ClearContents
    Rows("4:4").Select
   
    Selection.Delete Shift:=xlUp
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "BS"
    Range("A3").Select
    Selection.End(xlDown).Select
    Selection.ClearContents
   
    Dim sumb, sums  'sumb sums 为统计买卖数量
    Dim count As Integer
    sumb = 0
    sums = 0
    count = 4 'count 记录不为空的数量
   
   While Cells(count, "C") <> ""
        If Cells(count, "E") = "B" Then
            sumb = sumb + Cells(count, "C")
        End If
        
        If Cells(count, "E") = "S" Then
            sums = sums + Cells(count, "C")
        End If
        count = count + 1
    Wend
  Range("G3") = "统计结果"
     Range("H3") = "求和"
     Range("G4") = "B"
     Range("G5") = "S"
     Range("G6") = "差幅"
     Cells(4, "H") = sumb
     Cells(5, "H") = sums
     Cells(6, "H") = sumb / sums - 1
End Sub