Keep in mind that PC-DMIS's developers may be writing awesome ways to export your current measured part data to Excel, but they will not cross the line of collecting results from multiple parts - for that is a task that falls under the responsibility of SPC software, not measurement machine software.
now for this scrip to work the way you are going to want you have to use a excel template that your features go left to right and the measurements are all in one row
Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("C:\Users\qc2\Desktop\test")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A5:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub
so open up excel go to developer tab and click vb and then double click on the workbook at the left side and a window will pop up past the the scripted in , now i did not make this scrip its something i found online not sure where i found it though
Hiya Folks
Trying to get Excel Template Form (Five part study ) to work in a loop. Works fine if you just run the programme 5 times but will only output the first result if the Form command is within the loop or the final result if outside.
The help documentation is a bit thin.
Thoughts and ideas gratefully accepted - Hexagon are looking at it , will post their reply when received.
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
Sample Number
ASSIGN/PTNUM=C1.INPUT
ASSIGN/PTN=STR(PTNUM)+1
RUN =LABEL/
DCC program routine code ( this area is whatever program routine one has created)
Right after last line of routine code
$$ NO,
*****************************************
ASSIGN/FIL_CSV="C:\Users\Public\Documents\WAI\PC-DMIS\2015.1\CSV_FILES\\125ml_CAP_Substrate.csv" Place where you have pcdmis on drive via installation... use of undescore helps
ASSIGN/SYSDAT=SYSTEMDATE("MM dd yy")
ASSIGN/SYSTIM=SYSTEMTIME("HH:mm:ss")
ASSIGN/V10=SYSDAT+","+SYSTIM
ASSIGN/V11=DIST1.MEAS
ASSIGN/V12=LOC1.D.MEAS
ASSIGN/V13=LOC4.D.MEAS
ASSIGN/V14=FCFPARL1.MEAS
ASSIGN/V15= PTN
ASSIGN/V16=V15+","+V14+","+V13+","+V12+","+V11+","+V10
FPTR =FILE/OPEN,FIL_CSV,APPEND
FILE/WRITELINE,FPTR,V16
FILE/CLOSE,FPTR,KEEP
Assign/V... whatever dimension you desire via assn drop down table/window. Report(s) that need to have single result columns will require each dimension must be singularly assigned!!!!
*Open in excel to see results ;but keep as CSV format/style. ** will not append if this csv file is open at time of appending. Each part program will require its on CSV file!!!