[已解决]写了一个另存为文件的宏为啥不好用呢

a8598048

Sub 按钮1_Click()
ChDir ThisWorkbook.Path
    ActiveWorkbook.SaveAs Filename:="ThisWorkbook.Path & " \ " & 1.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

把文件另存为命名为1的文件 放在同一个文件夹中 为啥不好用呢？

最佳答案

月排行榜 / 总排行榜

1032446692

2013-7-1 11:47

1. Sub 按钮1_Click()
   
2. ChDir ThisWorkbook.Path
   
3.     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\1.xls", _
   
4.         FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
   
5.         ReadOnlyRecommended:=False, CreateBackup:=False
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

a8598048

{:251:}

那么的帅

1. Sub 按钮1_Click()
   
2.     ChDir ThisWorkbook.Path
   
3.     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & "1.xls", _
   
4.         FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
   
5.         ReadOnlyRecommended:=False, CreateBackup:=False
   
6. End Sub

复制代码

a8598048

版主大人呢？

1032446692

1. Sub 按钮1_Click()
   
2. ChDir ThisWorkbook.Path
   
3.     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\1.xls", _
   
4.         FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
   
5.         ReadOnlyRecommended:=False, CreateBackup:=False
   
6. End Sub
   

复制代码

风林火山

引号少了两个