請教各位大大: 我要寫入excel 字串，而這字串是 001 002 003 ...... 但寫入後卻變為 1 2 3 ..... 請問要如何維持 001 002 003 ..... 的型態。 3Q

二個方法 將儲存格的格式改為文字，或是前面加一個 ' 也就是你只要填入 '001 '002 '003 就能正確顯示 001 002 003

引言: 請教各位大大: 我要寫入excel 字串，而這字串是 001 002 003 ...... 但寫入後卻變為 1 2 3 ..... 請問要如何維持 001 002 003 ..... 的型態。 3Q

告訴你一個比較正統的做法 msexcel:= CreateOleObject('Excel.Application'); msexcel.Workbooks.Add; msexcel.Workbooks[1].Worksheets.Add; msexcel.Workbooks[1].Worksheets[1].Name:= 'sheet1'; Worksheet:= msexcel.Workbooks[1].Worksheets['sheet1']; // 指定第一行為文字型態(編號) sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A:A']; sheetrange.Columns.NumberFormatLocal:= '@';

建議使用P.D.大的作法，在我的環境中，直接用Cells[x, y].NumberFormatLocal的方式似乎無效
Delphi 6, Office 2003, 使用CreateOleObject的方式操作。

===================引 用 P.D. 文 章=================== 告訴你一個比較正統的做法 msexcel:= CreateOleObject('Excel.Application'); msexcel.Workbooks.Add; msexcel.Workbooks[1].Worksheets.Add; msexcel.Workbooks[1].Worksheets[1].Name:= 'sheet1'; Worksheet:= msexcel.Workbooks[1].Worksheets['sheet1']; // 指定第一行為文字型態(編號) sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A:A']; sheetrange.Columns.NumberFormatLocal:= '@';

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！