Значение ячейки добавить в URL

[Boombeat]

Dim inet As Object
Dim n As Integer
n = ActiveCell.Value
Const URL As String = "www.сайт.ru/сюда нужно вставить значение n"
Set inet = CreateObject("InternetExplorer.Application")
inet.Navigate URL
inet.Visible = True


Как сделать, чтобы значение n ставилось после слэша и с этим значением откывалась страница

[Bagathur]

URL As String = "www.сайт.ru/" & n
только лучше при придании n значени использовать свойство не .Value, а .Text

[KL]

...лучше при придании n значени использовать свойство не .Value, а .Text

Не вижу почему это лучше

Код: Выделить всё

Dim inet As Object
Set inet = CreateObject("InternetExplorer.Application")
inet.Navigate "www.сайт.ru/" & ActiveCell
inet.Visible = True

[Boombeat]

Спасибо, все работает