EXCEL§ì¨úCSV¸ê®Æ¨Ã§Y®É§ó·s
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
EXCEL§ì¨úCSV¸ê®Æ¨Ã§Y®É§ó·s
§ÚªºÀɮפº®e¦p¤U ¬OCSV®æ¦¡
tttt.rar (136 Bytes)
5Ó¸ê°T §Ú¥ÎÃC¦âÅã¥Ü ¤ñ¸û®e©öÅý¦U¦ì¤j¤j¤F¸Ñ§Úªº·N«ä
¤p«¬¥x«ü¤ë ©_ª°_¸Õ¥Î 2013/12/26 12:17:00 8500 1
§Ú·Qn¥Î¤@ÓEXCELÀÉ
±N¤W±ªº5Ó¸ê°T
¤À§O¸ü¤J¦ÜEXCELªº A1-E1Ó§OÀx¦s®æ(1ÓÀxÈ®æ¶ë1Ó¸ê°T)
¨Ã·|¤@ª½§ó·s
¤]´N¬O
¥unCSVªº¸ê®Æ¦³ÅÜ°Ê
EXCEL¤]·|°¨¤W¸òµÛÅÜ°Ê
n¦³¤Wz¦¹ºØ¥\¯à VBA»yªkn¦p¦ó¼g |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 21# bqwangs - Application.OnTime Time + #12:00:01 AM#, "¤u§@ªí1.Ex"
- 15. 'µ{¦¡¦bª«¥ó¼Ò²Õ OnTim n«ü©ú ¼Ò²Õ¦WºÙ (¤u§@ªí1 ¬Oª«¥ó¼Ò²Õ)
½Æ»s¥N½X- 'This Workbook¬O (ª«¥ó¼Ò²Õ)
- Private Sub Workbook_Open()
- Ex
- End Sub
- =============
- 'Module1¸Ì©ñµ{¦¡(Module1¬O¤@¯ë¼Ò²Õ)
- Sub Ex()
- Dim Ar As Variant, E As Range, i As Integer
- 'd:\ ½Ðקאּ¥¿½T¸ô®|
- With GetObject("d:\tttt.csv").Sheets(1)
- Ar = Split(Trim(.[a1]), Space(2))
- .Parent.Close 0
- End With
- i = 0
- For Each E In ActiveSheet.[A1,A2,B5,E5,C5]
- E = Ar(i)
- i = i + 1
- Next
- Application.OnTime Time + #12:00:01 AM#, "Ex"
- 'µ{¦¡¦bª«¥ó¼Ò²Õ OnTim n«ü©ú ¼Ò²Õ¦WºÙ,(Module1¬O¤@¯ë¼Ò²Õ OnTim¥i¥H¤£«ü©ú ¼Ò²Õ¦WºÙ)
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
ª©¤j
§Ú¬Oµ{¦¡¤j¥~¦æ
1.¤Wzªºµ{¦¡ ¬O©ñ¨ì¤u§@ªí1ªºVB¸Ì
ÁÙ¬O©ñ¨ìModule1¶Ü??
2.Application.OnTime Time + #12:00:01 AM#, "¤u§@ªí1.Ex"
'µ{¦¡¦bª«¥ó¼Ò²Õ OnTim n«ü©ú ¼Ò²Õ¦WºÙ
¬On§ï¦¨??
Application.OnTime Time + #12:00:01 AM#, "Module1.Ex"
3.§Ú±Nµ{¦¡©ñ¨ì¤u§@ªí1ªºVB¸Ì
ÁÙ¬On¥h «ö¥¨¶° ¦A«ö°õ¦æ
n¦p¦óÅܦ¨¤@¶}ÀÉ®× ´N°¨¤W·|°õ¦æ
=============
This Workbook¸Ì
Private Sub Workbook_Open()
Ex
End Sub
=============
Module1¸Ì©ñµ{¦¡
Sub Ex()
Dim Ar As Variant, E As Range, i As Integer
'd:\ ½Ðקאּ¥¿½T¸ô®|
With GetObject("d:\tttt.csv").Sheets(1)
Ar = Split(Trim(.[a1]), Space(2))
.Parent.Close 0
End With
i = 0
For Each E In ActiveSheet.[A1,A2,B5,E5,C5]
E = Ar(i)
i = i + 1
Next
Application.OnTime Time + #12:00:01 AM#, "¤u§@ªí1.Ex"
'µ{¦¡¦bª«¥ó¼Ò²Õ OnTim n«ü©ú ¼Ò²Õ¦WºÙ
=====================
¿ù»~°T®§
|
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
ª©¤j
¦ý§Ú¸ÕµÛ¥Î «ö¥¨¶° ¦A«ö°õ¦æ
¥L·|¤@ª½§ó·s¸òcsvÀɮפ@¼Ëªº¸ê°T
¦³¿ìªk§ï¦¨ ¨C¬í ¦Û°Ê§@ «ö¥¨¶° ¦A«ö°õ¦æ1¦¸¶Ü??
¤§«e¸ê®ÆÂ^¨úÀxÈ®æ¦ì¸m¬OA1-E1
¦ý¦pªG§Ún§ï¦¨A1 A2 B5 E5 C5
¨º¤Sn¦p¦ó§ï?? |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
¥»©«³Ì«á¥Ñ bqwangs ©ó 2014-1-8 11:14 ½s¿è
¦^´_ 16# GBKEE
ª©¤j
§Ú¨Ì±zªº¤è¦¡
§Ë¤F¤@ÓÀÉ
t1.rar (12.93 KB)
¥L¶}±Ò®É »Ý¥h«ö¥¨¶° ¦A«ö°õ¦æ
¤~·|§ì¨ú¸ê®Æ
¦ýn¦p¦ó ÅýÀɮ׶}±Ò®É
§Y¦Û°Ê§ì¸ê®Æ ¤]·|¤@ª½§ó·s(¥unCSVÀÉÅÜ°Ê EXCELÀx¦s®æ¸ê®Æ ¤]¸òµÛÅÜ°Ê)
Ãþ¦ü¦P¨B
¤§«e¸ê®ÆÂ^¨úÀxÈ®æ¦ì¸m¬OA1-E1
¦ý¦pªG§Ún§ï¦¨A1 A2 B5 E5 C5
¨º¤Sn¦p¦ó§ï?? |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
¥»©«³Ì«á¥Ñ bqwangs ©ó 2014-1-7 20:41 ½s¿è
¶W¯Åª©¥D
§Úªºª©¥»¬O2010ªº
§Ú¸Õ¤F
¤£¦æ
¬O§Ú¤£·|§Ë
¥i¥HÀ°¦£°µ¤@ÓÀɮ׶Ü
¨Ñ§Ú¤U¸ü |
|
|
|
|
|
|