如题所述
Sub 打开桌面的123()
ZM = CreateObject("WScript.Shell").SpecialFolders("Desktop") '桌面路径
Workbooks.Open Filename:=ZM & "\123.xlsx"
Windows("123.xlsx").Activate
Worksheets(1).Range("a1") = 2
ActiveWorkbook.Close True '保存关闭
End Sub
ZM = CreateObject("WScript.Shell").SpecialFolders("Desktop") '桌面路径
Workbooks.Open Filename:=ZM & "\123.xlsx"
Windows("123.xlsx").Activate
Worksheets(1).Range("a1") = 2
ActiveWorkbook.Close True '保存关闭
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2018-04-07
留下邮箱,写好发给你