- ©«¤l
- 79
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-21
- ³Ì«áµn¿ý
- 2023-3-13
|
¦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 |
|