打开模板工作簿启用宏'打開對話框Application.Dialogs(xlDialogOpen).Show选择数据源工作簿 ，sheet1工作表最后 （MsgBox:“ ”）行复制数值格式，关闭工作簿
MsgBox（光标指定单元格）粘贴