Преобразование значения текстового поля в гиперссылку

---

Можно ли взять значение текстового поля (напр. Текст) преобразовать его в гиперссылку и экспортировать в электронную таблицу Excel?

У меня есть проект написанный на визуальном языке Studio.net это берет значения текстового поля и экспортирует его в Excel, все работает отлично. Но теперь у меня есть запрос на добавление файла изображений оборудования на нашем заводе в мою электронную таблицу. Я создал свой opendialog, кнопку и текстовое поле, и я могу выбрать файл и отправить его в Excel без каких-либо проблем, я просто не могу понять, как экспортировать его в виде гиперссылки. Ниже приведен мой код. Пожалуйста, помогите!!

Что я уже пробовал:

Открытый Класс Form4

Dim row_min как объект
Dim row_max как объект
Dim col_min как объект
Dim col_max как объект
Dim value1 как целое число
Dim value2 как целое число
Dim strtext как строка

Частная суб Form11_Load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Загрузить

Конец Подводной Лодки

Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Dim xlApp = GetObject("", "Excel.Приложение")
Dim xlBook = xlApp.Workbooks.Открыть("C:\Users\lockhartB\Desktop\Mobile Equipment.xls")
Тусклый xlSheet = xlBook.Рабочие Листы("Лист1")

- установить видимость
xlApp.Видна = Ложь

- Выведите на экран строки и столбцы диапазона.
row_min = xlSheet.UsedRange.Подряд
row_max = row_min + xlSheet.UsedRange.Rows.Количество - 1
col_min = xlSheet.UsedRange.Колонка
col_max = col_min + xlSheet.UsedRange.Столбцы.Количество - 1


- введите данные
xlSheet.cells(row_max + 1, col_min).Значение = Элемент Combobox1.Текст

xlSheet.cells(row_max + 1, col_min + 1).Value = ComboBox3.Text

xlSheet.cells(row_max + 1, col_min + 2).Value = TextBox3.Text

xlSheet.cells(row_max + 1, col_min + 3).Value = TextBox4.Text

xlSheet.cells(row_max + 1, col_min + 4).Value = TextBox1.Text

xlSheet.cells(row_max + 1, col_min + 5).Value = TextBox2.Text

xlSheet.cells(row_max + 1, col_min + 6).Value = ComboBox2.Text

xlSheet.cells(row_max + 1, col_min + 7).Value = TextBox5.Text

xlSheet.cells(row_max + 1, col_min + 8).Value = TextBox6.Text

xlSheet.cells(row_max + 1, col_min + 9).Value = ComboBox4.Text

xlSheet.cells(row_max + 1, col_min + 10).Value = TextBox7.Text

xlSheet.cells(row_max + 1, col_min + 11).Value = TextBox8.Text

xlSheet.cells(row_max + 1, col_min + 12).Value = TextBox9.Text


- сохранить изменения
xlBook.Сохранить()

- близкая работа.
xlBook.Закрыть(Ложь)

- выйти из приложения
xlApp.Бросить()

Поле combobox1.Свойства selectedIndex = -1

ComboBox2.Свойства selectedIndex = -1

ComboBox3.Свойства selectedIndex = -1

ComboBox4.Свойства selectedIndex = -1


Для каждого элемента управления, как контроль в меня.Контроль
Если TypeOf (control) - это System.Окна.Формы.Тогда Текстовое Поле

контроль.Текст = ""

Конец, Если
Следующий
Конец Подводной Лодки

Private Sub Button5_Click(sender As Object, e As EventArgs) обрабатывает Button5.Щелчок
OpenFileDialog1.Метод showdialog()
TextBox9.Text = OpenFileDialog1.имя файла

Попробуй
Оболочка(TextBox9.Text)
Поймать ex как исключение

Конец Попытки
Конец Подводной Лодки
End Класса

---