Dim objexcelapp

Dim DTP_Date

Dim strDate

Set DTP_Date = ScreenItems("控件2")

strDate = CStr(Year(DTP_Date.Value))

strDate = strDate & "-" & Right("00" & CStr(Month(DTP_Date.Value)),2)

strDate = strDate & "-" & Right("00" & CStr(Day(DTP_Date.Value)),2)

Set objexcelapp=CreateObject("excel.application")

objexcelapp.visible=True

objexcelapp.workbooks.open "D:\date\"&strDate&".xls"

谢谢城外之人给的帮助！