Excel VBA实例教程（工作簿）-excel教程下载

编写：天涯追梦 ｜ 微信公众号：天涯追梦54 ｜ 源文件可到公众号里去下载

Private Sub 新建工作簿_Click()

Workbooks.Add

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\\123.xlsm"

End Sub

新建工作簿并指定保存工作簿路径的位置

Private Sub 删除工作簿_Click()

Kill ThisWorkbook.Path & "\\123.xlsm"

End Sub

删除当前工作簿路径下的文件

Private Sub 打开工作簿_Click()

Workbooks.Open ThisWorkbook.Path & "\\1 新建工作簿.xlsm"

End Sub

打开当前工作簿下路径的文件

Private Sub 写入内容_Click()

Workbooks.Open ThisWorkbook.Path & "\\1 新建工作簿.xlsm"

ActiveWorkbook.ActiveSheet.[a1] = "这是我要写的内容"

ActiveWorkbook.Save

ActiveWorkbook.Close

End Sub

打开当前工作簿下路径的文件并写入内容，然后保存并关闭文件。

分享是一种美德，如果你学会了就把你所知道的分享给还在求学路上的人吧！

希望对看到这教程的您有所帮助。

如果你来了就请留下你的评论吧！说说你的看法和观点，你是不是还有更好的方法去写代码。

大家交流共同进步……