BCB操作Excel有关问题

BCB操作Excel问题

C/C++ code

vExcelApp.OleFunction("RUN","group");
vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", strXlsFile.c_str());

按道理如果出现保存的是同名文件的话，系统会弹出窗口提示要不要覆盖的。可是我加进去那个执行宏的语句之后就没提示了，直接覆盖。各位大大能否看看是不是这个宏的问题？

VB code

Sub group()
    Dim arr, brr(), i&, j&, m&
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    arr = Range("A1").CurrentRegion
    ReDim brr(1 To UBound(arr))
    For i = 3 To UBound(arr)
        If arr(i, 1) <> arr(i - 1, 1) Then
            m = m + 1
            brr(m) = i
        End If
    Next
    brr(m + 1) = i
    For j = 1 To 8
        For l = 1 To m
            For i = brr(l) + 1 To brr(l + 1) - 1
                If arr(i, j) = arr(i - 1, j) Then Cells(i - 1, j).Resize(2).Merge
            Next
        Next
    Next
    Application.ScreenUpdating = True
End Sub

这是分类汇总，可是我用别的宏没出现这种情况，这个宏哪些地方需要修改的？

------解决方案--------------------
你的宏代码中已经指定屏蔽了弹出警告，所以。。。

就这句：
Application.DisplayAlerts = False

如果想弹出要不要覆盖的提示，就把上面的False改成True

相关推荐