Hej igen,
Det bliver lige "off the top of my head", så du skal nok kontrollere syntax etc. Og beklager for muligt dobbeltsvar, ved ikke lige hvorfor den gør det.
Nå til humlen i det hele:
//Lavet som XAL kørsel, så kan du selv stoppe det i en qtx etc
//Høvler Custtable account og name afsted til excel ark
#Macroload(Comprintexcel)
INT &R = 1
SET #ExcelInit()
SET #FileNew('')
SET #RowSet(&R)
SET #ColumnSet("A")
SET #FontBold()
SET #Insert("Her kommer Custtable via ComprintExcel")
#ADD(&R,2)
SET #RowSet(&R)
SET #FontBold()
SET #Insert("Kontonummer")
SET #ColumnSet("B")
SET #FontBold()
SET #Insert("Navn")
Search Custtable using AccountIdx
#ADD(&R,1)
SET #RowSet(&R)
SET #ColumnSet("A")
SET #Insert(Custtable.Account)
SET #ColumnSet("B")
SET #Insert(Custtable.Name)
END
SET #ColumnAutofit(1)
SET #ColumnAutofit(2)
SET #AppShow()
SET #ExcelDone()
//Kodeslut
Bemærk &R bruger du til at holde styr på hvilken linje du arbejder på.
Ellers skal du bare tænke du navigerer rundt i Excelarket ved hjælp af række og kolonner.
Kig i ComprintExcel macro biblioteket, der er også macroer til merge etc.
Mvh.
Mads Westen
