移动工作表的问题

titi012

我想做一个小程序，打开一个文件选择器，选择一个或多个EXCEL工作薄文件，然后将其的工作表复制到原来的工作薄内。如下
但是测试总是有问题，请大神帮忙看看到底是那里出了问题，非常感谢！


Sub 复制工作表()

    Dim wb1 As Workbook
    Set wb1 = ThisWorkbook
   
    Dim st1 As Worksheet
    Set st1 = Sheet1
   
    Dim i As Integer
    Dim v As Integer
    Dim wb2 As Workbook
    With Application.FileDialog(msoFileDialogFilePicker)
      If .Show = -1 Then
         For i = 1 To .SelectedItems.Count
           Set wb2 = Workbooks.Open(.SelectedItems(i))
           For v = 1 To wb2.Sheets.Count
              Sheets(v).Select
              st1.Cells(v + 1, 2) = Sheets(v).Name
              Sheets(v).Move After:=wb1.st1
           Next v
         wb2.Close True
       Next i
      End If
    End With

End Sub

1. Sub 复制工作表()
   
2. 
   
3.     Dim wb1 As Workbook
   
4.     Set wb1 = ThisWorkbook
   
5.    
   
6.     Dim st1 As Worksheet
   
7.     Set st1 = Sheet1
   
8.    
   
9.     Dim i As Integer
   
10.     Dim v As Integer
    
11.     Dim wb2 As Workbook
    
12.     With Application.FileDialog(msoFileDialogFilePicker)
    
13.       If .Show = -1 Then
    
14.          For i = 1 To .SelectedItems.Count
    
15.            Set wb2 = Workbooks.Open(.SelectedItems(i))
    
16.            For v = 1 To wb2.Sheets.Count
    
17.               Sheets(v).Select
    
18.               st1.Cells(v + 1, 2) = Sheets(v).Name
    
19.               Sheets(v).Move After:=wb1.st1
    
20.            Next v
    
21.          wb2.Close True
    
22.        Next i
    
23.       End If
    
24.     End With
    
25. 
    
26. End Sub
    

复制代码

ykcbf1100

请说明一下具体问题是啥。
看你的代码，只适合一个文件的。如果多个文件的话，v值难道又从1开始写？

titi012

ykcbf1100 发表于 2023-5-27 20:34
请说明一下具体问题是啥。
看你的代码，只适合一个文件的。如果多个文件的话，v值难道又从1开始写？

感谢老师的帮助！
v这里应该是有问题的，还要再改改，还没想好怎么改。VBA只懂一点点，学着来的。
问题提示如下图，请老师帮忙再看看

半百

试试。。。。