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

[µo°Ý] ½Ð°ÝÀx¦s®æ¤º®e¦p¦ó¼gVBA¶×¥X¨ìCSVÀɮ׸Ì

[µo°Ý] ½Ð°ÝÀx¦s®æ¤º®e¦p¦ó¼gVBA¶×¥X¨ìCSVÀɮ׸Ì

½Ð°Ý¦U¦ì¤j¤j
¤p§Ì§Ú·Q§â¯S©wÀx¦s®æªº¤º®e¶×¥X¨ì¤@­ÓCSVÀɮ׸Ì
¿é¥X½d¨Ò: 2015/7/1,6133,6133,6133,6133
³o¬O¤p§Ì"«÷´ê"¥X¨Óªº,¥i¬O¦n¹³¦³ÂI°ÝÃD,½Ð¦U¦ì¹F¤HÀ°¦£­×§ï¤@¤U
Sub XlsToCsv()
Dim MYstr As String, i As Integer, d As DataTable
Open "C:\Users\user789\Desktop\OI.csv" For Append As #1
        i = Range("N10").Select
        d = Data
        MYstr = Cells(d, i, i, i, i)
        Print #1, MYstr
    Next i
Close #1
End Sub
½Ð°Ý¥i¥H¿é¥Xªº¸ê®Æ¤@ª½·s¼W¨ìCSVÀɮ׸̶Ü(©¹¤U·s¼W)?
½Ð°Ý¦pªG­n¦A¥[¤@­Ó³]©w©w®É°õ¦æ¼Ò²Õ¬O¦b¤U­±¦b¥[¤W³o­Ó¶Ü?
Sub autoStart()
Application.OnTime TimeValue("20:00:00"), "Module1.XlsToCsv"
End Sub
°ÝÃD¦³ÂI¦h,¤p§Ì·s¤â¦³¤Ó¦hªF¦è¤£ª¾¹D,ÁٽЦU¦ì¤j¤jÀ°À°¦£,·P¿E¤£ºÉ,ÁÂÁÂ

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD