"... pictures in the table to be saved in their pictural form?"
An image when load in memory is just an array (2 or 3D) and so writing a table will output the values as numeric; not as embedding into Excel as the image.
Somebody else asked just the other day about embedding an image in a cell in Excel; <I posted code there that seemed to work using ActiveX>; there is not any builtin function in MATLAB to do such...
The following is a totally untested rearrangement of your code above using one array for the three folders and using the above example code to place an image in a cell in a Lx3 array in the first sheet of a given workbook...good luck.
FQN=fullfile(pwd,'pic.xlsx'); % COM requires a fully-qualified name to open Excel file
excel=actxserver('Excel.Application'); % open the connection
wbk=excel.Workbooks.Open(FQN); % and the workbook
wksht=wbk.ActiveSheet; % and a reference to active sheet
d=[dir('**/NUSCH*AP/**/*.jpg'); % get the list of image files
dir('**/NUSCH*JS/**/*.jpg');
dir('**/NUSCH*LZ/**/*.jpg')];
N=numel(d); % how many are there
cols=3; % desired number columns
L=fix(N/cols); % how many rows needed
R=rem(N,cols); % how many left over after L rows
n=0;
for c=1:cols
for r=1:L+(c<=R) % write L rows plus 1 if remainder in column
cell=sprintf('%c%d',char('@')+c,r); % cell address for row, col
wksht.Range(cell).Select
n=n+1; % nth image to write
range.InsertPictureInCell(fullfile(d(n).folder,d(n).name)); % insert the image in the cell
end
end
excel.ActiveWorkbook.Save % write the updated file
excel.ActiveWorkbook.Close(0) % and close the file
excel.Quit; delete(excel);clear excel % clean up...
