|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
各位大神,下面是我写的一段代码,可是不知道为什么这段代码对于新建的工作薄无法进行粘贴操作,麻烦各位帮忙看看是什么问题,该怎么修改!麻烦了!谢谢!
是过程 tts()
- Sub tts()
- Application.DisplayAlerts = False
- For l = 3 To 14
- fil = ThisWorkbook.Path & "" & Worksheets(l).Name & "流失客户.xlsx"
- If Len(Dir(fil)) > 0 Then
- GoTo X
- Else
- Workbooks.Add
- ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ThisWorkbook.Worksheets(l).Name & "流失客户.xlsx", _
- FileFormat:=xlOpenXMLWorkbook
- End If
- X: ThisWorkbook.Worksheets(l).Columns("A:N").Copy
- Workbooks.Open Filename:=ThisWorkbook.Path & "" & ThisWorkbook.Worksheets(l).Name & "流失客户.xlsx"
- Workbooks(ThisWorkbook.Worksheets(l).Name & "流失客户").Worksheets(1).Range("A1").Select
- Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone
- ActiveWorkbook.Close savechanges:=True
- Next
- Application.DisplayAlerts = True
- End Sub
复制代码
|
|