Работа с вложением файлов

[Dmitriy A.]

Мне необходимо в поле вложение в базе Access получить доступ к именам сохраненных вложений файлов pdf - ко всем поля получить содержимое не проблема но вот считывать имена в файл Excell ну никак пробывал все что мог вот пример получается всё кроме извлечь содержимое столбца вложений Может кто подскажет как такое возможно....

Sub Read_Base(well As String, table As String)
i = 2
Application.ScreenUpdating = False
'______________________
'On Error GoTo ex1
'_____________________________________________
Dim DatabaseI As New ADODB.Connection ' ïîäêëþ÷åíèÿ ê áàçå
Dim rs As ADODB.Recordset ' 
Dim fldAttach As ADODB.Field
Dim strFilePath As String
Dim strTempDir As String
Dim SQL As String
Set DatabaseI = New ADODB.Connection ' 
      With DatabaseI ' 
      .Provider = "Microsoft.ACE.OLEDB.12.0" ' 
      .ConnectionString = "V:\PERSONAL\DatabaseI\DataBaseI.accdb" '
      .Open ' 
      End With
'___________________________________________________________
Set rs = New ADODB.Recordset ' 
rs.Open table, DatabaseI ', adOpenDynamic, adLockOptimistic
'adding a new record.

Do Until rs.EOF
If well = rs.Fields("Well") Then
ActiveWorkbook.Worksheets("PLT(report)").Cells(i, 1).Value = CStr(rs.Fields("Data").Value) 'customer ID field
Set fldAttach = rs.Fields("Attachment").Value
ActiveWorkbook.Worksheets("PLT(report)").Cells(i, 2).Value = CStr(rs.Fields("Attachment").Value)
MsgBox (CStr(rs.Fields("Attachment")))
 
'customer ID field
'rs.Fields(1).Value  'customer name field
'save the changes.
i = i + 1
Else:
End If

rs.MoveNext
Loop

rs.Close 
DatabaseI.Close 
    

Set rs = Nothing 
Set DatabaseI = Nothing ' 


ex1:
End Sub

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор