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

[µo°Ý] ¦p¦ó³]©w¤@­Ó«ö¶s ¶}±ÒCSVÀÉ®× ¤£«ü©w¸ô®|

  1. Sub zz()
  2. With Application.FileDialog(3)
  3.     .Title = "Open csv files"
  4.     .Filters.Add "CSV files", "*.csv", 1
  5.     .Show
  6.     If .SelectedItems.Count Then Workbooks.Open .SelectedItems(1)
  7. End With
  8. End Sub
½Æ»s¥N½X

TOP

¦p¹Ï¨BÆJ:1. ©Ò¦³ÀÉ®×  2. *.csv  3. ¦^¨®
¨t²Î·|¹LÂo©Ò¦³csvÀÉ®×¥X¨Óµ¹¿ï¾Ü¡C
zz.PNG

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD