Mau Ikut jawab yah :
long lreturn, value
string docname, named
lreturn = messagebox('Confirmation', 'Save Data?',
Question!, YesNoCancel!, 2)
value = GetFileSaveName("Select File", docname, named, "DOC",
"XLS Files (*.XLS), *.XLS," + " Text Files (*.TXT),*.TXT")
IF value = 1 THEN
dw_1.SaveAs(docname, Excel!, TRUE)
end if
Regards,
Huda Zulkarnaen
Email Security Information:
X_NAI_Spam_Score: 0.7. X_NAI_Spam_Level: . X_MSMAIL_PRIORITY: .
X_OriginalArrivalTime: . X_MS_TNEF_Correlator: . X_MS_HAS_ATTACH: .
Hermawan <[EMAIL PROTECTED]>
Sent by: [email protected]
01/22/2008 08:32 AM
Please respond to indopb
To: [email protected]
cc:
Subject: Re: [indopb] Re: sekedar tanya...
Dah coba pake ni belum ??
dw_1.SaveAs('', Excel!, True)
noerabbas wrote:
> Ini sekedar jawab,
> kalau format reportnya nggak ngrepotin alias sederhana bisa simpan
> dulu ke text pakai saveasascii() atau saveasformattedtext(), kalau dah
> rumit ada tuh product dari luar tapi harus beli sekitar US$ 29.
>
> salam iseng
>
> --- In [email protected], "Djalu Ranadhi" <[EMAIL PROTECTED]> wrote:
>
>> bagaimana agar report yang ada di datawindow bisa diexport ke excel?
>> atau text report-nya bisa di copy-paste kah?
>> thx
>> --
>> Djalu Ranadhi
>>
===========================================================================
This email is confidential. If you are not the addressee tell the sender
immediately and destroy this email without using, sending or storing it.
Emails are not secure and may suffer errors, viruses, delay, interception
and amendment. The Trakindo Group of Companies do not accept liability for
damage caused by this email and may monitor email traffic.
Unless expressly stated, any opinions are the sender's and are not approved
by the Trakindo Group of Companies and this email is not an offer,
solicitation, recommendation or agreement of any kind.
===========================================================================
