Arsip: cara ngerubah data di excel lewat delphi gimana

more 13 years ago
mas_kofa
var vkodemk:string;
bposting:boolean;
vsks:string;
function Convert_To_Excel(namatable,namafileexcel:string):integer;
var i,j:integer;
source:TTable;
Dest:TF1Book;
countfield,countrec:integer;
begin
try
Source:=TTable.create(application);
Source.databasename:=extractfilepath(namatable);
Source.tablename:=extractfilename(namatable);
Source.Active:=true;
Dest:=TF1Book.create(application);
countfield:=Source.fieldcount;
countrec:=Source.RecordCount;
if countrec>16382 then
begin
result:=-1;
exit;
end;
for i:=1 to countfield+1 do
begin
if i=1 then Dest.TextRC[1,i]:='No'
else Dest.TextRC[1,i]:=Source.Fields[i-2].DisplayName;
{pengecekan lebar field}
if i=1 then
begin
Dest.ColWidth[i]:=length(Source.fields[i].displayname)256
end
else if length(Source.fields[i-2].displayname) > Source.fields[i-2].datasize
then Dest.ColWidth[i]:=length(Source.fields[i-2].displayname) 256
else Dest.ColWidth[i]:=Source.fields[i-2].datasize*256+300;
end;
Source.first;
for j:=1 to countrec do
begin
for i:=1 to countfield+1 do
begin
{pencetakan record}
if i=1 then Dest.numberRC[j+2,i]:=j
else if i=2 then Dest.TextRC[j+2,i]:=copy(Source.Fields[i-2].text,1,2)+'.'+
copy(Source.Fields[i-2].text,3,2)+'.'+copy(Source.Fields[i-2].text,5,3)
else Dest.TextRC[j+2,i]:=Source.Fields[i-2].Text
end;
Source.next;
application.ProcessMessages;
end;
Dest.write(namafileexcel,F1FileExcel5);
Source.free;
Dest.free;
except
end;
result:=0;
end;

more 13 years ago
lela
HEHEHEH, nuhun ya, aku mo nyobain ah, tapi kalo ada yang salah ntar bantuin lagi ya

more 13 years ago
chandra
gimana caranya kalo mau nulis text ke excel? misal saya mau nulis
cell a1='ini'
cell a2='ibu'
cell a3='budi'
thanx

more 13 years ago
donald
@lela: cara ngerubah data di excel lewat delphi gimana, mohon bantuannya bangetkok kulo gak ngerti ya apa yang dimaksud ama @lela,tolong donk diperjelas ato contoh file dalam bentuk excelnya,krn saya juga tertarik nih dengan pembahasan perubahan data excel melalui delphi

more 13 years ago
lela
misalkan di excel data pada sel a2=4, nah kita pengen melalui delphi di excel itu sel a2 datanya berubah jadi 5, itu gimana sih carane
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- KONSEP PENGEMBANGAN SOFTWARE BERSAMA
by rusli_chow in Tip n Trik Pemrograman more 13 years ago - Pembulatan bilangan desimal
by adit4it in Hal umum tentang Pascal Indonesia more 14 years ago - Indexing Document
by trimbil in Enginering more 11 years ago - (Help)mohon bantuan temen2 bikin flowchart dari code ini
by l14m in Tip n Trik Pemrograman more 9 years ago - Size Kaos Biar Nga Trouble
by saysansay in Hal umum tentang Pascal Indonesia more 14 years ago - program kompresor/zip & SFX
by Dedi_Shen in Tip n Trik Pemrograman more 14 years ago - Dumping MySQL
by n3o_cybertech in MySQL more 13 years ago - cara membaca perintah dari sms ke komputer
by ismail069 in Network, Files, I/O & System more 15 years ago - Kembali ke form sebelumnya...
by Random in Form Enhancement & Graphical Controls more 13 years ago - Pengenalan pola huruf
by henryuuga in Tip n Trik Pemrograman more 13 years ago