將Word轉到Report |
答題得分者是:zxy666666
|
TTS
初階會員 發表:72 回覆:66 積分:27 註冊:2003-05-06 發送簡訊給我 |
小弟有一張Word製成的表格 現在想要寫成程式來印
因為此張表格實在很複雜 所以不知有什麼方式可以先將這表格先轉到QReport上
至於轉換的方式小弟想過兩種
其一: 將整張表格都先轉成QReport,等同於在QReport畫了此表格
其二: 程式列印時去抓此表格的Word檔來套印
****************************************
不過以上的方式小弟都不知該如何處理 煩請各位高手提供方式!!! -Tks- 發表人 - TTS 於 2005/05/26 11:58:24
|
zxy666666
中階會員 發表:108 回覆:150 積分:86 註冊:2005-01-14 發送簡訊給我 |
您好! 我有遇到過這樣的問題,
不過因為我不會Word套印,
後來將其轉換成Excel檔再套印,沒有問題. 請參考如下代碼,希望能對您有幫助:
< class="code">
Uses ComObj
...
procedure TForm1.InsertData_Sample;
var
i : Integer ;
sTest : String;
ExcelApp : variant ;
begin
ExcelApp := CreateOleObject('Excel.Application') ;
ExcelApp.Visible := FALSE;
ExcelApp.Caption := 'test-xls'; //以下開啟舊檔
if not(FileExists('c:\demo.xls')) then
begin
Showmessage('開啟檔案DEMO.XLS失敗!') ;
Abort ;
end
else
begin
with TMemoryStream.Create do
try
LoadFromFile('c:\demo.xls') ;
SaveToFile('c:\Samptemp.xls') ;
finally
free ;
end ;
end ; Try
ExcelApp.WorkBooks.Open( ApplicationPath 'Samptemp.xls' );
ExcelApp.WorkBooks[1].Activate;
ExcelApp.WorkSheets[1].Activate;
...
// ExcelApp.ActiveSheet.Cells[1,1].Value := 'test1' ;
或
// ExcelApp.ActiveSheet.Range[ 'A18' ].Value := 'test2';
...
Except
Showmessage('打開EXCEL發生異常!') ;
ExcelApp.ActiveWorkBook.Saved := True;
ExcelApp.quit ;
End ;
ExcelApp := Unassigned;
end;
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好:
一般來講我會用3種方式,視狀況而定.
1.自己在QuickRep中畫,好處是使用者操作簡單,壞處是只要改報表樣式,使用者就會想找你聊聊...因為沒看到版面你也沒陳述你的問題在哪,所以幫不上忙. 2.直接使用程式做Word套表,下面列出參考資料,請研究後再發問.
http://delphi.ktop.com.tw/topic.php?topic_id=22330
這個有source檔案
http://delphi.ktop.com.tw/topic.php?topic_id=22331
http://delphi.ktop.com.tw/topic.php?topic_id=22332
http://delphi.ktop.com.tw/topic.php?topic_id=22702
http://delphi.ktop.com.tw/topic.php?topic_id=22703
http://delphi.ktop.com.tw/topic.php?topic_id=25423
http://delphi.ktop.com.tw/topic.php?topic_id=25555
我的做法是,在Word上填資料的地方去做一個Tag,程式在套表時會去搜尋Tag,然侯將真正的資料去取代那個Tag,以達到套表功能. 3.將Word所要套表的欄位定義出來,然後利用程式將資料轉成Excel,如何轉Excel搜尋站內有一卡車資料,最後利用Word內建的資料套表功能與Excel做結合,這個去書店隨便翻本Word的書都會教.
|
TTS
初階會員 發表:72 回覆:66 積分:27 註冊:2003-05-06 發送簡訊給我 |
|
zxy666666
中階會員 發表:108 回覆:150 積分:86 註冊:2005-01-14 發送簡訊給我 |
引言: 請問zxy666666 你是如何將Word先轉存成Excel? 另外你提供的方式 應該只是開啟excel吧?hi,TTS您好! 我轉Excel是用笨方法.(自己手動畫的啦,因為我用的是固定格式所以就辛苦一次了,誰叫我Word不太會用呢.不過我想還真的要找時間好好學習有關轉Word的知識) 或許你可以搜尋並參考本站上的一些資料去轉Excel. 以下兩行就是指定位置填入資料的兩種寫法: // ExcelApp.ActiveSheet.Cells[1,1].Value := 'test1' ; 或 // ExcelApp.ActiveSheet.Range[ 'A18' ].Value := 'test2'; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |