WPS开发文档

WPS官网的WPS开放平台开发文档，摘抄一些以记录及作为文档的入口记录，以后对WPS表格的操作编程再也不是从网上搜索到的只字片语了^_^。

Workbook.SaveAs

在另一不同文件中保存对工作簿所做的更改。

语法

express.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

express   一个代表 Workbook 对象的变量。

参数

XlFileFormat 枚举

指定保存工作表时的文件格式。

Column.AutoFit

改变表格列宽，使之在单元格文本换行方式不变的情况下，适应文本宽度。

语法

express.AutoFit()

express   一个代表 Column 对象的变量。

说明

如果表格的宽度已等于从左边界到右边界的距离，则此方法无效。

示例

/*本示例在新文档中创建一个 3x3 表格，然后调整第一列的宽度，使之与文本的宽度相称。*/
function test() {
    let docNew = Application.Documents.Add()
    let tableNew = docNew.Tables.Add(Selection.Range, 3, 3)
    tableNew.Cell(1, 1).Range.InsertAfter("First cell")
    tableNew.Columns.Item(1).AutoFit()
}

/*本示例在新文档中创建一个 3x3 表格，然后调整所有列的宽度，使之与文本的宽度相称。*/
function test() {
    let docNew = Application.Documents.Add()
    let tableNew = docNew.Tables.Add(Selection.Range, 3, 3)
    tableNew.Cell(1, 1).Range.InsertAfter("First cell")
    tableNew.Cell(1, 2).Range.InsertAfter("This is cell (1,2)")
    tableNew.Cell(1, 3).Range.InsertAfter("(1,3)")
    tableNew.Columns.AutoFit()
}

我有个表格，列数比较多，行数比较少，我想自动调整到一页打印，便要知道分页所在的列，于是上百度搜索（搜索：vb.net 获取WPS表格分页列），人工智能给出了下面代码，还未测试是否可行。 

Imports Microsoft.Office.Interop.Excel
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim excelApp As New Application()
        Dim workbook As Workbook = excelApp.Workbooks.Open("C:pathtoyourfile.xlsx")
        Dim worksheet As Worksheet = workbook.Sheets("Sheet1") ' 替换为你的工作表名称
 
        Dim pageSetup As PageSetup = worksheet.PageSetup
        Dim pageColumns As Range = pageSetup.PrintArea
 
        ' 输出分页列的范围
        Console.WriteLine("分页列的范围：")
        Console.WriteLine(pageColumns.Address)
 
        workbook.Close()
        excelApp.Quit()
    End Sub
End Class

上面的应该是获得全部打印区域的范围，再结合人工智能（搜索：vb.net 获取WPS表格分页）给出一个获得所有页的代码，应该就差不多能实现了。

Imports System
Imports System.Runtime.InteropServices
 
Public Class Program
    Public Shared Sub Main()
        Dim wpsApp As Object = CreateObject("KWPS.Application")
        Dim wpsDoc As Object = wpsApp.ActiveDocument
        Dim wpsSheet As Object = wpsDoc.ActiveSheet
 
        Dim pageCount As Integer = wpsSheet.PageSetup.Pages.Count
        Console.WriteLine("WPS表格的分页数量为：" & pageCount)
 
        ' 释放COM对象
        Marshal.ReleaseComObject(wpsSheet)
        Marshal.ReleaseComObject(wpsDoc)
        Marshal.ReleaseComObject(wpsApp)
    End Sub
End Class

代码007普通

打赏 收藏 海报 链接