如何使用VBA将Excel的将来日期/时间插入Powerpoint

时间:2019-06-16 20:50:45

标签: excel vba powerpoint

我正在自动处理一封必须单独发送给300多人的信件。每个字母的名称不同,但日期和时间也不同。我正在使用Excel来存储数据,并在Powerpoint中使用VBA来用正确的信息填充文本框。 日期保持格式为2019年6月27日。我需要说“ 2019年6月27日”。 假定说“ 2:00 PM”时,时间保持格式为“ 0.583333333333333”。这些是我唯一遇到的问题。

我尝试将代码行更改为此: oSld.Shapes("ClassDate").TextFrame.TextRange.Text = oWB.Sheets(1).Range("E2").NumberFormat = "mmm dd, yyyy"

这在Powerpoint的文本表单中提供了“ False”。我还没有弄清楚如何修改时间码。

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.

1 个答案:

答案 0 :(得分:1)

使用格式功能。两个例子:

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

在文档中详细了解格式代码