如何開啟已有的excel並選定某一工作表，在特定的欄位寫入資料 |
|
尚未結案
|
|
Mars123
一般會員   發表：6 回覆：9 積分：3 註冊：2003-07-18 發送簡訊給我 |
|
|
sunsamuel199799
一般會員 發表：1 回覆：4 積分：1 註冊：2003-12-04 發送簡訊給我 |
以下可以參考一下
建立一個ADOConnection Edit_OpenExcelPath.Text := OpenDialog_Excel.FileName; MYconnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' Edit_OpenExcelPath.Text ';Mode=ReadWrite|Share Deny None;Extended Properties=Excel 8.0;Persist Security Info=False';
ADOConnection_Excel.ConnectionString :=MYconnectionString;
ADOConnection_Excel.Connected :=true;
ADOConnection_Excel.GetTableNames(ListBox_SheetList.Items,false);
就可以開啟Excel檔了
|
|
sunsamuel199799
一般會員 發表：1 回覆：4 積分：1 註冊：2003-12-04 發送簡訊給我 |
|
|
Mars123
一般會員 發表：6 回覆：9 積分：3 註冊：2003-07-18 發送簡訊給我 |
|
|
water
初階會員  發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
Mars123
一般會員 發表：6 回覆：9 積分：3 註冊：2003-07-18 發送簡訊給我 |
|
|
ffprince
初階會員 發表：66 回覆：62 積分：25 註冊：2003-08-16 發送簡訊給我 |
在uses处添加ComObj，在Form上放上ExcelApplication、ExcelWorkbook、ExcelWorksheet三个Excel的控件 var ExcelID: Variant;//定义一个变量 ExcelID := CreateOleObject('Excel.Application');//打开Excel程序
ExcelID.Visible := true;//Excel可见
ExcelID.Workbooks.Open('D:\test.xls');//打开某个文件
ExcelID:=ExcelApplication1.Workbooks[1].Worksheets[1];//选中当前第一个工作簿的第一个工作表
ExcelID.cells.item[1,1]:='可以了吗？';//往表的第一行第一列写入“可以了吗？” ExcelApplication1.quit;//以下是推出Excel的程式
ExcelApplication1.disconnect;
ExcelWorksheet1.disconnect;
ExcelWorkbook1.Disconnect; 發表人 - ffprince 於 2004/02/19 12:28:15
|
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
Mars123
一般會員 發表：6 回覆：9 積分：3 註冊：2003-07-18 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
發表時間：2004-02-19 11:14:49
IP:202.129.xxx.xxx 未訂閱
系統時間：2024-11-25 16:20:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |