VBNet - Форум - Замена точки на запятую в макросе

Вопрос: Замена точки на запятую в макросе Добавлено: 26.11.07 15:59

Автор вопроса: Nastya

Привет, народ!
Подскажите, пожалуйста, как решить следующую проблему:
Вставляются данные из буфера (скопированные из html-страницы) такого типа:
1.89279
2.92340
А дальше необходимо заменить в них точку на запятую, чтобы работать как с числами. Если делать это вручную, с помощью "ЗАМЕНЫ", то все работает, а если записать это в макрос и запусть, то точка просто пропадает и получается такое:
189279
292340
А макрос получается примерно такой:

    Range("R36").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Пробовала указывать тип целевых ячеек (и текстовый, и числовой), а также писала такое
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

Но толку нет.
Надеюсь на помощь :)
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Pavel Вопросов: 0 Ответов: 82	Профиль \| Цитата \| #1	Добавлено: 26.11.07 16:24
	http://sql.ru/forum/actualthread.aspx?bid=46&tid=437494&hl=%f2%ee%f7%ea%f3+%e7%e0%ef%ff%f2%f3%fe Ответить

Номер ответа: 2 Автор ответа: Pavel Вопросов: 0 Ответов: 82	Профиль \| Цитата \| #2	Добавлено: 26.11.07 16:24
	//http://sql.ru/forum/actualthread.aspx?bid=46&tid=437494&hl=%f2%ee%f7%ea%f3+%e7%e0%ef%ff%f2%f3%fe Ответить

Номер ответа: 3 Автор ответа: Nastya Вопросов: 1 Ответов: 1	Профиль \| Цитата \| #3	Добавлено: 26.11.07 17:24
	Премного благодарю Ответить

Страница: 1 |