求助VBA修改

德威隐匿者

在本站淘到了一个比较接近自己情况的代码，主要内容是打开文件夹下面的工作薄，复制SHEET1，然后按照该文件名称修改被复制SHEET的名称，求助大神帮忙修改成复制“门店营业款项明细”这个SHEET，其他不变，具体如下：
Private Sub CommandButton1_Click() '合并工作薄()
     Dim f_name As String
     Dim bok1 As Workbook, bok2 As Workbook
     Set bok2 = Nothing '设置为空
     f_name = Dir(ThisWorkbook.Path & "\" & "*.xls") '获得本文件夹下的工作簿名称
     Do While f_name <> "" And f_name <> ThisWorkbook.Name '不是空并且不是自己
         Set bok1 = Workbooks.Open(ThisWorkbook.Path & "\" & f_name) '打开它
         If bok2 Is Nothing Then 'bok2不是空就
             bok1.Sheets(1).Copy '拷贝打开的文件
             Set bok2 = ActiveWorkbook '激活bok2
             bok2.Sheets(1).Name = bok1.Name '用打开的文件名命名
         Else
             bok1.Sheets(1).Copy Before:=bok2.Sheets(1) '拷贝打开的文件到新工作表
             bok2.Sheets(1).Name = bok1.Name ''用打开的文件名命名
         End If
         bok1.Close '关闭打开的文件
         f_name = Dir() ''获得本文件夹下的工作簿名称
     Loop '循环
End Sub

Yaong_3

共有两句
bok2.Sheets(1).Name = “门店营业款项明细”

德威隐匿者

Yaong_3 发表于 2016-8-11 11:55
共有两句
bok2.Sheets(1).Name = “门店营业款项明细”

您好，不是把SHEET名称改为门店"营业款项明细"，而是定位所要复制的SHEET名称为"营业款项明细"，然后把这个工作表的内容复制到目标文件中，上面的代码是找到第一个SHEET复制内容，但是有时候"营业款项明细"不是第一个SHEET

Yaong_3

1. Sheets("营业款项明细").Activate

复制代码

德威隐匿者

Yaong_3 发表于 2016-8-11 17:00

能麻烦说一下，是把代码中的什么代码改成什么吗，第一次用VBA，正在入门

Yaong_3

试试吧，没附件无法验证。

1. Private Sub CommandButton1_Click() '合并工作薄()
   
2.      Dim f_name As String
   
3.      Dim bok1 As Workbook, bok2 As Workbook
   
4.      Set bok2 = Nothing '设置为空
   
5.      f_name = Dir(ThisWorkbook.Path & "" & "*.xls") '获得本文件夹下的工作簿名称
   
6.      Do While f_name <> "" And f_name <> ThisWorkbook.Name '不是空并且不是自己
   
7.          Set bok1 = Workbooks.Open(ThisWorkbook.Path & "" & f_name) '打开它
   
8.          If bok2 Is Nothing Then 'bok2是空就
   
9.              bok1.Sheets("营业款项明细").Copy '拷贝打开的文件
   
10.              Set bok2 = ActiveWorkbook '激活bok2
    
11.          Else
    
12.              bok1.Sheets("营业款项明细").Copy Before:=bok2.Sheets(1) '拷贝打开的文件到新工作表
    
13.          End If
    
14.         bok2.Sheets(1).Name = bok1.Name ''用打开的文件名命名
    
15.         bok1.Close '关闭打开的文件
    
16.         f_name = Dir() ''获得本文件夹下的工作簿名称
    
17.      Loop '循环
    
18. End Sub

复制代码

德威隐匿者

Yaong_3 发表于 2016-8-11 17:13
试试吧，没附件无法验证。

已上传附件，刚才试了一下，不好用

德威隐匿者

第一次上传附件，不知道可不可以，请大神指点~~~

Yaong_3

每个文件都包含的标签名应该是”门店营业款项明细“，而你在4楼说的是”营业款项明细“，差2个字呢！把两个”营业款项明细“改成”门店营业款项明细“就行了。