Dim p As String = Tables("xiaoshou").Current("time1")
Dim bug As String
Dim po As String=user.name
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\销售结算.xls")
Book2.Build()
bug="D:\liyan\备份\" & p & format(Date.Now, "ddhhmm") & ".xls"
messagebox.show(bug)
Book2.Save(bug)
你看看弹窗显示的信息对不对