为了下载文件不得不发布一篇文章，写一个winccadvance 使用vb脚本直接写入excel的方法

基于博图的winccadvance的vb实例

Sub WriteDataToExcelWithCellDimensions()
    Dim excelApp
    Dim excelWorkbook
    Dim excelWorksheet
    Dim excelFilePath

    ' 指定要写入的Excel文件路径
    excelFilePath = "C:\Path\To\Your\ExcelFile.xlsx" ' 替换为您的Excel文件路径

    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")

    ' 打开Excel文件（如果文件不存在，则会创建一个新文件）
    Set excelWorkbook = excelApp.Workbooks.Open(excelFilePath)

    ' 选择工作表（这里选择第一个工作表）
    Set excelWorksheet = excelWorkbook.Worksheets(1)

    ' 写入数据到单元格
    excelWorksheet.Cells(1, 1).Value = "Hello, World!" ' 将数据写入A1单元格

    ' 设置单元格的宽度（以字符数为单位）
    excelWorksheet.Cells(1, 1).ColumnWidth = 15

    ' 设置单元格的高度（以点数为单位）
    excelWorksheet.Cells(1, 1).RowHeight = 30

    ' 保存Excel文件
    excelWorkbook.Save

    ' 关闭Excel文件
    excelWorkbook.Close

    ' 退出Excel应用程序
    excelApp.Quit

    ' 释放对象引用
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub

' 调用写入Excel文件的函数
WriteDataToExcelWithCellDimensions

上述脚本执行以下操作：

指定要写入的Excel文件的路径。
创建Excel应用程序对象。
打开Excel文件，选择工作表。
将数据写入A1单元格。
设置A1单元格的宽度和高度。
保存Excel文件。
关闭Excel文件和Excel应用程序。