If Trim(ls_Path) <> "" Then
ls_Ext = Lower(Right(ls_Path, 3))
Choose Case ls_Ext
Case "xls"
dw_1.SaveAs(ls_Path, Excel!,True)
Case "txt"
dw_1.SaveAs(ls_Path, Text!, True)
Case "htm"
dw_1.SaveAs(ls_Path, HTMLTable!, True)
Case Else
MessageBox("另存为...", "另存格式错误.格式应该" + &
"是*.xls'为Excel!;'*.txt'为Text;'*.htm'为HTML Table", Exclamation!, OK!)
Return
End Choose
End if