Context: |
General |
Library/Class: |
Sample Code |
Removing Excel template comments before Save As... or Send To... As Integer, Read/Write
In a scenario where an Excel template attached to the Integra profile contains comments to indicate to the user the places where the exported Excel spreadsheet needs to be completed prior to sending it as a mail attachment or prior to save it back into a Notes database, these comments do not need to be in the final Excel workbook.
The following example removes all comments from the Excel workbook prior to sending or saving it as an attachment.
Const CB_INITIALISE = 3
Const CB_ACTIONONLY = 16
Const CB_BFOREXPORT = 10
Const CB_INVALID = 12
Const CB_CATEGORY = 13
Const CB_TOTAL = 14
Const CB_CONFLICT = 15
Const CB_BFORREADNOTES = 6
Const CB_BFORWRITECOM = 1
Const CB_AFTERWRITECOM = 9
Const CB_BFORCOMACTION = 5
Const CB_BFORNOTESACTION = 2
Const CB_TERMINATE = 4
select case stats.cbstatus
case CB_INITIALISE
case CB_ACTIONONLY
case CB_BFOREXPORT
case CB_INVALID
case CB_CATEGORY
case CB_TOTAL
case CB_CONFLICT
case CB_BFORREADNOTES
case CB_BFORWRITECOM
case CB_AFTERWRITECOM
case CB_BFORCOMACTION
case CB_BFORNOTESACTION
Do While stats.XlsSheet.Comments.Count > 0
Call stats.XlsSheet.Comments(1).Delete
Loop
if not stats.savdoc is nothing then
else
end if
case CB_TERMINATE
end select
|