Function MakeVBR(vbrBook As String)
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
Dim xlBook As Workbook
Set xlBook = xlApp.Workbooks.Open(vbrBook)
xlApp.Workbooks.Open ("D:/alick/Mcro/Alick/Alick02.xlam")
xlApp.Run ("Alick02.xlam!MyVBR1")
xlBook.SaveAs xlBook.Path & "/VBR of " & Left(xlBook.Name, Len(xlBook.Name) - 3) & CStr(Format(Date, "YYYYMMDD")) & ".00.xls"
xlApp.Quit
End Function
在outlook 中打开excel 并运行宏
最新推荐文章于 2023-03-09 22:27:39 发布