ªð¦^¦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 : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD