VBA Excel Проблема с Replace

[cvaleriy]

Есть макросы. Создаю объект Excel.Application, добавляю к нему шаблон.
На каждом листе есть ячейки своего рода заголовок перед таблицами - несколько ячеек объединено вместе и есть текст типа "бла бла бла бла полный бла бла бла еще полнее бла бла бла dateг"
В макросе делаю... собсно вот код

Код:

For i = 1 To (appXL.Sheets.count - 1)
appXL.Sheets(i).Activate
appXL.Sheets(i).Cells.Select
tmpstr = Этакнига.myDate
MsgBox tmpstr
appXL.Selection.Replace What:="date", Replacement:=tmpstr, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i

В результате имею
"бла бла бла бла полный бла бла бла еще полнее бла бла бла 08/11/2006г"
хотя мессджбокс выдает 11.08.2006
хотелось бы чтобы в ячейке получалось "бла бла бла бла полный бла бла бла еще полнее бла бла бла 11.08.2006г"

[cvaleriy]

Хех, помогло это:

Код:

appXL.Selection.Replace What:="date", Replacement:=[color=red]Format(tmpstr, "dd.mm.yyyy")[/color], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

[HandKot]

а можно вместо Format использовать CStr

Код:

appXL.Selection.Replace What:="date", Replacement:=CStr(tmpstr), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Format - удобнее, т.к сам задаешь формат строки
CStr - возвращает дату в коротком формате даты, установленной на компьютере