請問我如何在Excel 複製一列資料及貼上資料? |
尚未結案
|
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
不好意思,問題內容詳述不夠清楚...^^
說明一下個人目前碰到之問題.
現有一excel報表,但報表內容我做了一些修改,我將表頭及表尾保留,中間資料將會從資料庫讀出轉入,但於中間資料有部份公式個人想保留,所以想用複製一整列的方式,插入(貼)於下一列資料,在從資料庫讀出資料轉入剛剛複製的那一列資料中,所以問題來了?
1.我要如何選取一整列(類似點選excel左邊row上的數字即可選擇一列)?
2.要如何複製,插入及貼上一整列?
3.在請問TExcelApplication,TExcelWorkbook,TExcelWorksheet這3個元件個別意思及關聯性?
本人對delphi轉入excel比較不熟悉,煩請大大們指教.
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
引言: 不好意思,問題內容詳述不夠清楚...^^ 說明一下個人目前碰到之問題. 現有一excel報表,但報表內容我做了一些修改,我將表頭及表尾保留,中間資料將會從資料庫讀出轉入,但於中間資料有部份公式個人想保留,所以想用複製一整列的方式,插入(貼)於下一列資料,在從資料庫讀出資料轉入剛剛複製的那一列資料中,所以問題來了? 1.我要如何選取一整列(類似點選excel左邊row上的數字即可選擇一列)? 2.要如何複製,插入及貼上一整列? 3.在請問TExcelApplication,TExcelWorkbook,TExcelWorksheet這3個元件個別意思及關聯性? 本人對delphi轉入excel比較不熟悉,煩請大大們指教. //複製第一行,到第二行 uses ComObj; ... var ExcelApp: Variant; ... procedure TForm1.Button1Click(Sender: TObject); begin ExcelApp := CreateOleObject( 'Excel.Application' ); ExcelApp.WorkBooks.Add; ExcelApp.Visible := True; ExcelApp.Cells[1,4].Value := '第1行第4列'; ExcelApp.Cells[2,4].Value := '第2行第4列'; end; procedure TForm1.Button2Click(Sender: TObject); begin ExcelApp.ActiveSheet.Rows[2].Insert; //插入行 ExcelApp.ActiveSheet.Rows[1].Copy; //複製第1行 ExcelApp.ActiveSheet.Rows[2].Select; //選擇第2行 ExcelApp.ActiveSheet.Paste; //在第2行貼上 end;網海無涯,學無止境! 發表人 - qoo1234 於 2004/01/03 02:13:01 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |