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

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

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

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

¦p¦ó³]©w¤@­Ó«ö¶s ¶}±ÒCSVÀÉ®× ¤£«ü©w¸ô®|
show5217 µoªí©ó 2018-12-1 07:47


http://forum.twbts.com/viewthrea ... D%B1%D2%C0%C9%AE%D7

TOP

  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

¦^´_ 3# ikboy


    ÁÂÁ¤j¤j
¤pªZ

TOP

¦^´_ 3# ikboy
¦pªG­n¼g¦b©R¥O«ö¶s¸Ì­±©O
¤pªZ

TOP

¦^´_ 5# show5217


  ·Æ¹«¥kÁä>«ü©w¥¨¶°
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 6# n7822123


    ·N«äÀ³¸Ó¬O»¡¦pªG¤£¥Î¥¨¶°ªº¤è¦¡
¤pªZ

TOP

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

zz.PNG (32.63 KB)

zz.PNG

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD