全部答案

2014-05-08 16:54:05

•   打开excel，按alt+f11，在sheet1（sheet）右边的框框里面copy下面这些代码，再点击开始运行，就是类似△的这个标志，就可以了，后面你照着弹出来框框操作就行了。
  宏：多个文件表合到一个文件表的多个SHEET中
  Sub CombineWorkbooks()
  	Dim FilesToOpen, ft
  	Dim x As Integer
  	Application。
    ScreenUpdating = False
  	On Error GoTo errhandler
  	FilesToOpen = Application。GetOpenFilename _
  	(FileFilter:="Micrsofe Excel文件(*。
    xls), *。xls", _
  	MultiSelect:=True, Title:="要合并的文件")
  	
  	If TypeName(FilesToOpen) = "boolean" Then
  	MsgBox "没有选定文件"
  	'GoTo errhandler
  	End If
  	x = 1
  	While x <= UBound(FilesToOpen)
  	Set wk = Workbooks。
    Open(Filename:=FilesToOpen(x))
  	wk。Sheets()。Move after:=ThisWorkbook。Sheets _
  	(ThisWorkbook。Sheets。Count)
  	x = x + 1
  	Wend
  	MsgBox "合并成功完成！"
  errhandler:
  	'MsgBox Err。
    Description
  	'Resume errhandler
  End Sub。

  全部
  

  马***

  2014-05-08 16:54:05

  141 56 评论

  分享
  提交评论