在wps 用vbs从当前工作簿复制指定内容到一个新建的工作簿里面

以下是将当前工作簿中的A1:B10区域复制到一个新建的工作簿中的VBA代码：

Sub CopyRangeToNewWorkbook()
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add ' 新建工作簿
    ThisWorkbook.Sheets(1).Range("A1:B10").Copy ' 复制当前工作簿中的内容
    newWorkbook.Sheets(1).Range("A1:B10").PasteSpecial xlPasteAll ' 粘贴到新建工作簿中
End Sub

如果要使用VBScript，可以将上述代码稍作修改：

Set newWorkbook = Workbooks.Add ' 新建工作簿
ThisWorkbook.Sheets(1).Range("A1:B10").Copy ' 复制当前工作簿中的内容
newWorkbook.Sheets(1).Range("A1:B10").PasteSpecial -4163 ' 粘贴到新建工作簿中
newWorkbook.SaveAs "C:\NewWorkbook.xlsx" ' 保存新建工作簿
newWorkbook.Close False ' 关闭新建工作簿

注意，VBScript中没有直接调用剪切板的方法，需要使用`-4163`参数来指定粘贴方式。另外，需要手动指定新建工作簿的保存路径。

相关问题

WPS宏代码如何新建工作表创建到最后一个工作表之后

WPS 的宏代码中，可以使用以下代码在最后一个工作表之后创建一个新的工作表：

Dim newSheet As Object
Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

这里使用了 ThisWorkbook.Sheets.Count 表示当前工作簿中工作表的数量，也就是最后一个工作表在集合中的索引。将这个索引作为 After 参数传递给 Sheets.Add 方法，即可在最后一个工作表之后创建新的工作表。同时，使用 Set 关键字将新建的工作表对象赋值给变量 newSheet，以便后续操作。

wps js宏怎么保存当前的工作簿到指定位置

WPS JS宏是一种利用JavaScript脚本来自动化处理Office文档的方式，包括Excel工作簿。如果你想通过宏将当前工作簿保存到指定的位置，可以按照以下步骤编写：

1. 打开VBA编辑器（在WPS表格中可通过`插入`->`对象`->`Microsoft Visual Basic for Applications`打开）。

2. 创建一个新的模块（通常是Module），然后粘贴以下JS宏代码：

Sub SaveWorkbookToSpecificLocation()
    Dim wb As Workbook
    Set wb = ThisComponent.CurrentController.ActiveSheet.GetParent()
    
    '指定保存路径
    Dim savePath As String
    savePath = "C:\Your\Desired\Save\Directory\" '请替换为你想要保存的实际路径

    '添加文件名（这里假设当前日期作为文件名）
    Dim fileName As String
    fileName = Format(Now(), "yyyy-mm-dd") & ".xlsx"

    '完整文件路径
    Dim fullPath As String
    fullPath = savePath & fileName
    
    '保存工作簿
    wb.storeAsURL(fullPath)
End Sub

3. 保存并关闭VBA编辑器，回到WPS表格。

4. 要运行宏，你可以选择“工具”菜单，找到“宏”，然后选择刚才创建的`SaveWorkbookToSpecificLocation`，点击“运行”。