안녕하세요.
정말정말 내가 모를때 이런 곳이 있다는게 항상 고맙게 여겨집니다.
제가 리스트박스에 콤마로 구분해서 데이타를 저장하고 다시 엑셀불러와서
텍스트로 나누어서 엑셀로 보고 있습니다.
리스트박스에서 바로 엑셀로볼수 없을까요...
아시는분 계시면 한수 아르켜 주세요.....아무리 생각해봐도 물론 제가 초보라
생각하는게 한계를 많이 느낍니다...
그리고 모든분들 행복하세요....

참고로 제가 만든거 간단한거 아래에 있습니다.
procedure TForm1.SpeedButton2Click(Sender: TObject);
var

s,f_name:string;
BEGIN
listbox1.Clear;
s:=S+'ASP1'+',';
s:=S+'asp2'+',';
s:=S+'dcip1'+',';
s:=S+'dcip2';

listbox1.Items.Add(s);
QUERY1.First;
//t1.active:=true;
while not QUERY1.eof do begin
s:=QUERY1.fieldbyname('ASP1').asstring+',';
s:=s+QUERY1.fieldbyname('asp2').asstring+',';
s:=s+QUERY1.fieldbyname('dcip1').asstring+',';
s:=s+QUERY1.fieldbyname('dcip2').asstring+',';



listbox1.Items.add(s);
QUERY1.next;
end;

if savedialog1.Execute then
begin
f_name:=savedialog1.filename;
listbox1.Items.SaveToFile(f_name+'.txt');
showmessage('저장되었습니다');
end;