修改以下代码

yaozhaoze

请老师修改以下代码，实现我其他功能，感谢各位老师帮忙
Dim nm As Name, flnm$
     Sheets("P L").Copy '
     Cells.Select
     Selection.Copy
     Selection.PasteSpecial Paste:=xlPasteValues
     flnm = Format(Range("K1"), "yyyy-mm-dd") & [d5].Value（指定单元格名称，修改成文件命名为当天日期）
    For Each nm In ActiveWorkbook.Names
         nm.Delete
     Cells.Select
     Selection.ClearComments
     Next
     ChDir "F:\Warehouse management\2018年\包装明细\包装清单"（指定保存到文件夹，修改成当前文件所在文件夹）
     ActiveWorkbook.SaveAs Filename:= _
    "F:\Warehouse management\2018年\包装明细\包装清单\" & flnm & ".xls", FileFormat:=18（指定单元格名称，修改成文件命名为当天日期）

End Sub

microyip

有什么问题，没看出有什么问题，如果是修改那些括号内容，你都中级会员了，不会连这个基础知识都不知道吧？

yaozhaoze

microyip 发表于 2018-7-30 08:55
有什么问题，没看出有什么问题，如果是修改那些括号内容，你都中级会员了，不会连这个基础知识都不知道吧？

老师您好，VBA不是我强项，请您帮忙括号内容修改，谢谢

蓝桥玄霜

请见代码。

yaozhaoze

蓝桥玄霜 发表于 2018-7-30 10:31
请见代码。

谢谢老师回复，我不懂VBA，您可以在我这个代码里面修改吗?谢谢您

liulang0808

1. Dim nm As Name, flnm$
   
2.      Sheets("P L").Copy '
   
3.      Cells.Select
   
4.      Selection.Copy
   
5.      Selection.PasteSpecial Paste:=xlPasteValues
   
6.      
   
7.     For Each nm In ActiveWorkbook.Names
   
8.          nm.Delete
   
9.      Cells.Select
   
10.      Selection.ClearComments
    
11.      Next
    
12.      flnm = Format(Date, "yyyy-mm-dd")  '（指定单元格名称，修改成文件命名为当天日期）
    
13. 
    
14.      ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & flnm & ".xls", FileFormat:=18  '（指定单元格名称，修改成文件命名为当天日期）
    
15. 
    
16. End Sub
    

复制代码

yaozhaoze

liulang0808 发表于 2018-7-30 13:17

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & flnm & ".xls", FileFormat:=18  
谢谢您回答，请您帮这句代码再次修改，把新建文件也保存路径和运行VBA文件同一个文件夹里面，谢谢