求根据条件复制工作表的vba代码，谢谢

cqfqs

我刚接触VBA，还在努力学习中，现在遇到一个实际问题需要请教大家。我目标文件夹excel文件的名称就是我示例文件中工作表的名称，我想根据目标文件夹里面excel文件的文件名称把文件的第一个工作表复制到对应示例文件的工作表中。
假如我目标文件有bj和cd两个名称的excel文件，示例文件里面同样有bj和cd两个工作表，我就想把bj和cd两个文件里面的第一个工作表内容复制到示例对应的工作表中。请大家帮忙写个代码，谢谢。

3190496160

类似的例子论坛多得很，搜搜看看吧

cqfqs

3190496160 发表于 2021-1-18 11:31
类似的例子论坛多得很，搜搜看看吧

搜了一些，但是不能灵活运用

cqfqs

烦请老师赐教，万分感谢

dakereh

Sub test()
Dim str As String
Dim wb As Workbook

str = Dir("d:\data\新建文件夹\*.xls*")

For i = 1 To 100
    Set wb = Workbooks.Open("d:\data\新建文件夹\" & str)
   
    wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)
   
    wb.Close
    str = Dir
    If str = "" Then
        Exit For
    End If
Next
End Sub

bj  cd 两个文件夹放在“d:\data\新建文件夹”目录下    示例表格里把原来的  bj  cd两张表格删掉（不然重名报错），复制代码，点运行就可以了