[已解决]请问这段代码哪里错了？

qjsu

提示如下：
Excel 无法打开文件“1.xlsx”，因为问价格式或文件扩展名无效。请确定文件为损坏，并且文件扩展名与文件的格式匹配。

hwc2ycy

1. Sub 去除公式连接()
   
2.     Dim i As Integer
   
3.     Dim y As Integer
   
4.     Dim sPath$, sFilename$
   
5.     Application.ScreenUpdating = False
   
6.     '关闭警告信息和对话框，默认情况下重名文件会被覆盖
   
7.     Application.DisplayAlerts = False
   
8.      sPath = ThisWorkbook.Path & Application.PathSeparator
   
9.     y = InputBox("请输入表格数量")
   
10.     If y > Worksheets.Count Or y = 0 Then
    
11.         MsgBox "请输入正确的工作表数量" & "[<" & Worksheets.Count & "]"
    
12.         Exit Sub
    
13.     End If
    
14.    
    
15.     For i = 2 To y + 1
    
16.         Sheets(i).Select
    
17.         Columns("A:M").Copy
    
18.         Range("a1").Activate
    
19.         Selection.PasteSpecial Paste:=xlPasteValues
    
20.         Application.CutCopyMode = False
    
21.         Columns("A:D").Select
    
22.         Range("D1").Activate
    
23.         Selection.Delete Shift:=xlToLeft
    
24.         Columns("J:K").Select
    
25.         Selection.Delete Shift:=xlToLeft
    
26.         Sheets(i).Copy
    
27.         sFilename = sPath & ThisWorkbook.Sheets(i).Name & ".xlsx"
    
28.         Debug.Print sFilename
    
29.         ActiveWorkbook.SaveAs Filename:=sFilename, FileFormat:=xlOpenXMLWorkbook
    
30.         ActiveWorkbook.Close
    
31.     Next
    
32.     Application.ScreenUpdating = True
    
33.     Application.DisplayAlerts = True
    
34. End Sub

复制代码

qjsu

hwc2ycy 发表于 2012-10-22 19:11

我又修改了一下代码，虽然不十分明白是为什么，但还终于调试成功了，谢谢大神，膜拜你，收徒弟不？拜师啊大神，改过地代码如下：
Sub 去除公式连接()

    Dim i As Integer

    Dim y As Integer
   
    Application.ScreenUpdating = False

    '关闭警告信息和对话框，默认情况下重名文件会被覆盖

    Application.DisplayAlerts = False
   
    y = InputBox("请输入表格数量")

    For i = 2 To y + 1

        Sheets(i).Select

          Columns("A:M").Select
         
          Selection.Copy
         
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                   :=False, Transpose:=False
                  
          Application.CutCopyMode = False
         
          Columns("A:D").Select
         
          Range("D1").Activate
         
          Selection.Delete Shift:=xlToLeft
         
          Columns("J:K").Select
         
          Selection.Delete Shift:=xlToLeft
              
        Sheets(i).Copy

        'ActiveWorkbook.SaveAs Application.ActiveWorkbook.Path & "\" & Sheets("i").Name & ".xls"  '(工作表名称为文件名）

        Debug.Print ThisWorkbook.PATH & Application.PathSeparator & ThisWorkbook.Sheets(i).Name & ".xlsx"

        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.PATH & Application.PathSeparator & ThisWorkbook.Sheets(i).Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook

        'ActiveWorkbook.Close True, Filename:=ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Sheets(i).Name & ".xlsx"

        ActiveWorkbook.Close

    Next

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

hwc2ycy

我也半调子，哪有资格收呢。
大家一起学习吧。

qjsu

hwc2ycy 发表于 2012-10-22 19:35
我也半调子，哪有资格收呢。
大家一起学习吧。

您太谦虚了，收了我吧

qjsu

qjsu 发表于 2012-10-22 19:42
您太谦虚了，收了我吧

能在加一句代码吗？在不保存这个文档的情况下关闭该文档？

hwc2ycy

activeworkbook.close false
试试吧。

qjsu

网上搜索了一下，使用这个命令可以，虽然不太明白
thisworkbook.saved = ture
activewindow.close

snow依磬min

高手好多啊，像我这个菜鸟真是……

qjsu

hwc2ycy 发表于 2012-10-23 09:33
activeworkbook.close false
试试吧。

老师的代码也好使，崇拜中ing...