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

What is difference between datagrid and flexgrid?

13927

---

How should dates be implemented so they work with other language and country formats?

1402

---

What is visual basic used for?

1023

---

How do you change the icon and otherwise manipulate the DOS box?

1486

---

What is dao in vb?

927

---

___ VB constant make the menu item in centre.

1758

---

How many types of API functions are available in VB?

2464

---

How the image application?

991

---

What is Pseudocode?

1400

---

When/Why should I use Option Explicit?

1475

---

1.What are the Feactures visual data manager 2.Short note on visual data manager 3.What is data control,its work,properties,methods 4.Needs for OLEDB in vb 5.LIst steps involved in generating christal report 6.What is a recordset 7.Diffrence between RDO and ADO 8.What is an Activex control 9.Advantages of ADO over data control 10.Diffrence between model and modeless form 11.What is the significance of debug window 12.Diffrence between single document and multiple document 13.Explain data report

4240

---

How would you attach an ActiveX control in Your Application?

2349

---

Explain about arrays?

1040

---

How do you avoid the "Invalid use of null" error when reading null values from a database?

1672

---

How can you get selected file from file system Control?

1989

---