MyTetra Share
Делитесь знаниями!
Библиотечные Ссылки (Referenses) - Отображение в Immediate окне списка подключенных библиотечных ссылок
19.07.2018
19:16
Раздел: VBA - Access - msa.polarcom.ru - 10 Приложение MSA


Библиотечные Ссылки (Referenses) - Отображение в Immediate окне списка подключенных библиотечных ссылок

Private Sub ShowReferenses()

'es 30.06.2011

'Печатает в Immediate окне (Ctrl+G) список используемых библиотечных ссылок и их характеристик

'--------------------------------------------------------------------------

Dim ref As Reference

Dim i As Integer

For Each ref In References

i = i + 1

Debug.Print Format(i, "00") & " - " & ref.Name & vbCrLf & _

" - Путь: " & ref.FullPath & vbCrLf & _

" - Версия: " & ref.Major & "." & ref.Minor & _

" - GUID: " & ref.GUID & vbCrLf & _

" - Встроенная: " & ref.BuiltIn & vbCrLf & _

" - Ссылка ""отвалилась?"" : " & ref.IsBroken & vbCrLf & _

"-----------------------------------------------------"

Next ref

End Sub






Второй вариант, с выводом результата в текстовый файл:

Private Sub ShowReferenses()

'es 30.06.2011 :le 03.10.2016

' Поцедура печатает в Immediate окне (Ctrl+G):

' Cписок используемых библиотечных ссылок и их характеристик

'-----------------------------------------------------------------

Dim ref As Reference

Dim i As Integer

Dim s$, FilePath$

Dim b As Boolean

s = "-----------------------------------------------------------------" & vbCrLf

s = s & CurrentProject.Name & vbCrLf

s = s & "-----------------------------------------------------------------" & vbCrLf

'Список:

For Each ref In References

i = i + 1

s = s & Format(i, "00") & " - " & ref.Name & vbCrLf & _

" - Путь: " & ref.FullPath & vbCrLf & _

" - Версия: " & ref.Major & "." & ref.Minor & _

" - GUID: " & ref.Guid & vbCrLf & _

" - Встроенная: " & ref.BuiltIn & vbCrLf & _

" - Ссылка ""отвалилась?"" : " & ref.IsBroken & vbCrLf & _

"-----------------------------------------------------------------" & vbCrLf

Next ref

'Вывод в Immediate окно

Debug.Print s

'-----------------------------------------------------------------

'Сохранение в текстовом файле в папке приложения:

'Путь к файлу:

FilePath = CurrentProject.Path & "\" & _

Mid(CurrentProject.Name, 1, Len(CurrentProject.Name) - 6) & " - Библиотечные ссылки.txt"

b = SaveStringAsTXT(FilePath, s) ' пишем в файл

If b = True Then

Debug.Print "Отчёт сохранён как:" & vbCrLf & FilePath & vbCrLf & _

"-----------------------------------------------------------------"

End If

End Sub


Public Function SaveStringAsTXT(ByVal FlilePath$, ByVal s_text$) As Boolean

'Запись в текстовый файл из строковой переменной

'Внимание: Если Файл уже существует - переписывается полностью и без вопросов.

Dim fso As Object

Dim ts As Object

'--------------------------------------------------------------------------

On Error GoTo SaveStringAsTXT_Err

Set fso = CreateObject("Scripting.FileSystemObject")

Set ts = fso.CreateTextFile(FlilePath, True)

ts.Write s_text

ts.Close

SaveStringAsTXT = True


SaveStringAsTXT_Bye:

Set ts = Nothing: Set fso = Nothing

Exit Function


SaveStringAsTXT_Err:

MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"в процедуре: SaveStringAsTXT", vbCritical, "Error!"

Resume SaveStringAsTXT_Bye

End Function





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования