Evaluation of several parts

[[Pa...]]

Hello everyone,

I have a question for you (Calypso 7.6).

I'm supposed to measure only one diameter on several parts.

The problem is that I would get multiple reports with only one measurement result.

Is it possible to combine the measurement results from several parts and put them on one report?

Thank you in advance.

[[A...]]

PiWeb has a report called "TableProtocol" that I believe you may utilize without a need for a PiWeb license.

You'll have to search for your measurement plan on the main screen, then click the TableProtocol from the report options. From there, head to the "Measurements" tab on the upper-left side of your screen and in that tab, you can pick which measurement you want in the table. The only limit is it has room for 12 runs.

If that doesn't fit your needs, there is an excel option.
────────────────────────────────────────────────────────────
Edit: PiWeb is outside of Calypso as its own software, just an FYI. It should be an icon on your desktop called PiWeb Reporting Plus

Edited yesterday at 10:56 AM
Updated with specifics.

[[DW...]]

This comes up so often I am surprised Zeiss doesn't incorporate a script like this in their software. See below for compiling XLS files into one XLSX document. 

 

I am placing this here in case anyone runs into this in a future search. This is a PowerShell script that looks at a directory containing the XLS files from a location, opens and saves each file as XLSX to strip the macros, opens and saves each file after deleting the header, and then iterates through each XLSX file copying the desired data and appending a new compiledExcel.xlsx. Once complete, you just open the newly created compiled file, and copy/paste into your report. If you run the same template for all reports, this can be amended to go directly into those templates.

This is a little more advanced than the aforementioned XLS macro file, but can be tweaked to be very helpful.

 

# Define the directory containing the XLS files
$directory = "C:\PATH TO YOUR FILES"

# Create a new Excel application instance
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false

# Convert .xls files to .xlsx
Get-ChildItem -Path $directory -Filter "*.xls" | ForEach-Object {
    try {
        $workbook = $excel.Workbooks.Open($_.FullName)
        $newFileName = [System.IO.Path]::ChangeExtension($_.FullName, ".xlsx")
        $workbook.SaveAs($newFileName, [Microsoft.Office.Interop.Excel.XlFileFormat]::xlOpenXMLWorkbook)
        $workbook.Close($false)
        Write-Host "Converted: $($_.FullName) to $newFileName"
        # Uncomment the next line to delete the original .xls file
        # Remove-Item $_.FullName -Force
    } catch {
        Write-Host "Failed to convert $($_.FullName): $_"
    }
}

# Process .xlsx files
Get-ChildItem -Path $directory -Filter "*.xlsx" | ForEach-Object {
    try {
        $workbook = $excel.Workbooks.Open($_.FullName)
        $worksheet = $workbook.Sheets.Item(1)
        $worksheet.Range("A1:H13").Delete()
        $workbook.Save()
        $workbook.Close()
    } catch {
        Write-Host "Error processing file $($_.FullName): $_"
    }
}

# Compile data into a new Excel file
$destinationExcelFilePath = Join-Path $directory "compiledExcel.xlsx"
if (Test-Path $destinationExcelFilePath) {
    Remove-Item $destinationExcelFilePath -Force
}
$destinationWorkbook = $excel.Workbooks.Add()
$destinationWorksheet = $destinationWorkbook.Sheets.Item(1)

$columnIndex = 1
Get-ChildItem -Path $directory -Filter "*.xlsx" | Sort-Object Name | ForEach-Object {
    $sourceWorkbook = $excel.Workbooks.Open($_.FullName)
    try {
        $sourceWorksheet = $sourceWorkbook.Sheets.Item(1)
        $sourceValues = $sourceWorksheet.Range("B1:B946").Value2
        $destinationWorksheet.Cells.Item(1, $columnIndex).Resize(946, 1).Value2 = $sourceValues
        $columnIndex++
    } finally {
        $sourceWorkbook.Close($false)
    }
}

$destinationWorkbook.SaveAs($destinationExcelFilePath)
$destinationWorkbook.Close($true)

# Quit Excel and clean up
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

[[A...]]

I do have a user-friendly version I made in this topic, if that helps any.

 

[[Mi...]]

Please sign in to view this quote.

Table protocol is what you want. A stated it will only show the last 12 runs. I edited that template so the I can get the last 20 to show. Fonts are smaller, but you get 20 a pg vs 12 a pg.