合并相同文件名的Excel工作表

tang_123

合并说明:

1.将数据2的内容合并的数据1中，将数据1另存为”sj1-1-01.xlsx”的模式。

2.合并数据以B列为基础，数据1和数据2中B列内容不相同的部分全部删除，只留B列内容一致的部分。具体结果文件见” sj1-1-01.xlsx”.

谢谢各位老师。

tang_123

我自己写了改了一段代码，但是有点问题，请各位老师帮我看一下吧，谢谢。


Sub 汇总()


Application.ScreenUpdating = False

Dim wb1 As Excel.Workbook
Dim wb2 As Excel.Workbook


'Dim sh, sht As Excel.Worksheet

f1 = Dir(ThisWorkbook.Path & "\数据1*.xls*") '生成查找EXCEL的目录,可以适应不同版本
f2 = Dir(ThisWorkbook.Path & "\数据2*.xls*")
'flnm = Dir(ThisWorkbook.Path & "\Test\t*.txt")

Do While f1 <> "" '在目录中循环

If f1 <> ThisWorkbook.Name Then  '如果不是打开的工作簿

Set wb1 = Workbooks.Open(ThisWorkbook.Path & "\" & f1) '依次打开目录工作薄
'If f2 <> ThisWorkbook.Name Then
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & f2)


'For Each sh In wb.Worksheets '在打开的工作薄的工作表中循环

'For Each Sheet In wb1.Worksheets '在打开的工作薄的工作表中循环
'For Each Sheet In wb2.Worksheets
'For Each wb2 In ThisWorkbook

'k = wb2.Columns(2).Cells(sh.Columns(1).Cells.Count).End(xlUp).Row

If f1 = f2 Then

'wb2.Columns(2).Copy wb1.Columns(3).Cells(sht.Columns(1).Cells.Count).End(xlUp).Offset(1)
wb2.Columns(2).Copy wb1.Columns(3).Offset(0, 1)

'End If
End If


' Next
'
'  Next

wb1.Close '关闭打开的工作薄
wb2.Close

   End If

  f1 = Dir
'  f2 = Dir

Loop '结束循环

Application.ScreenUpdating = True

End Sub

tang_123

Option Explicit


Sub test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim p, f1, f2, f1name, f2name

p = "C:\Users\tangsheng\Desktop\2017-1\2017-1\" '假设文件所在的文件夹
f1 = Dir(p & "\数据1-*.xls") '如果是2003版的，请改为""*.xls"
f2 = Dir(p & "\数据2-*.xls")

Do


Workbooks.Open (p & f1)
Workbooks(f1).Worksheets(1).Range("I22").Select
f1name = Right(f1, 8)


Do While f2 <> ""

f2name = Right(f2, 8)



If f1name = f2name Then
Workbooks.Open (p & f2)
Workbooks(f2).Worksheets(1).Columns(2).Copy Workbooks(f1).Worksheets(1).Columns(3).Offset(0, 1)
Workbooks(f2).Close False
Workbooks(f1).Close True


   
    End If
   
    f2 = Dir
    Loop


f1 = Dir


Loop Until f1 = ""

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


为什么f1=dir这一句出错误，麻烦大神帮忙看一下吧。最近急用。
谢谢