源代码-如何将多个Excel合并.doc

《源代码-如何将多个Excel合并.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、将下面分割线内的的代码拷贝进去，并保存。======我是分割线======Subsheets2one()  '定义对话框变量  DimccAsFileDialog  Setcc=Application.FileDialog(msoFileDialogFilePicker)  DimnewworkAsWorkbook  Setnewwork=Workbooks.Add  Withcc    If.Show=-1Then      DimvrtSelectedItemAsVariant      DimiAsInteger      i=1      ForE

2、achvrtSelectedItemIn.SelectedItems        DimtempwbAsWorkbook        Settempwb=Workbooks.Open(vrtSelectedItem)        tempwb.Worksheets(1).CopyBefore:=newwork.Worksheets(i)        newwork.Worksheets(i).Name=VBA.Replace(tempwb.Name,".xls","")        tempwb.CloseSaveChanges:=False  

3、      i=i+1      NextvrtSelectedItem    EndIf  EndWith  Setcc=NothingEndSub======我是分割线======