MsExcel:=CreateOleOBject('Excel.Application');
MsExcelWorkBook:=MsExcel.WorkBooks.Add;
MsExcelWorkSheet:=MsExcel.WorkSheets.Add;
......（省略）
first;
while not eof do
  begin
    k:=k 1;
    for l:=0 to FieldCount-1 do
      begin
        s:=fields.Fields[l].asvariant;
        if l<26 then
         MsExcelWorkSheet.Range[chr(65 l) IntToStr(k 1)].Value:=s
        else
         MsExcelWorkSheet.Range['A' chr(39 l) IntToStr(k 1)].Value:=s;
      end;
      next;
  end;
close;

當我設定好了 如何指定Excel sheet寫入，並指定sheet名稱 並且 MsExcelWorkBook MsExcelWorkSheet 各是什麼用途？

引言: 當我設定好了 如何指定Excel sheet寫入，並指定sheet名稱 並且 MsExcelWorkBook MsExcelWorkSheet 各是什麼用途？

MsExcelWorkSheet.Name :='您要命名的Sheet名稱'; 一備Excel可以有多個WorkBook，而一個WorkBook也可以有多個Sheet 所以，可這樣寫： MsExcel.WorkBooks.Add(xlWBatWorkSheet);//增加一個WorkBook並且有一個Sheet MSExcel.WorkBooks[1].Sheets.Add(,,17,xlWorkSheet)//在此WorkBook內在增加17個Sheet Sheets :=XLApp.WorkBooks[1].Sheets;//指定Sheets為第一個WorkBook內的Sheets Sheets.Item[1].Name :='該Sheet的名稱';//指定此Sheets內的第一個Sheet名稱 以例類推，應該能明白了吧！ GPS（全球衛星定位系統） http://www.allgps.com

引言: 當我設定好了 如何指定Excel sheet寫入，並指定sheet名稱 並且 MsExcelWorkBook MsExcelWorkSheet 各是什麼用途？

我想這樣解釋, 你會更瞭解 一個excel檔是一個workbook, 你可以把這個當成一個市面上常看到的筆記本(有打三孔或六孔活頁紙的筆記本, 外面有一層很漂亮的外皮) 而一個筆記本中我們常看到有各種顏色的標籤來區分活頁紙的位置, 這個標籤就是worksheetname, 而在這個標籤前面到上一個標籤後面這一塊的活頁紙範圍就是worksheet的工作底稿, 這樣不知是否有幫到你?

引言:

引言: 當我設定好了 如何指定Excel sheet寫入，並指定sheet名稱 並且 MsExcelWorkBook MsExcelWorkSheet 各是什麼用途？

MsExcelWorkSheet.Name :='您要命名的Sheet名稱'; 一備Excel可以有多個WorkBook，而一個WorkBook也可以有多個Sheet 所以，可這樣寫： MsExcel.WorkBooks.Add(xlWBatWorkSheet);//增加一個WorkBook並且有一個Sheet MSExcel.WorkBooks[1].Sheets.Add(,,17,xlWorkSheet)//在此WorkBook內在增加17個Sheet Sheets :=XLApp.WorkBooks[1].Sheets;//指定Sheets為第一個WorkBook內的Sheets Sheets.Item[1].Name :='該Sheet的名稱';//指定此Sheets內的第一個Sheet名稱 以例類推，應該能明白了吧！ GPS（全球衛星定位系統） http://www.allgps.com

呵呵！了解 謝謝Clarinet與P.D. Clarinet你是作gps嗎 我是作gis的喔

[/quote] 我想這樣解釋, 你會更瞭解 一個excel檔是一個workbook, 你可以把這個當成一個市面上常看到的筆記本(有打三孔或六孔活頁紙的筆記本, 外面有一層很漂亮的外皮) 而一個筆記本中我們常看到有各種顏色的標籤來區分活頁紙的位置, 這個標籤就是worksheetname, 而在這個標籤前面到上一個標籤後面這一塊的活頁紙範圍就是worksheet的工作底稿, 這樣不知是否有幫到你? [/quote] 不好意思 請教一下 我在excel新開一個excel檔時 只在畫面上看到一個workbook 和三個worksheet sheet1~sheet3 workseet這個我懂 它類似書籤分頁的東西 可是workbook只有一個 一個excel檔可以包含很多workbook嗎 如何去新增另一個workbook 還是說每一個workbook(活頁簿)即是一個.xls 他同時可包含n個worksheet 又 當我開啟一個excel檔時 如何知道它包含多少worksheet 即每個worksheet的名稱 因為我要直接把 sheet1~~sheet n 的所有資料抓進來 BCDEFHIJKLMNOPQRSTUVWXZ

------
BCDEFHIJKLMNOPQRSTUVWXZ

引言: 不好意思 請教一下 我在excel新開一個excel檔時 只在畫面上看到一個workbook 和三個worksheet sheet1~sheet3 workseet這個我懂 它類似書籤分頁的東西 可是workbook只有一個 一個excel檔可以包含很多workbook嗎 如何去新增另一個workbook 還是說每一個workbook(活頁簿)即是一個.xls 他同時可包含n個worksheet 又 當我開啟一個excel檔時 如何知道它包含多少worksheet 即每個worksheet的名稱 因為我要直接把 sheet1~~sheet n 的所有資料抓進來

一個Workbook即是一個.xls，是沒錯的！而Excel內可以有多個WorkBook，即多個.xls。 一個Workbook可以有多個Sheet。 要知道一個excel檔內有多少個WorkSheet，可用如下： XLAPP.WorkBooks[n].Sheets.Count 要知道該Sheet的名稱，可用如下： XLAPP.WorkBooks[n].Sheets.Items[n].Name GPS（全球衛星定位系統） http://www.allgps.com

引言:

引言:

一個Workbook即是一個.xls，是沒錯的！而Excel內可以有多個WorkBook，即多個.xls。 一個Workbook可以有多個Sheet。 要知道一個excel檔內有多少個WorkSheet，可用如下： XLAPP.WorkBooks[n].Sheets.Count 要知道該Sheet的名稱，可用如下： XLAPP.WorkBooks[n].Sheets.Items[n].Name

TKS... 又電腦如果沒安裝excel是否寫好的程式沒辦法run 因為我在本機寫好一切正常 拿去一台未灌excel的電腦 就出問題 後來我把電腦的ecxcel移除後 再run 出現錯誤 有沒方法可以在未安裝excel的電腦上跑呢 我用的元件 ExcelApplication Excelworkbook ExcelworkSheet BCDEFHIJKLMNOPQRSTUVWXZ

引言: 又電腦如果沒安裝excel是否寫好的程式沒辦法run 因為我在本機寫好一切正常 拿去一台未灌excel的電腦 就出問題 後來我把電腦的ecxcel移除後 再run 出現錯誤 有沒方法可以在未安裝excel的電腦上跑呢 我用的元件 ExcelApplication Excelworkbook ExcelworkSheet

我都是直接透過Ole的方式，所以電腦上必需有安裝Excel才有辦法！不然會找不到該Object。 我沒用過這三個元件！不過我猜這三個元件應該都是用Ole的方式來呼叫的吧！ 所以，若在沒有裝Excel的電腦上是會出錯的！ 我記得"深度歷險"有幾個元件是直接可讀寫Excel檔案的！這樣就可以不用一定要在有安裝Excel的電腦上Run了！ GPS（全球衛星定位系統） http://www.allgps.com