运行宏后没有工作表显示

shentu88

Sub HuiZong()
Dim myfile, mypath, wb               '声明变量
Application.ScreenUpdating = False   '关闭屏幕更新
Sheet1.UsedRange.Offset(1, 0).Clear  '清除除表头之外的所有内容
mypath = select_path           '找到选择文件夹内工作簿的路径
myfile = Dir(mypath & "\*.xls*")     '遍历当前文件夹下的Excel文件
Do While myfile <> ""                '当找到的文件不为空时
   If myfile <> ThisWorkbook.Name Then   '当找到的文件不是当前Excel工作簿时
      Set wb = GetObject(mypath & "\" & myfile)   '得到dir找到的工作簿的内容，设为wb
      With wb.Sheets(1)              '对找到的工作簿的sheet1进行操作
        '复制wb的sheet1除第一行的所有内容
        .UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
      End With
      wb.Close False      '关闭wb工作簿且不保存
   End If
   myfile = Dir          '寻找下一个Excel工作簿
Loop
Application.ScreenUpdating = True   '恢复屏幕更新
End Sub
Rem 提取选择文件夹的路径
Public Function select_path()

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Function
select_path = .SelectedItems(1)
End With

End Function

shentu88

求大神帮忙看一下是什么原因

ww87725244

试试.UsedRange.Offset(1, 0).Copy thisworkbook.worksheets("Sheet1").Range(

lsc900707

没有附件就难得有真相。