ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA §PÂ_·í«eEXCELÃþ«¬, ¦ASAVE AS

[µo°Ý] VBA §PÂ_·í«eEXCELÃþ«¬, ¦ASAVE AS

Hi ¤j¤j,

·Q°Ý¤@¤U«ç¼Ë¼g¤@­ÓVBA, ¨Ó§PÂ_·í«eÀÉ®×Ãþ«¬?

1. ¨Ó§PÂ_·í«eÀÉ®×Ãþ«¬
2. CSV?
4. Yes , Save as Excel workbook.


thank you

¦pªGÀɦW¦bÀx¦s®æ RANGE("A1") ¤º
¤ñ¦p C:\TEMP\TEST.CSV

If Right(Range("A1"), 4) = ".CSV" Then
     ActiveWorkbook.SaveAs Filename:="C:\Users\Tat\Documents\excel\Book1123123.xls"
Else
    MsgBox "NOT CSV FILE"
End If

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD