Creating Excel Spreadsheets In IE

原创 2004年10月12日 21:29:00
Let's use the same example  You have a view, column 1 is categorized, columns 2 and 3 are totals. In the spreadsheet, columns D and E will be computed.

To make things easy, let's do this in an agent. So the URL will be ....agentName?OpenAgent. The simplest way to create a spreadsheet is to send an HTML table directly to Excel in your agent. This is done by setting the content type in your agent. The content type will send the information directly to Excel. Here's an example:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim excel As Variant
   Dim worksheet As Variant
   Dim cell As Variant
   Dim view As NotesView
   Dim nav As NotesViewNavigator
   Dim entry As NotesViewEntry
   Dim rowNum As Integer
   
   Print {Content-Type:application/vnd.ms-excel}
   Print {<HTML><HEAD>}
   Print {</HEAD>}
   Print {<BODY>}
   Print {<TABLE>}
   Print {<TR>}
   Print {<TD WIDTH="55"><B>Conference</B></TD>}
   Print {<TD WIDTH="60"><B>Home Wins</B></TD>}
   Print {<TD WIDTH="70"><B>Home Losses</B></TD>}
   Print {<TD WIDTH="60"><B>Home Win %</B></TD>}
   Print {<TD WIDTH="80"><B>Cumulative Win %</B></TD>}
   Print {</TR>}

The content type of application/vnd.ms-excel tells the browser to use Excel. Then we simply build a table. The first row, we set the column widths and put the headers in bold. (Last week we set the column widths and made the headers bold after everything else was done). The same variables will be needed this time.

   rowNum = 2 ' Current row of data
   
   ' Get a NotesViewNavigator from our view
   Set db = session.CurrentDatabase
   Set view = db.GetView("vwByConference")
   Set nav = view.CreateViewNav
   Set entry = nav.GetFirst

This is the same as last week - setting up the view navigator.

   ' Go through all the entries in the view
   While Not entry Is Nothing
      Print {<TR>}
      Print {<TD>} & entry.ColumnValues(0) & {</TD>}
      Print {<TD>} & Cstr(entry.ColumnValues(1)) & {</TD>}
      Print {<TD>} & Cstr(entry.ColumnValues(2)) & {</TD>}
      Print {<TD>=B} & Cstr(rowNum) & {/(B} & Cstr(rowNum) & {+C} & Cstr(rowNum) & {)</TD>}
      Print {<TD>=Sum(B2..B} & Cstr(rowNum) & {)/(Sum(B2..B} & Cstr(rowNum) & {)+Sum(C2..C} _
      & Cstr(rowNum) & {))</TD>}
      Print {</TR>}
      rowNum = rowNum + 1
      Set entry = nav.GetNextCategory(entry)
   Wend

This is a little different than last week. This time, we are printing out HTML that will end up being the cell values. Columns A, B, and C are straightforward. For columns D and E, we want to create a formula. That's why we start out the cell data with the equals sign. Then it's the formula, in the same way you would type it in to Excel. So, for row #4, the value in column D will be =B4/(B4+C4). Again, for the "cumulative" row, the sum is computed from row 2 through the current row.

   Print "</TABLE></BODY></HTML>"
End Sub

Since all the formatting was done in the first row of the table, nothing more is needed here.

If you actually run this agent, you'll notice that the number formatting for columns D and E are "general". In the OLE automation version from last week, we formatted the data to be percentage with one decimal point. I do not belive there is any way to accomplish this same formatting using the <TABLE> technique. Next week I'll talk about using ActiveX on the browser to create a spreadsheet that you can format.

Creating Excel Spreadsheets In Notes

Have you wanted to create Excel spreadsheets from within Notes but didnt know how to do it? Standard...
  • snowdot23
  • snowdot23
  • 2004年10月12日 21:31
  • 740

codeforces B. Spreadsheets 计算excel的行列

没想到这道题看起来这么简单,要写出无Bug的程序居然这么麻烦,要处理挺多情况的。 如: 1 判断是什么格式,然后转到相应的转换 2 26进制和10进制互相转换,如何处理 3 26进制还不是从0开始的,...
  • kenden23
  • kenden23
  • 2014年05月01日 16:55
  • 1182

Creating Excel Spreadsheets In Notes/IE Using OLE/ActiveX

about creating an Excel spreadsheet using OLE Automation in Notes and using ActiveX in Internet Expl...
  • snowdot23
  • snowdot23
  • 2004年10月12日 21:30
  • 813

1B. Spreadsheets【进制转换】

B. Spreadsheets time limit per test 10 seconds memory limit per test 64 megabytes input standa...
  • liuke19950717
  • liuke19950717
  • 2016年06月09日 10:54
  • 322

Creating Excel Spreadsheets with Office Web Components

Creating Excel Spreadsheets with Office Web Components (OWC) By Scott Mitchell - 挪威的森林 - BlogJavaCre...
  • mindva
  • mindva
  • 2008年09月02日 14:25
  • 707

CodeForces 1B Spreadsheets(EXCEL)

26进制的精确计算。 把所有变量都拿到while 循环外面避免内存超了
  • nameofcsdn
  • nameofcsdn
  • 2016年07月21日 13:35
  • 1349

CF_1B_Spreadsheets

B. Spreadsheets time limit per test 10 seconds memory limit per test 64 megabytes input standa...
  • baidu_29410909
  • baidu_29410909
  • 2016年03月20日 23:16
  • 467

CodeForces 1B Spreadsheets

题目链接: http://codeforces.com/problemset/problem/1/B 题意:给出两种行列 ...
  • fjy4328286
  • fjy4328286
  • 2014年07月22日 09:41
  • 974

Google Spreadsheets

 Google 的web office 计划正在按部就班的进行着,这不,06年6月6日(昨天)又发布了Google Spreadsheets在线表格处理软件 —— Excel的强劲对手。和Gmail一...
  • acumengrass
  • acumengrass
  • 2006年11月03日 16:27
  • 599

利用ie导出excel文件的方法

 1、重新做一个页面,页面样式和要导出的excel文件格式相同,在页面的最上面加入如下语句:String year=String.valueOf(request.getAttribute("year"...
  • gaoligaoli
  • gaoligaoli
  • 2007年09月19日 16:06
  • 3772
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Creating Excel Spreadsheets In IE
举报原因:
原因补充:

(最多只允许输入30个字)