Импорт данных, всё в одну ячейку?

[Jnas]

Здравствуйте уважаемые форумчанины.

Подскажите, как можно при получение данных, допустим из текстового файла, всё что находится в текстовом файле сохранить в одну ячейку, не разбивая полученные данные по строкам?

[SAS888]

Пусть текстовый файл "test.txt" находится в папке "D:\Temp", и пусть содержимое этого файла требуется поместить в ячейку "A1" активного листа в одну строку. Тогда можно так:

Sub Main()
    Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\Temp\test.txt", 1)
    [A1] = Application.Clean(Replace(ts.ReadAll, Chr(10), " ")): ts.Close
End Sub

[Jnas]

Спасибо большое! очень помогли с этой задачей!
написал более 10-ков форумах никто конкретно ничего не ответил....

Еще есть один вопрос на что стоит поменять .OpenTextFile чтоб принять web страницу в исходным коде? (как пример с текстом) и возможно ли данный макрос превратить в функцию, разобрался что надо только писать .OpenTextFile("" & Range ("A2"), 1)

[SAS888]

Получить данные, например, с этой web-страницы, можно так:

Sub Main()
    Dim URL As String, x As Object, htmlcode As String
    URL = "http://programmersforum.ru/showthread.php?t=133541"
    Set x = CreateObject("MSXML2.XMLHTTP")
    x.Open "GET", URL, False: x.Send: htmlcode = x.responseText
    MsgBox htmlcode
End Sub

В результата, текстовая переменная htmlcode будет содержать текст со всеми служебными символами. Делайте из нее то, что Вам требуется.

P.S. Естественно, что в приведенном примере функция MsgBox отображает содержимое строковой переменной не полностью.

[Jnas]

Большое человеческое спасибо!