в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:38Z

1 версия

Новая страница

==After the reference is set, Word variables can be declared with the correct (Word) variable type.==



<source lang="vb">

Sub WordEarlyBinding()
Dim wdApp As Word.Application
Dim wdDoc As Document
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\Word.docx")
wdApp.Visible = True
Set wdApp = Nothing
Set wdDoc = Nothing
End Sub
</source>

==An Example of Early Binding==



<source lang="vb">

Sub EarlyBinding()
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
With objExcel
.Visible = True
.Workbooks.Add
.Range("A1") = "Hello World"
End With
End Sub
</source>

==creates a new instance of Word and then opens and makes visible an existing Word document:==



<source lang="vb">

Sub WordLateBinding()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\Word.docx")
wdApp.Visible = True
Set wdApp = Nothing
Set wdDoc = Nothing
End Sub
</source>

==Creating and Referencing Objects==



<source lang="vb">

Sub UseGetObject()
Dim wdDoc As Object
Set wdDoc = GetObject(ThisWorkbook.Path & "\Word.docx")
wdDoc.Application.Visible = True
Set wdDoc = Nothing
End Sub
</source>

==Early vs. Late Binding==



<source lang="vb">

Sub WordEarlyBound()
Dim wd As Word.Application
Dim doc As Word.Document
Set wd = New Word.Application
Set doc = wd.Documents.Add
doc.SaveAs "C:\testdoc1.doc"
doc.Close
Set doc = Nothing
Set wd = Nothing
End Sub
</source>

==If multiple versions of Word are installed, you can create an object for a specific version. The following statement, for example, uses Word 97.==



<source lang="vb">

Sub mate()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application.8")
End Sub
</source>

==Late Binding==



<source lang="vb">

Sub late()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
End Sub
</source>

==Using the CreateObject Function to Create a Late-Bound Instance of Excel==



<source lang="vb">

Sub LateBinding()
"Declare a generic object variable
Dim objExcel As Object
"Point the object variable at an Excel application object
Set objExcel = CreateObject("Excel.Application")
"Set properties and execute methods of the object
With objExcel
.Visible = True
.Workbooks.Add
.Range("A1") = "Hello World"
End With
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Excel/Binding - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия