Arsip: bertanya tentang akses excel dan stringgrid

more 15 years ago
muharmen
Selamat sore,
saya mau bertanya beberapa hal kepada master-master delphi,
- apakah kita dapat membikin sebuah grafik di MS excel dengan mengunakan delphi dan menyimpan sebagai file .xls, kalau dapat bagaimana caranya
- apakah data stringgrid dapat disimpan dalam suatu file .txt, kalau bisa bagaimana caranya, kalau tidak dalam bentuk file apa dapat disimpan.
- bagaimana cara menyimpan sebuah grafik yang dibuat dengan teechart sebagai sebuah file grafik sehingga dapat kita panggil dengan teechart kembali.

more 15 years ago
mas_kofa
point 2 & 3 : bisa, kamu tinggal bikin method dengan cara kamu sendiri untuk menyimpan / dan me-load kembali...

more 15 years ago
muharmen
makasih atas jawabannya, tapi bagaimana cara membuat suatu metode dengan delphi tersebut, maklum saya masih awam dengan delphi dan baru 1 bulan ini mulai mengunakan delphi,
rencananya saya akan mengunakan method savecharttofile yang ada dalam teechart delphi tapi mesti mengunakan teestore.dcu, tapi ternyata di pogram delphi di compi ku tidak ada teestore.dcu itu, dimana cara downloadnya? adakah mas-mas dan mbak-mbak mengunakannya?
- bagaimana cara menyimpan sheet excell dengan delphi7,
saya sudah coba dengan
xlapp.workbooks.worksheets[1].saveas('aa.xls');
dengan xlapp bertipe variant;
kok tak bisa ya, ada error; emangnya gimana cara simpan excell tersebut.

more 15 years ago
skh_cay
untuk menyimpan stringgrid ke excel bisa menggunakan comon object yang sdh di include di delphi

more 15 years ago
skh_cay
@muharmen mau saya kasih contoh source kodenya saya gak bisa posting,
@ bang luri : kok saya gak bisa posting code ya?? knp???

more 15 years ago
muharmen
makasih skh_cay,
transfer stringgridnya ke excel udah bisa, ambil data excel masuk kestringgrid juga udah bisa, tapi masalahnya menyimpan hasil konversi stringgrid itu dalam excel yang tidak bisa, jadinya saya simpan secara manual setelah excelnya terbuka baru nanti dipanggil lagi untuk dibuka dengan stringrid.
oh ya menyimpan workbook excelnya itu bisa ke suatu drive, tapi malah error ketika dibuka dengan excel,
programnya saya buat kaya ini
var excelObj : variant;
begin
excelObj := CreateObject('Excel.Application');
excelObj.Workbooks.Add;
excelObj.Workbooks(1).SaveAs( 'd:\data.xls');
excelObj.Workbooks(1).Close;
excelObj.Quit;
end;
yang jadi masalah bagaimana simpan sheet excellnya tersebut?
abang2 bisa bantu tidak cara simpan program excel tersebut langsung dengan delphi ?

more 15 years ago
skh_cay
function SaveAsExcelFile(AGrid: TNiceGrid; ASheetName, AFileName: string): Boolean;
const
xlWBATWorksheet = -4167;
var
Row, Col: Integer;
GridPrevFile: string;
XLApp, Sheet, Data: OLEVariant;
i, j: Integer;
begin
Data := VarArrayCreate(, varVariant);
for i := 0 to AGrid.ColCount - 1 do
for j := 0 to AGrid.RowCount - 1 do
Data[j + 1, i + 1] := AGrid.Cells[i, j];
Result := False;
XLApp := CreateOleObject('Excel.Application');
try
XLApp.Visible := False;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := ASheetName;
Sheet.Range.Value := Data;
try
XLApp.Workbooks[1].SaveAs(AFileName);
Result := True;
except
end;
finally
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
end;

more 15 years ago
muharmen
makasih skh_cay atas codenya tersebut;
tapi saya mau nanya TNiceGrid itu komponen apa? dimana letaknya di delphi tersebut, kok ngak ada di delphi yang saya punya , saya mengunakan delphi7.
kalau boleh tau dimana dicari tkomponen tersebut

more 15 years ago
n3o_cybertech
kompoenen TNiceGrid itu bukan komponen bawaan dari delphi, komponen tersebut adalah komponen gratis yang dapat didownload dari http://www.priyatna.org/nicegrid.php

more 15 years ago
muharmen
makasih mas n3o, kompoen nya dah bisa saya download, tapi kalo pakai stringgrid bisa ngak ya simpan excelnya?
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Open Source ada di sini...
by eksant in OpenSource dan Gratis more 18 years ago - hapus database menggunakan ZQuery
by luq_h in Tip n Trik Pemrograman more 13 years ago - cara kirim email ke banyak tujuan
by lumpurpanas in OOT more 18 years ago - dbchart
by santi in Hal umum tentang Pascal Indonesia more 16 years ago - Menampilkan pesan dimonitor lain dengan delphi
by isoke in Hal umum tentang Pascal Indonesia more 19 years ago - Cuman Tanpilan doang
by lela in MySQL more 19 years ago - Accounting
by dannyong1999 in OOT more 19 years ago - kenapa Ambiguous column name 'tgl'.
by ricky_seldjatem in Tip n Trik Pemrograman more 16 years ago - Minta infonya dunk...
by p2bf in Enginering more 17 years ago - Ngasih Warna di Detail Data Fastreport
by supermuam in Reporting more 16 years ago