Как создать простую страницу помощи для VBA Excel надстройки

Обновить

April 2019

Просмотры

48 раз

1

Я создал небольшую надстройку для моего клиента. Он добавляет 2 кнопки на панели инструментов и работает нормально. Теперь я хотел бы добавить третью кнопку , чтобы отобразить номер версии и небольшой текст справки (15 строк).
Интересно , что это легкий способ сделать это. Опции я могу думать:

  • Вставка (копия) лист с помощью & версии в текущей книге (эффективный и простой, чтобы сделать, но немного грубо и навязчиво)
  • Создание формы VBA с текстом справки в элементе управления этикеткой и кнопкой OK (очень хорошей, но содержание этикетки не может быть отформатирована AFAIK)
  • написать информацию на локальный HTML-файл и открыть, что один (возможно, более универсальный?)

Любой (другое) предложение?
Примечание: У меня нет прав администратора на моем компьютере, так что решения , связанные с дополнительным программным обеспечением исключены.

1 ответы

0

Here is the code of the UserForm I created, as per @Arul 's suggestion.

Option Explicit

Private helpFileName As String

Private Sub UserForm_Initialize()
    helpFileName = Environ("temp") & "\test.htm"
    writeHelpFile
    WebBrowser1.Navigate "file:\\" & helpFileName
End Sub

Private Sub writeHelpFile()
    Dim fso As Object, Fileout As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Fileout = fso.CreateTextFile(helpFileName, True, True)
    Fileout.Write Sheet4.Range("A1")
    Fileout.Close
End Sub

Private Sub UserForm_Terminate()
    Kill helpFileName
End Sub