Excel VBA вставить текст переноса в одну ячейку в Excel - PullRequest
Новая
       50

Excel VBA вставить текст переноса в одну ячейку в Excel

0 голосов
/ 10 мая 2018

Я пробовал много разных способов, но я не могу найти решение, я схожу с ума! моя проблема в том, что у меня есть ячейка, содержащая последовательность команд, написанных на HTML, и я хочу написать их ВСЕ В ОДНОЙ КЛЕТОК в обычном тексте, и что даже тест переноса остается в этой ячейке, а не в другой строке.

Просто чтобы быть более понятным:

Теперь я получаю это: Как видите, все в разных строках

То, что я хочу, это: Everithing в той же строке 

Sub TRY_HTML_TEXT()
Dim Ie As Object
Dim text As String
'First part is made to convert from HTML to Text

Set Ie = CreateObject("InternetExplorer.Application")
With Ie

    .Visible = False
    .Navigate "about:blank"
    .document.body.InnerHTML = Sheets("Sheet1").Range("G3").Value
         'update to the cell that contains HTML you want converted
    .ExecWB 17, 0
         'Select all contents in browser
    .ExecWB 12, 2
         'Copy them

    Sheet1.Select
    'Select my sheet
    Range("M3").Select
    'selection of the cell where i want to copy
    SendKeys "{F2}"
    'I've selected inside the cell to have the possibility to paste enter code here
    ActiveSheet.Paste
    'Paste what i have
   .Quit

End With
Set Ie = Nothing
End Sub

Если вы можете мне помочь, большое спасибо, ребята

1 Ответ

0 голосов
/ 10 мая 2018

Не выбирайте весь лист. Выберите ячейку, которую вы хотели поставить на свою ценность, а затем вставьте ее. Вы имеете в виду весь Лист.

Используйте ActiveCell. Не лист.

ActiveCell.PasteSpecial

С уважением,

...