[¤w¸Ñ¨M]½Ð±Ð¦p¦ó§P§OÀɮ׬O§_¶}±Ò?
- ©«¤l
- 42
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-9-3
- ³Ì«áµn¿ý
- 2013-6-10
|
[¤w¸Ñ¨M]½Ð±Ð¦p¦ó§P§OÀɮ׬O§_¶}±Ò?
¥»©«³Ì«á¥Ñ loyyee ©ó 2011-12-14 00:06 ½s¿è
½Ð°Ý¦p¦ó¦b"BOOK1"ÀÉ®×¥¨¶°°õ¦æ®É¡A§P§O¦¹¥x¹q¸£¤¤"BOOK2"Àɮ׬O§_¤]¶}±Ò¤¤¡A
"BOOK2"Àɮ׶}±Ò®É¡÷¦Û°ÊÃö³¬"BOOK2"Àɮפ£¦sÀÉ¡C
"BOOK2"ÀÉ®×¥¼¶}±Ò®É¡÷°õ¦æ"BOOK1"ÀɮפU¤@¬q¥¨¶°¡C
Book1.rar (5.28 KB)
|
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 108
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-23
- ³Ì«áµn¿ý
- 2020-11-16
|
Sub xxx()
Dim myFNo As Long
Dim myFileName As String
Dim myErr As Long
myFileName = "c:\BOOK2.xls"
If myFileName = "False" Then Exit Sub
myFNo = FreeFile
On Error Resume Next
Open myFileName For Binary Access Write Lock Write As #myFNo
Close #myFNo
myErr = Err.Number
On Error GoTo 0
If myErr > 0 Then
Workbooks("BOOK2.xls").Close
End If
'...
'...
End Sub |
|
|
|
|
|
|
- ©«¤l
- 42
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-9-3
- ³Ì«áµn¿ý
- 2013-6-10
|
¦^´_ 2# wang
¦n¹³¤£¦æ¥Î¡A¥i¯à§Ú¨S»¡²M·¡¡A§Ú¬On§âµøµ¡¤¤"BOOK2"ÀÉ®×Ãö³¬¡A
¯d¤U"BOOK1"ÀÉ®×´N¦n¡C |
|
|
|
|
|
|
- ©«¤l
- 42
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-9-3
- ³Ì«áµn¿ý
- 2013-6-10
|
¦^´_ 4# Hsieh
¥i¥H¥Î¤F¡A·PÁÂHsieh¡Bwang«ü¾É¡C |
|
|
|
|
|
|