摘要:
Public Sub SavetheattachmentNew(Item As Outlook.MailItem) Dim olApp As New Outlook.Application Dim nmsName As Outlook.NameSpace Dim vItem As Object Se 阅读全文
posted @ 2021-04-01 15:57
kinyu
阅读(89)
评论(0)
推荐(0)
摘要:
Sub connSQL() Dim t'获取系统当前时间t = Year(Now) & "." & Month(Now) & "." & Day(Now) & "-" & Hour(Now) & "." & Minute(Now) & "." & Second(Now)Dim fileName, s 阅读全文
posted @ 2021-04-01 15:46
kinyu
阅读(62)
评论(0)
推荐(0)
摘要:
function ImportDataFun(){ var Trans_Index=document.getElementById("Trans_Index").value; var PN=document.getElementById("PN").value; var ZH_Lot=documen 阅读全文
posted @ 2021-04-01 15:43
kinyu
阅读(95)
评论(0)
推荐(0)