杭州交通信息网pillars of society:Excel的最后修改时间和上次储存者在VB中的属性是什么？？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 08:16:37
Set MyExcel = CreateObject("Excel.Application")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlApp As Excel.Application
Dim MyExcel As Object
Dim sLAuthor, sLDate As String
MyExcel = CreateObject("Excel.Application")
xlApp = CType(MyExcel, Excel.Application)
xlApp.Workbooks.Open("C:\Documents and Settings\admin\Desktop\Book1.xls")
sLAuthor = xlApp.ActiveWorkbook.BuiltinDocumentProperties("Last author").value
sLDate = xlApp.ActiveWorkbook.BuiltinDocumentProperties("Last save time").value
MsgBox(sLAuthor)
MsgBox(sLDate)
End Sub