[英]How to insert future date/time from Excel into Powerpoint using VBA
我正在自動處理一封必須單獨發送給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.
使用格式化功能。 兩個例子:
...=Format(oWB.Sheets(1).Range("E2").Value,"MMM dd, yyyy")
...=Format(oWB.Sheets(1).Range("F2").Value,"hh:mm")
在文檔中閱讀有關格式代碼的更多信息
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.