Open Office - Components Source Code in ASP

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

24185 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » ASP Home » Components Home » Open Office

A D V E R T I S E M E N T

Title	Open Office
Description	This will allow you to open and manipulate office programs.
Category	ASP » Components
Hits	364359
Code	Select and Copy the Code
<% '********************************* 'EXCEL '********************************* Dim xls, I, J, tempName, tempPath, tempnum On Error Resume Next Set xls = CreateObject("Excel.Application") With xls ' Make sure there is no minimized window created .Application.Visible = False ' Add a new workbook .Workbooks.Add ' Select some cells to put the DATETIME in it .Range("A1:C1").Select .Selection.MergeCells = True .Selection = Now ' populate some cells For I = 2 To 15 For J = 2 To 20 tempnum = 12 If J = 15 Then .Cells(J, I).Value = Sqr(ij) / (i^tempnum) ElseIf J = 10 Then .Cells(J, I).Value = (i+j) (i^tempnum) Else .Cells(J, I).Value = (i+j)^2 End If Next Next .Charts.Add .ActiveChart.ChartType = 67 'xlLineMarkersStacked100 = 67 ' xlColumns = 2 .ActiveChart.SetSourceData .Sheets("Sheet1").Range("B2:O20"), 2 ' xlLocationAsNewSheet = 1 .ActiveChart.Location 1 With .ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "My Kewl Chart number #" & CStr(tempnum) .Axes(1, 1).HasTitle = True .Axes(1, 1).AxisTitle.Characters.Text = "X axis for you" .Axes(2, 1).HasTitle = True .Axes(2, 1).AxisTitle.Characters.Text = "Y axis for me" End With With .ActiveChart.Axes(1) .HasMajorGridlines = True .HasMinorGridlines = False End With With .ActiveChart.Axes(2) .HasMajorGridlines = True .HasMinorGridlines = False End With .ActiveChart.HasLegend = True .ActiveChart.Legend.Select ' xlBottom = -4107 .Selection.Position = -4107 ' xlDataLabelsShowNone = -4142 .ActiveChart.ApplyDataLabels -4142, False .ActiveChart.HasDataTable = False ' Make a path for the file to be saved tempName = Hour(Now) & Minute(Now) & Second(Now) & ".xls" tempPath = "d:inetpubwwwroot esting" & tempName ' Save the Workbook in my web drive .Application.DisplayAlerts = False .Sheets("Sheet2").Select .ActiveWindow.SelectedSheets.Delete .Sheets("Sheet3").Select .ActiveWindow.SelectedSheets.Delete .Sheets("Chart1").Select .Application.DisplayAlerts = True .ActiveWorkbook.SaveAs tempPath '.ActiveWorkBook.PrintOut 1 .ActiveWorkbook.Close ' VERY IMPORTANT HERE ' Quit the Application ' xls.Quit is NOT enough...is it only the reference to the Excel Object ' you still have to terminate the Application .Application.Quit End With ' VERY IMPORTANT HERE ' Release the memory Set xls = Nothing '********************************* 'WORD '******************************* Dim wrd, doc, filepath, filename On Error Resume Next Set wrd = CreateObject("Word.Application") With wrd ' Make sure there is no minimized window created .Application.Visible = False ' Add a new document .Documents.Add filepath = "d:inetpubwwwroot" filename = "silly" & Second(Now) & ".doc" .ActiveDocument.SaveAs filepath & filename, 0 ' Word Document Format doc = "This is a document" & vbCrLf doc = doc & "IDENTIFICATION: ME!!!" & vbCrLf doc = doc & Date & vbCrLf doc = doc & filepath & vbCrLf & vbCrLf doc = doc & "WHAT DO YOU WANT???" With .Selection .Selection.TypeText doc .Selection.WholeStory .Selection.Font.Name = "Courier New" .Selection.Font.Bold = True .Selection.Font.Italic = True .Selection.Font.Size = 32 .Selection.HomeKey End With .ActiveDocument.Close -1 'Save Changes ' VERY IMPORTANT HERE ' Quit the Application ' wrd.Quit is NOT enough...is it only the reference to the Word Object ' you still have to terminate the Application .Application.Quit End With ' VERY IMPORTANT HERE ' Release the memory Set wrd = Nothing '******************************* 'MSACCESS '******************************* Dim msa, I, J, tempName, tempPath, tempnum Dim Mywk, newDb On Error Resume Next Set msa = CreateObject("Access.Application") tempName = Hour(Now) & Minute(Now) & Second(Now) & ".mdb" tempPath = "d:inetpubwwwroot esting" & tempName Set Mywk = msa.DBEngine.Workspaces(0) Set newDb = Mywk.CreateDatabase(tempPath, ";LANGID=0x0409;CP=1252;COUNTRY=0") newDb.close Mywk.Close Set newDb = Nothing Set Mywk = Nothing msa.Application.Quit Set msa = Nothing '******************************* 'POWERPOINT '********************************* Dim ppt, I, J, tempName, tempPath, tempnum On Error Resume Next Set ppt = CreateObject("PowerPoint.Application") tempName = Hour(Now) & Minute(Now) & Second(Now) & ".ppt" tempPath = "d:inetpubwwwroot esting" & tempName ppt.Presentations.Add -1 ppt.ActiveWindow.View.GotoSlide ppt.ActivePresentation.Slides.Add(1, 12).SlideIndex ppt.ActiveWindow.Selection.SlideRange.Shapes.AddLabel(1, 114, 156, 474, 36).Select ppt.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(1, 0).Select With ppt.ActiveWindow.Selection.TextRange .Text = "WOW THIS WORKS!!!" With .Font .Name = "Times New Roman" .Size = 24 .Bold = 0 .Italic = 0 .Underline = 0 .Shadow = -1 .Emboss = 0 .BaselineOffset = 0 .AutoRotateNumbers = 0 .Color.SchemeColor = 2 End With End With ppt.ActiveWindow.Selection.Unselect ppt.ActivePresentation.SaveAs tempPath ppt.ActivePresentation.Close ' there is no Application object for PPT, so just quit ppt ppt.Quit ' Release the memory to PPT Set ppt = Nothing %>

Related Source Codes

Script Name Author

�� VyomWorld

Resistor color code reader A.Chermarajan.

Telephone Directory dhivya

card swapping game (Mini Project) nityanand

simple hangman-pascalsource Seabert

college dirtectory (Mini Project) msridhar

Poll Application John van Meter

ASP Daily Hit Counter. Tejaskumar Gandhi

To avoid null in asp environment using sql Sami

Maklumbalas webmaster

poll John van Meter

EasyASP Template Engine. TjoekBezoer

Basic Calculator using HTML & Javascript. Patrick M. D Souza

What servers support ASP ? VyomWorld

What is ASP? VyomWorld

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.