Private Sub ПримерИспользованияФункции_GetHTTPResponse()       
    txt = GetHTTPResponse("https://finance.yahoo.com/quote/AAPL/history?period1=973396800&period2=1509854400&interval=1wk&filter=history&frequency=1wk")
    ' получаем путь к папке "Рабочий стол"
    ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    ' сохраняем текст из переменной txt в файл PageText.txt на рабочем столе
    SaveTXTfile ПутьКРабочемуСтолу & "\PageText.txt", txt
End Sub
 
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing End Function 

Sub Save_Sel_Object_As_Picture() Dim sName As String, oObj As Object, wsTmpSh As Worksheet 
If VarType(Selection) <> vbObject Then 
MsgBox "Выделенная область не является объектом!", vbCritical, "www.excel-vba.ru" 
Exit Sub 
End If 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
Set oObj = Selection: oObj.Copy 
Set wsTmpSh = ThisWorkbook.Sheets.Add 
sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_" & oObj.Name 
With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart 
.ChartArea.Border.LineStyle = 0 
.Paste 
.Export Filename:=sName & ".gif", FilterName:="GIF" 
.Parent.Delete 
End With 
wsTmpSh.Delete 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
End Sub

Sheets("Лист1").Select
adr = Cells(1, 1)       'В ячейке A1 находиться путь к файлу (Напр.C:\Users\User\Desktop\)
n = Cells(3, 1)          'В ячейке A2 находиться имя файла (Напр. Text.txt)
ChDir adr
Workbooks.Open Filename:=adr & n