Answer Posted / nipesh

hi...guys..
===============================================================
Skip, You are actually using AUTOMATION here. Something
that MSFT supports, but not strictly OLE. OLE is a much
lower level concept - a part of which allows a programmer
to access the underlying structured storage of a MicroSoft
file. Dealing w the low level OLE interfaces would allow
one to access and edit a MSFT Office file without actually
having MSFT office installed on the machine at all. A
useful application of this means of file access would be
for code running on a server (that does not have MSFT
office installed), where an office file must be
accessed/modified w/o using the heavy and inefficient
AUTOMATION strategy that you have posted here. The code
that you have posted here is useful for client side
applications where AUTOMATION does not pose such a
scalability risk. Hope this helps clarify things. M

OLE Code examples:

'Excel example
Private Sub cmdExcel_Click()
Dim intCol As Integer
Dim intRow As Integer
Dim oXL As Object
Dim oBook As Object
Dim oSheet As Object
Dim oRange As Object

intCol = 3
intRow = 1

'Load Excel and create the object
Set oXL = CreateObject("Excel.Application")

'Turn off alert messages.
oXL.DisplayAlerts = False

'Load a new workbook and create the workbook object.
Set oBook = oXL.workbooks.Add

'Create the worksheet object.
Set oSheet = oBook.Sheets(1)

'Enter a value in a cell.
oSheet.cells(intRow, intCol).Value = "Test"

'Display the Excel session.
oXL.Visible = True

End Sub

'Internet Explorer example
Private Sub cmdIE_Click()
Dim oIE As Object
Dim oDoc As Object
Dim oBody As Object

'Create the IE application object.
Set oIE = CreateObject("internetexplorer.application")

'Load the URL.
oIE.Navigate ("msdn.microsoft.com")

'Wait for the web page to load completely.
Do While (oIE.ReadyState <> 4)
Loop

'Create the document object.
Set oDoc = oIE.Document
'Create the document body object.
Set oBody = oDoc.Body

'Display the website title.
MsgBox oDoc.Title

'Show a portion of the web page text.
MsgBox Mid$(oBody.innerText, 1, 255)
'Show a portion of the web page HTML.
MsgBox Mid$(oBody.innerHTML, 1, 255)

'Would the user like to see the original document?
If (MsgBox("Would you like to see the web site?", _
vbQuestion + vbYesNo, "Show IE?") = vbYes) Then
'Display IE.
oIE.TheaterMode = True
oIE.TheaterMode = False
Else
'Close IE.
oIE.quit
End If

End Sub

'Word example
Private Sub cmdWord_Click()
Dim oWord As Object
Dim oDoc As Object
Dim oSentence As Object

'Create the Word application object.
Set oWord = CreateObject("word.application")

'Open the sample document.
Set oDoc = oWord.Documents.Add(App.Path & "\WordSample.doc")

'Ask the user if they would like to parse the document.
If (MsgBox("Would you like to view" & vbCrLf & _
"the document contents" & vbCrLf & _
"one sentence at a time?", _
vbQuestion + vbYesNo, "Parse Word Doc?") = vbYes) Then
'Parse through the document one sentence at a time.
For Each oSentence In oDoc.Sentences
'Display the sentence.
MsgBox oSentence.Text
Next
End If

'Ask the user if they would like to see the document text.
If (MsgBox("Would you like to view" & vbCrLf & _
"the entire document text?", _
vbQuestion + vbYesNo, "View Contents?") = vbYes) Then
'Display document text.
MsgBox oDoc.Content.Text
End If

'Would the user like to see the original document?
If (MsgBox("Would you like to see the original document?", _
vbQuestion + vbYesNo, "Show Word Doc?") = vbYes) Then
'Display the MS-Word session.
oWord.Visible = True
oDoc.Activate
Else
'Terminate MS-Word.
oWord.quit
End If
End Sub

Difference between Class Module and Standard Module?

2515

---

Draw Sequence Modal of DAO and Explain?

1925

---

How would you attach an ActiveX control in Your Application?

2300

---

what are the Differenct Types of Procedures in VB?

1850

---

what are the Types of Resultsets?

2487

---

How can you check whether a record is valid record or Invalid record using ADO control or Object?

1796

---

Is visual basic c#?

889

---

Explain about an event-driven programming language?

907

---

Explain about literals?

952

---

What is ActiveX? Explain.

1856

---

What do you mean by Databound Controls Explain?

1907

---

How can you Navigate from the DHTML application to another DHTML application? .

1794

---

Why can't I use an index with my VB accessed database?

1428

---

Write the steps in Creating ActiveX Dll and Active Exe?

2002

---

Is a foo VBX/DLL available as shareware/freeware?

1559

---