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 = TrueEnd Sub

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


[解决办法]
你的宏代码中已经指定屏蔽了弹出警告，所以。。。

就这句：
Application.DisplayAlerts = False

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

查看更多 下一篇