VBA/Excel/Access/Word/Application/GetObject — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Версия 16:33, 26 мая 2010

Opening a Database as the Current Database and Closing the Current Database

 
Sub open()
    Dim myAccess As Access.Application
    Dim myDatabase As Object
    
    Set myAccess = GetObject(, "Access.Application")
    myAccess.CloseCurrentDatabase
    myAccess.OpenCurrentDatabase _
        filepath:="C:\mydb.mdb", Exclusive:=True
    Set myDatabase = myAccess.CurrentDb
End Sub



Returning an Object with the GetObject Function

 
 Sub Return_a_Value_from_Excel()
     Dim mySpreadsheet As Excel.Workbook
     Dim strSalesTotal As String
     Set mySpreadsheet = GetObject("your.xls")
     strSalesTotal = mySpreadsheet.Application.Range("SalesTotal").Value
      Set mySpreadsheet = Nothing
      Selection.TypeText "Current sales total: $" & strSalesTotal & "."
      Selection.TypeParagraph
  End Sub