!Plz help.Will it possible to pop up Excel Sheet from a "Web Client" to click on a button

HCL Domino Domino Forum
1

Hi, For R5 Web Client

I have written an agent by which i m creating a chart in Excel Sheet .this agent i m running under a click of a button. but once i click this button this Excel sheet always open on “Server” not at my client machien. I m using a web Browser. On notes client it does’t give any prob. always open at my client machien but on web browser it was’t open at my client machien only on Server we can see their is a Excel visible. I want to open this Excel sheet on client machien by which who will click the button can see that excel file.

Well i do not know any way to do the same.

Please help me to overcome this prob…

Thanks in advance

Mudit Sharma

2

Subject: !!!Plz help.Will it possible to pop up Excel Sheet from a “Web Client” to click on a button

Today I deployed this one across a half dozen databases:Export view to Excel from Domino Web using LotusScript

It works great!

If you still want to use your own code, post it here so we can look it over.

3

Subject: RE: !!!Plz help.Will it possible to pop up Excel Sheet from a “Web Client” to click on a button

Hi here is my code kindly goo through. actully i m getting docs fro a view and filtering also creating an Excel file and putting all data into worksheet one. this worksheet will be the input for my chart. but it was’t works ones i use this code on a web browser As this file always displayed on the server not at my client machine.

Dim session As New NotesSession

Dim db As NotesDatabase

Dim listdoc As NotesDocument

Dim filterdoc As NotesDocument

Set db = session.CurrentDatabase



Set maildoc = New notesdocument(db)

Const NotesMacro$ = "@Left(ex;"":"")"

Dim docview As NotesView

Dim dataview As NotesView



Set docview = db.getview("WeeklyStatusReport")  'get selected view

Dim entryOne As NotesViewEntry

Dim entryTwo As NotesViewEntry

Dim vc As NotesViewEntryCollection

Dim vc1 As NotesViewEntryCollection

Set vc1 = docview.AllEntries







fname="Deptwise Graphical Report"+".xls"

y(1)= "January"

y(2)="February"	

y(3)="March"

y(4)="April"	

y(5)="May"

y(6)="June"

y(7)="July"

y(8)="August."

y(9)="September."

y(10)="October"

y(11)="November"

y(12)="December"





Dim xlApp As Variant

Dim xlsheet As Variant



Set xlApp = CreateObject("Excel.application")

Set objEWrk=xlApp.Workbooks.add 

Set xlsheet = xlApp.Workbooks(1).Worksheets(1)



Set xlsheet = xlApp.Workbooks(1).Worksheets(1) 

xlsheet.Cells(1,2).Value= "January"

xlsheet.Cells(1,3).Value= "February"

xlsheet.Cells(1,4).Value= "March"

xlsheet.Cells(1,5).Value= "April"

xlsheet.Cells(1,6).Value= "May"

xlsheet.Cells(1,7).Value= "June"

xlsheet.Cells(1,8).Value= "July"

xlsheet.Cells(1,9).Value= "August"

xlsheet.Cells(1,10).Value= "September"

xlsheet.Cells(1,11).Value= "October"

xlsheet.Cells(1,12).Value= "November"

xlsheet.Cells(1,13).Value= "December"





Site(1)="Central Dropship"

Site(2)="CERQUAD Assembly"

Site(3)="Die Cage"

Site(4)=" End line"

Site(5)="ESH"

Site(6)="Facilities"

Site(7)="Flip Chip Assembly"

Site(8)="Hermatic Assembly"

Site(9)="HR"

Site(10)="IT/CIM"

Site(11)="KESM"

Site(12)="Test"

Site(13)="KTM TBE"

Site(14)="Learning Center"

Site(15)="Metal Finishing"

Site(16)="Metology Lab"

Site(17)="NPI"

Site(18)="PA LAB/Reliability"



xlsheet.Cells(2,1).Value= "Central Dropship"

xlsheet.Cells(3,1).Value= "CERQUAD Assembly"

xlsheet.Cells(4,1).Value= "Die Cage"

xlsheet.Cells(5,1).Value= " End line"

xlsheet.Cells(6,1).Value= "ESH"

xlsheet.Cells(7,1).Value= "Facilities"

xlsheet.Cells(8,1).Value= "Flip Chip Assembly"

xlsheet.Cells(9,1).Value= "Hermatic Assembly"

xlsheet.Cells(10,1).Value= "HR"

xlsheet.Cells(11,1).Value= "IT/CIM"

xlsheet.Cells(12,1).Value= "KESM"

xlsheet.Cells(13,1).Value= "Test"

xlsheet.Cells(14,1).Value= "KTM TBE"

xlsheet.Cells(15,1).Value= "Learning Center"

xlsheet.Cells(16,1).Value= "Metal Finishing"

xlsheet.Cells(17,1).Value= "Metology Lab"

xlsheet.Cells(18,1).Value= "NPI"

xlsheet.Cells(19,1).Value= "PA LAB/Reliability"



Row=2



For i=1 To 18

	

	x1=0

	x2=0

	x3=0

	x4=0

	x5=0

	x6=0

	x7=0

	x8=0

	x9=0

	x10=0

	x11=0

	x12=0

	

	Set entryTwo = vc1.GetFirstEntry() 

	CntDefect2=vc1.count

	

	'While Not filterdoc Is Nothing

	For jg=1 To CntDefect2	

		Set filterdoc= entryTwo.Document

		

		ddate=filterdoc.createdMonth(0)

		If  ddate=y(1) Then

			If filterdoc.dept(0)=Site(i) Then

				x1=x1+1

			End If

		End If

		

		If  ddate=y(2) Then

			If filterdoc.dept(0)=Site(i) Then

				x2=x2+1

			End If

		End If

		

		If  ddate=y(3) Then

			If filterdoc.dept(0)=Site(i) Then

				x3=x3+1

			End If

		End If

		

		If  ddate=y(4) Then

			If filterdoc.dept(0)=Site(i) Then

				x4=x4+1

			End If

		End If

		

		If  ddate=y(5) Then

			If filterdoc.dept(0)=Site(i) Then

				x5=x5+1

			End If

		End If

		

		If  ddate=y(6) Then

			If filterdoc.dept(0)=Site(i) Then

				x6=x6+1

			End If

		End If

		

		If  ddate=y(7) Then

			If filterdoc.dept(0)=Site(i) Then

				x7=x7+1

			End If

		End If

		

		If  ddate=y(8) Then

			If filterdoc.dept(0)=Site(i) Then

				x8=x8+1

			End If

		End If

		

		If  ddate=y(9) Then

			If filterdoc.dept(0)=Site(i) Then

				x9=x9+1

			End If

		End If

		

		If  ddate=y(10) Then

			If filterdoc.dept(0)=Site(i) Then

				x10=x10+1

			End If

		End If

		

		If  ddate=y(11) Then

			If filterdoc.dept(0)=Site(i) Then

				x11=x11+1

			End If

		End If

		

		If  ddate=y(12) Then

			If filterdoc.dept(0)=Site(i) Then

				x12=x12+1

			End If

		End If

		

		

		

		

		Set entryTwo = vc1.GetNextEntry(entryTwo)

		

		Set xlsheet = xlApp.Workbooks(1).Worksheets(1) 

		

	Next

	

	xlsheet.Cells(Row,2).Value= x1

	xlsheet.Cells(Row,3).Value= x2

	xlsheet.Cells(Row,4).Value= x3

	xlsheet.Cells(Row,5).Value= x4

	xlsheet.Cells(Row,6).Value= x5

	xlsheet.Cells(Row,7).Value= x6

	xlsheet.Cells(Row,8).Value= x7

	xlsheet.Cells(Row,9).Value= x8

	xlsheet.Cells(Row,10).Value= x9

	xlsheet.Cells(Row,11).Value= x10

	xlsheet.Cells(Row,12).Value= x11

	xlsheet.Cells(Row,13).Value= x12

	

	Row=Row+1

	

Next

jj=1

jj=1

chartchoice=21

XlApp.Charts.Add

Dim tchart As Variant

Set tchart = XlApp.Charts("Chart1")

'tchart.ChartType = chartchoice



'Type Name ="Line - Column"

'tchart.ApplyCustomType=True

tchart.ChartType = chartchoice

tchart.SetSourceData(xlSheet.Range("A1:M19")), jj

'tchart.SetSourceData(xlSheet.Range("A1:M19")

'tchart.PlotBy=xlColumns

'tchart.Axes(xlSheet).Gridlines.Select

'tchart.PlotBy = xlRows





With tchart

	'.PlotArea.Select

	

	.HasDataTable = True

	.DataTable.ShowLegendKey = True

	.HasTitle = True

	.ChartTitle.Characters.Text = Ucase(charttitle) & Chr$(10)  & Cstr(Today)

	.HasLegend = True

	'.Axes(xlValue).MajorGridlines.Select

	'.PlotBy = xlRows

'If(chartchoice=51) Then

	'.ApplyDataLabels

	

End With

xlapp.visible=True