MyTetra Share
Делитесь знаниями!
Невозможно найти устанавливаемый ISAM
Время создания: 09.10.2019 14:04
Текстовые метки: Прилинковывание таблиц
Раздел: !Закладки - VBA - Access - Link



Public Sub ConnectToExcel()


Set Cnn = New ADODB.Connection
    With Cnn
           .Provider = "Microsoft.ACE.OLEDB.12.0"
           .ConnectionString = "Data Source=C:\temp\TEST\Test1.xlsx;" & _
           "Extended Properties=""Excel 12.0; Xml; HDR=YES; IMEX=1"""
           .Open
    End With
    
    strQuery = "SELECT * FROM [Лист1$]"
    Set rst = Cnn.Execute(strQuery)
    MsgBox rst.GetString
    
End Sub
Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования