GBKEE

¦^´_ 4# loveinput

1. Sub ipchange()
   
2. Dim rng, arr, i%, m% '«Å§i¥|­ÓÅܼÆ
   
3. rng = Range(Sheets("¥~³¡¸ê®Æ").[a1], Sheets("¥~³¡¸ê®Æ").[a65536].End(xlUp))   'ÅܼƭÈ=Äæ¦ìa1~a65536¤¤ªº©Ò¦³¦³­È¸ê®Æ
   
4. '*** rng: ¥~³¡¸ê®Æ").[a1]¥H¤U¨S¦³¸ê®Æ
   
5. rng2 = Range(Sheets("¨Ó·½¸ê®Æ").[a1], Sheets("¨Ó·½¸ê®Æ").[c65536].End(xlUp))   'ÅܼƭÈ=Äæ¦ìa1~a65536¤¤ªº©Ò¦³¦³­È¸ê®Æ
   
6. '*** rng2³oÅܼƳ]©w¤§«á¦A¤]¨S¦³¥Î¨ì,¬°¦ó??
   
7. ReDim arr(1 To UBound(rng), 1 To 20)     '­×§ï¤Gºû°}¦C¤j¤pMsgBox Val(rng)
   
8. '*** UBound(rng) ¿ù»~-> rng: ¥~³¡¸ê®Æ").[a1]¥H¤U¨S¦³¸ê®Æ
   
9. For i = 1 To UBound(rng) - 1 Step 1
   
10. m = m + 1
    
11. '*** Sheets("¨Ó·½¸ê®Æ").[h30] ¨S¦³¸ê®Æ, Terminal IP ªºµ{¦¡½X¿ù»~
    
12. 'Terminal IP
    
13. If Range(Sheets("¨Ó·½¸ê®Æ").[e1], Sheets("¨Ó·½¸ê®Æ").[h30]).Find(Val(Split(rng(i + 1, 1), ".")(1))).Column = 5 And IsOdd(Val(Split(rng(i + 1, 1), ".")(3))) Then
    
14. arr(m, 3) = Split(rng(i + 1, 1), ".")(0) & "." & Split(rng(i + 1, 1), ".")(1) + 10 & "." & Split(rng(i + 1, 1), ".")(2) & "." & Split(rng(i + 1, 1), ".")(3) + 1

½Æ»s¥N½X

GBKEE

¦^´_ 6# loveinput
Sub ipchange() ¤£¯à¥¿±`°õ¦æ, °ø½Í§Ú¥D­n¬O°õ¦æping1~ping7ªº°Ê§@¡A§Æ±æ¯à¦P®É°õ¦æ!!

GBKEE

¦^´_ 8# loveinput
¦P®É¶]¨â­Óµ{¦¡! (µ{¦¡°õ¦æ®É,²¾°Ê·Æ¹«,Áä½L,©ö¥X¿ù)

1. Option Explicit
   
2. Sub Ex_Ping()
   
3.     Dim AR(), Rng As Range, R As Integer, C As Integer, termPing As Object, termStatus As Variant
   
4.     With Worksheets("Sheet1")
   
5.         Set Rng = .Range("C2", .Range("C2").End(xlDown)).Resize(, .Range("C1").End(xlToRight).Column - 2)
   
6.         AR = Rng                                'Âà¤J°}¦C
   
7.     End With
   
8.     For R = 1 To UBound(AR)                     '°}¦C:²Ä¤@ºû(¦C)
   
9.         For C = 1 To UBound(AR, 2) Step 2       '°}¦C:²Ä¤Gºû(Äæ)  Step 2 ¶¡¹j 2Äæ
   
10.             Application.StatusBar = AR(R, C)
    
11.             Set termPing = GetObject("winmgmts:").ExecQuery _
    
12.                     ("Select * from Win32_PingStatus where Address = '" & AR(R, C) & "'")
    
13.             For Each termStatus In termPing
    
14.                 With termStatus
    
15.                     If IsNull(.StatusCode) Or .StatusCode <> 0 Then ' Terminal¥¢±Ñ
    
16.                         AR(R, C + 1) = "Termin 3G¤£³q" '                termresResult = "Time Out"
    
17.                     Else ' ¦¨¥\
    
18.                         AR(R, C + 1) = "Termin 3G³q" '                termresResult = .ResponseTime & "ms"   '¨ú±oATUR¦^À³®É¶¡
    
19.                     End If
    
20.                 End With
    
21.             Next
    
22.         Next
    
23.     Next
    
24.     Rng = AR                        '¾É¥X°}¦C
    
25.     Application.StatusBar = "OK"
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# c_c_lai
9#µ{¦¡ªº«e´£¬O¤w°õ¦æ8#ªþÀɪº ipchange()
¦p·|·¸¦ìÀ³¸ê®Æ¶q¤j®É¬O  C As Integer

GBKEE

¦^´_ 12# c_c_lai
http://neural.cs.nthu.edu.tw/jan ... asp?SessionCount=11
http://support.microsoft.com/kb/257819/zh-tw#RetrieveMetadata
http://www.blueshop.com.tw/board ... 10110153028R5I.html

1. Sub Test()
   
2.     Dim cnn As Object       '  New ADODB.Connection
   
3.     Dim cmd As Object       '  New ADODB.Command
   
4.     Dim rs As Object        '  New ADODB.Recordset
   
5. 
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     Set rs = CreateObject("ADODB.Recordset")
   
8.     Set cmd = CreateObject("ADODB.Command")
   
9. 
   
10.     With cnn
    
11.         If .State = 1 Then .Close    '  adStateOpen
    
12.         .Provider = "Microsoft.Jet.OLEDB.4.0"
    
13.        ' .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
    
14.                             ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    
15.         .Open ActiveWorkbook.Path & "\¾÷²¼°O¿ý©ú²Óªí.mdb"
    
16.     End With
    
17. End Sub

½Æ»s¥N½X