ªð¦^¦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 (32.63 KB)

zz.PNG

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD