use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; use Win32::OLE::Variant; use Win32::OLE::NLS qw(:LOCALE :DATE); use Win32::OLE; use Win32::OLE::Const; $Win32::OLE::Warn = 3; # die on errors... my $filter = 'PNG'; # can be GIF, JPG, JPEG or PNG $filename = "C:\\graph1.xls"; my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); # use the Excel application if it's open, otherwise open new my $Book = $Excel->Workbooks->Open( $filename ); # open the file foreach my $Sheet (in $Book->Sheets) { # loop through all sheets foreach my $ChartObj (in $Sheet->ChartObjects) { # loop through all chartobjects in the sheet #$pngsave = join("",split(/\s+/,$graphtitle)); $dirpath = "c:\\Tt"; mkdir ("$dirpath", 0777); my $savename = "$dirpath\\test" . ".$filter"; #check out the variable name # Write image to PNG file $ChartObj->Chart->Export({ FileName => $savename, #check out the variable name FilterName => $filter, Interactive => 0}); } } ##

##


	

	   
	   	Enter a Value

	   	

	   	

	   


	<%
	   dim nm

	   nm = request.form("fname")

	   if nm <> "" then

	   	   response.write(" 
 hi "& nm &"" )
	   	   response.write(" 
 have a good start ")

	   	   	set shell = Createobject("wscript.shell")

			shell.run "cmd.exe /c  C:\\Perl\\bin\\perl " & nm, 1, 1


			set shell = nothing

	   end if
	%>