主题：什么原因

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)

你看看弹窗显示的信息对不对