Excelに特殊文字を貼り付けてみよう♪


procedure TForm1.Button1Click(Sender: TObject);
   var
   W : _Workbook;
   v : Variant;
   wStr : WideString;
begin
   ExcelApplication1.Connect;
   W := ExcelApplication1.Workbooks.Add(xlWBATWorksheet ,1);
   if w.Sheets.Count>0 then
   begin
      v := w.Sheets.Item[1];
      ShowMessage(v.name);
      wStr := WChar($329E);
      v.Cells[1,1] := wStr;
   end
end;