[已解决]求助如何让复制内容不包括公式

tianqixueyu

以下程序只能实现完整的表A    COPY到新表中，但是是包含公式和格式的，如果想去除公式和格式的备份怎么写？（最好能加个选择保存路径的提示，这个没有也没关系）
Sub 备份()
    Application.ScreenUpdating = False
    Dim ms As Integer
    ms = MsgBox("是否保存" )
   If ms = 7 Then Exit Sub
    Dim wb As Workbook
     With ThisWorkbook.Worksheets("A")
     Set wb = Workbooks.Add
     .Cells.Copy wb.Worksheets(1).[A1]
    wb.SaveAs "C:\桌面\" & .[B2]
    ActiveWindow.Close
     End With
      Range("F4").Select
    Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

redsheep

2012-12-27 12:59

1. Sub 备份()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.     Dim ms As Integer
   
5.     ms = MsgBox("是否保存")
   
6.    If ms = 7 Then Exit Sub
   
7.       
   
8.     Route = Trim(InputBox("请输入保存路径:" & Chr(13) & "不输入时默认为 C:\桌面\ ", "保存路径"))
   
9.     If Route = "" Then
   
10.         Route = "C:\桌面"
    
11.     End If
    
12.     If Right(Route, 1) <> "" Then
    
13.         Route = Route & ""
    
14.     End If
    
15.    
    
16.     Dim wb As Workbook
    
17.      With ThisWorkbook.Worksheets("A")
    
18.      Set wb = Workbooks.Add
    
19.      .Cells.Copy
    
20.      wb.Worksheets(1).[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
21.     wb.SaveAs Route & .[B2]
    
22.     ActiveWindow.Close
    
23.      End With
    
24.       Range("F4").Select
    
25.     Application.ScreenUpdating = True
    
26. End Sub
    

复制代码

献丑了   关于只复制值,我想到了选择性粘贴-数值    录制的宏里是  PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  就加上了,貌似能实现

关于提示路径,我想到的是用InputBox()   第一个if是让不输入的时候默认为桌面   第二个if是最右边没有"\"的时候添加一个\  所以输入的时候  c:\桌面    或者 c:\桌面\  都OK

跳转到最佳答案楼层

hwc2ycy

复制值嘛。
普通的操作不是有选择性粘贴嘛。

redsheep

1. Sub 备份()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.     Dim ms As Integer
   
5.     ms = MsgBox("是否保存")
   
6.    If ms = 7 Then Exit Sub
   
7.       
   
8.     Route = Trim(InputBox("请输入保存路径:" & Chr(13) & "不输入时默认为 C:\桌面\ ", "保存路径"))
   
9.     If Route = "" Then
   
10.         Route = "C:\桌面"
    
11.     End If
    
12.     If Right(Route, 1) <> "" Then
    
13.         Route = Route & ""
    
14.     End If
    
15.    
    
16.     Dim wb As Workbook
    
17.      With ThisWorkbook.Worksheets("A")
    
18.      Set wb = Workbooks.Add
    
19.      .Cells.Copy
    
20.      wb.Worksheets(1).[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
21.     wb.SaveAs Route & .[B2]
    
22.     ActiveWindow.Close
    
23.      End With
    
24.       Range("F4").Select
    
25.     Application.ScreenUpdating = True
    
26. End Sub
    

复制代码

献丑了   关于只复制值,我想到了选择性粘贴-数值    录制的宏里是  PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  就加上了,貌似能实现

关于提示路径,我想到的是用InputBox()   第一个if是让不输入的时候默认为桌面   第二个if是最右边没有"\"的时候添加一个\  所以输入的时候  c:\桌面    或者 c:\桌面\  都OK

hwc2ycy

  .Cells.Copy wb.Worksheets(1).[A1]这句改下就成了。

1. .Cells.Copy
   
2. ActiveSheet.Range("a1").PasteSpecial xlPasteValues
   

复制代码

tianqixueyu

嗯，不管能不能实现，都谢谢你们的回复，我去试试。

tianqixueyu

redsheep 发表于 2012-12-27 12:59
献丑了   关于只复制值,我想到了选择性粘贴-数值    录制的宏里是  PasteSpecial Paste:=xlPasteValues, Op ...

很感谢你的回复，有个问题是我输入了新路径，表格还是保存在了原来路径里

redsheep

tianqixueyu 发表于 2012-12-27 13:35
很感谢你的回复，有个问题是我输入了新路径，表格还是保存在了原来路径里

我不知道你保存里的  .[B2] 是什么东西
但是我把语句替换成  wb.SaveAs Route & "ccc.xlsx"   这样的时候   我新增加的表格是保存在新路径里的啊

你用数据监视测试一下    wb.SaveAs Route & .[B2]  这个的结果是什么    应该是包含路径-文件名-后缀的一个完整的文本  例如  "d:\表格\aaa.xlsx"

tianqixueyu

redsheep 发表于 2012-12-27 12:59
献丑了   关于只复制值,我想到了选择性粘贴-数值    录制的宏里是  PasteSpecial Paste:=xlPasteValues, Op ...

可以了，谢谢！你才是幼儿园中班就这么厉害啊！
同时也感谢2楼这位老师！