Как вставить будущую дату / время из Excel в Powerpoint с помощью VBA

Question

Я автоматизирую письмо, которое должно быть разослано более 300+ людям.Имена разные для каждой буквы, но даты и время также разные.Я использую Excel для данных и использую VBA в Powerpoint, чтобы заполнить текстовые поля правильной информацией.Дата продолжает форматироваться до 27.06.2009.Мне нужно сказать "27 июня 2019 года".Время продолжает форматироваться как «0.583333333333333», когда предполагается сказать «2:00 PM».Это единственные проблемы, которые у меня продолжают возникать.

Я попытался изменить строку кода следующим образом: oSld.Shapes("ClassDate").TextFrame.TextRange.Text = oWB.Sheets(1).Range("E2").NumberFormat = "mmm dd, yyyy"

Это обеспечивает «Ложь» в текстовой форме в Powerpoint.Я не понял, как исправить временной код.

oSld.Shapes("MName").TextFrame.TextRange.Text=oWB.Sheets(1).Range("A2").Value
oSld.Shapes(“MName1”).TextFrame.TextRange.Text=oWB.Sheets(1).Range(“A2”).Value
oSld.Shapes("HAName").TextFrame.TextRange.Text = oWB.Sheets(1).Range("B2").Value
oSld.Shapes("HAName1").TextFrame.TextRange.Text = oWB.Sheets(1).Range("B2").Value
oSld.Shapes("WMWeek").TextFrame.TextRange.Text = oWB.Sheets(1).Range("D2").Value
oSld.Shapes("ClassDate").TextFrame.TextRange.Text = oWB.Sheets(1).Range("E2").Value
oSld.Shapes("ClassTime").TextFrame.TextRange.Text = oWB.Sheets(1).Range("F2").Value````


I expect the ClassDate output to be what is in range E2, June 27, 2019.
I expect the ClassTime output to be what is in range F2, 2:00 PM.

Answer 1

Используйте функцию форматирования.Два примера:

...=Format(oWB.Sheets(1).Range("E2").Value,"MMM dd, yyyy")
...=Format(oWB.Sheets(1).Range("F2").Value,"hh:mm")

Подробнее о кодах форматирования см. В документации