,可以通过以下步骤实现:
Sub CreateNewWorkbook()
Dim newWorkbook As Workbook
Dim filePath As String
' 获取当前工作表所在的文件夹路径
filePath = ThisWorkbook.Path
' 创建新的工作簿
Set newWorkbook = Workbooks.Add
' 保存新的工作簿在同一文件夹中
newWorkbook.SaveAs filePath & "\新工作簿.xlsx"
' 关闭新的工作簿
newWorkbook.Close
' 释放资源
Set newWorkbook = Nothing
End Sub
以上代码会在当前工作表所在的文件夹中创建一个名为“新工作簿.xlsx”的新工作簿,并保存在该文件夹中。你可以根据需要修改文件名和文件格式。
推荐的腾讯云相关产品:腾讯云对象存储(COS)。
腾讯云对象存储(COS)是一种高可用、高可靠、强安全的云端存储服务,适用于存储和处理各种非结构化数据,如图片、音视频、文档等。它提供了简单易用的API接口和丰富的功能,可以方便地进行文件的上传、下载、管理和分享。
产品介绍链接地址:腾讯云对象存储(COS)
领取专属 10元无门槛券
手把手带您无忧上云