Write formatted text in a spreadsheet using VB 6.0

Dim xlApp As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim rowNum As Integer

Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Add()
rowNum = 2
'Specify your worksheet name
Set ws = wb.Worksheets(1)

ws.Name = "BoxCheckReport"
ws.Range(Trim("A1")).Value = "Account No" 'First header row value
ws.Range(Trim("A1")).EntireRow.Font.Bold = True
ws.Range(Trim("A1")).EntireRow.Font.Color = vbBlue
ws.Cells.EntireColumn.ColumnWidth = 25
'ws.Columns.Column(1

ws.Range(Trim("A:A")).NumberFormat = "#####################"

'Set horizontal alignment to Left
xlApp.Range("A:A").HorizontalAlignment = 2
xlApp.Range("B:B").HorizontalAlignment = 2
xlApp.Range("C:C").HorizontalAlignment = 2
xlApp.Range("D:D").HorizontalAlignment = 2


ws.Range(Trim("B1")).Value = "Entry Date" 'header row value
ws.Range(Trim("C1")).Value = "Doc Type" 'header row value
ws.Range(Trim("D1")).Value = "Doc ID" 'header row value

ws.Range(Trim("A2").Value = "1010101010"
ws.Range(Trim("B2").Value = "01/01/02"
ws.Range(Trim("C2").Value = "NAP"
ws.Range(Trim("D2").Value = "001"

wb.SaveAs "c:\ExcelReport.csv"
If Not ws Is Nothing Then
Set ws = Nothing
End If
If Not wb Is Nothing Then
wb.Close
Set wb = Nothing
End If
If Not xlApp Is Nothing Then
xlApp.Quit
Set xlApp = Nothing
End If

'After writing text in the spreadsheet just open it for User to view
ShellExecute 0, vbNullString, "c:\ExcelReport.csv", vbNullString, vbNullString, vbNormalFocus
-----------
OTHER LINKS
-----------
http://www.codeproject.com/vbscript/AssetScan.asp?df=100&forumid=188977&exp=0&select=1268478
http://www.codeguru.com/vb/gen/vb_misc/tips/article.php/c8227/

FileNet P8 4.0 Features

Core P8 4.0 Features:

• J2EE Content Engine on 5 platforms (Windows, AIX, Solaris, HP-UX, Red hat Linux and Suse Linux)
• Scalability improvements (farming and clustering)
• Compound document framework
• Security enhancements
• Enterprise site topology
• Distributed content caching
• CFS-IS, Annotation Support
• Multilingual AE/PE (dynamic handling of multiple languages on single engine)
• Complete .NET API for CE
• BPMN (import of visually developed business processes)
• Content Streaming API
• Process Analyzer enhancements
• Business Process Modeling Notation (BPMN)
• Enabling transition of eProcess and VW apps to BPM
• Single Sign-On Framework
• Netegrity support
• IBM Directory support
• AD Multi-Forest support
• Removing hard-coded users/groups
• Installer improvements
• Oracle 10g and 10g RAC support
• HP Itanium – Integrity Server support

P8 Platform 4.0 Security Enhancements

• Unified P8 Directory Service Provider
• Single Sign-On Framework
• Support for IBM Directory (suprise!)
• Active Directory Multi-Forest
• No AD dependency for non AD LDAP system
• No Enterprise Manager or Capture AD domain membership requirement

.NET Development in P8 4.0:

• Extending CE ability to service Microsoft .NET developers
• 4.0 includes a complete .NET API for CE
• C# representation of the CE object model
• .Net 2.0 Framework compatible

How to get a stamp on the page after being scanned?

'STAMPER' property of Scan component can be set to write a particular Text/String on the page after its been scanned. Show 'Scan' properties of a settings and goto 'Stamper' tab and configure whatever string you want to configure.

'Server batch cache is FULL!' error while committing batches using FileNet Capture 4.1

This error(Error tuple is 77,0,8)occurs if we have an application which is trying to commit number of batches using Capture. The solution is to wait for some time untill all the batches in BATCH CACHE are committed. Start using FileNet Capture 4.1 after some time. This should work fine. More information on this error can be found on FileNet site http://www.css.filenet.com/