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
|
ª©¤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
- 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 |
|
|
|
|
|
|