Как подставить в макрос данные из ячейки BG2?
Sub Moduls()
'
' Moduls Макрос
'
'
With Selection.QueryTable
.Connection = _
"URL;СЮДА НУЖНО ПОДСТАВИТЬ ДАННЫЕ ИЗ ЯЧЕЙКИ BG2"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = _
"41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-15
End Sub
Макрос нужен для создания WEB запроса с сайта, нужно чтобы макрос брал ссылку сайта из ячейки BG2!
Сам отвечу на вопрос! )
"URL;" & Range("BG2").Value