- ©«¤l
- 3
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-7-1
- ³Ì«áµn¿ý
- 2019-12-25
|
[µ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ªGn¦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¤£ºÉ,ÁÂÁ |
|