ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¤j½L¨C¤ë¨C¤Ñ¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü

¦^´_ 60# 198188
¦p³o¸Ì¤@¼Ë¶Ü?
¨ººô­¶¦b­þ¸Ì?

TOP

¦^´_ 62# 198188
©êºp¥u¯àÀ°¨ì [³fÂd¸¹½Xµn¿ý] ³o¸Ì
³ohttp://www.maerskline.com/appmanager/maerskline/public?_nfpb=true&_nfls=false&_pageLabel=page_tracking3_trackSimpleºô­¶
ªº³fª«¸ê®Æ,¤@ª½µLªk¤U¸ü¨ìExcel
  1. Option Explicit
  2. Sub ³fÂd¸¹½Xµn¿ý()
  3.    Dim IE As New InternetExplorer, i As Integer, vDoc As Object
  4.     '«Å§i Dim ie As New InternetExplorer
  5.     '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Internet Controls
  6.     'Set IE = CreateObject("InternetExplorer.Application")
  7.     'Dim i As Integer, vDoc As Object
  8.     With CreateObject("InternetExplorer.Application") '¤£»Ý·s¼W¤Þ¥Î Microsoft Internet Controls
  9.     'With IE
  10.         .Visible = True
  11.         .Navigate "http://www.maerskline.com/appmanager/"
  12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  13.         Set vDoc = .Document.getElementsByTagName("INPUT")
  14.         For i = 0 To vDoc.Length - 1
  15.             If vDoc(i).Name = "portlet_quickentries_2{actionForm.trackNo}" Then vDoc(i).Value = "PONU4867818"  '³fÂd¸¹½X
  16.             If vDoc(i).Value = "Track" Then vDoc(i).Click               '«ö¤U½T©w
  17.         Next
  18.     End With
  19. End Sub
½Æ»s¥N½X


    ¦^´_ 63# 198188
21 # stillfish00 ¤w´£¥X­×¥¿ ,§A¸Õ¸Õ¬Ý,¯u¤£¦æ¦A»¡

TOP

¦^´_ 65# 198188
¦¹¦^ÂÐ:¤w¬O°¾Â÷³o¥DÃD,¥H«á½Ð¦b¦³¬ÛÃöªº¥DÃD¤¤µo°Ý
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.    Dim Rng As Range
  4.    'With Workbooks.Open("C:\USER\DESTOP\E.XLSX").Sheets("2012") 'ÀÉ®×¥¼¶}±Ò®É¥Î¦¹µ{¦¡½X
  5.    With Workbooks("E.XLSX").Sheets("2012")                      'Àɮפw¶}±Ò®É¥Î¦¹µ{¦¡½X
  6.         'A2:AM2 to A100:AM100 ¬OY:\2012\A.XLSX (2012) ªº¸ê®Æ
  7.         Set Rng = .[A2]
  8.         With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")    'Àɮ׶}±Ò
  9.             .[A100:AM100].Copy Rng
  10.            .Parent.Close False                                  'ÀÉ®×Ãö³¬
  11.         End With
  12.         'A101:AM101 to A150:AM150¬OC:\2012\B.XLSX (Nov)ªº¸ê®Æ
  13.         Set Rng = .[A101]
  14.         With Workbooks.Open("Y:\2012\A.XLSX").Sheets("Nov")    'Àɮ׶}±Ò
  15.             .[A150:AM150].Copy Rng
  16.            .Parent.Close False                                  'ÀÉ®×Ãö³¬
  17.         End With
  18.         'A151:AM151 to A270:AM270¬OZ:\2012\C.XLSX (2012) ªº¸ê®Æ
  19.         Set Rng = .[A151]
  20.         With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")    'ÀÉ®×¥¼¶}±Ò
  21.             .[A270:AM270].Copy Rng
  22.            .Parent.Close False                                  'ÀÉ®×Ãö³¬
  23.         End With
  24.     End With
  25. End Sub
½Æ»s¥N½X

TOP

¦^´_ 67# 198188
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Sub EX()
  3.     '
  4.     '
  5.     Set Rng = .[A2]  '²Ä¤@­ÓRng
  6.     '
  7.     '
  8.     'Set Rng = .[A101]  '²Ä¤G­ÓRng
  9.     '²Ä¤G­ÓRng§ï¦¨¦p¦¹²Ä¤@­ÓRng©¹¤U¨ì¦³¸ê®Æªº¤U¤@¦C
  10.     Set Rng = Rng.End(xlDown).Offset(1)  '²Ä¤G­ÓRng
  11.     '
  12.     '
  13.     'Set Rng = .[A151]  '²Ä¤T­ÓRng
  14.     '²Ä¤T­ÓRng§ï¦¨¦p¦¹²Ä¤G­ÓRng©¹¤U¨ì¦³¸ê®Æªº¤U¤@¦C
  15.     Set Rng = Rng.End(xlDown).Offset(1) '²Ä¤T­ÓRng
  16.     '
  17.     '
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 71# pupai
'http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php ³oºô§}¥i¤U¸üÀɮצý¤£¬OcsvÀÉ,§A¥i¥H¸Õ¤U¸ü¬Ý¬Ý
§Aªººô§}¤Ö¤F STK_NO (ªÑ²¼¥N¸¹)
  1. xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & Stk_No & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  2.     xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & Stk_No & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-19 20:58 ½s¿è

¦^´_ 73# pupai
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub ¤j½L¦¨¥æ¸ê°T()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String, AR
  4.     Dim Sh As Worksheet
  5.     xlTheYear = Format(Range("C1"), "0000")  '­×§ï¦r¦ê®æ¦¡
  6.     xlTheMonth = Format(Range("C2"), "00")   '­×§ï¦r¦ê®æ¦¡
  7.     STK_NO = Format(Range("C3"), "0000")  '­×§ï¦r¦ê®æ¦¡
  8.     Set Sh = ThisWorkbook.Sheets.Add         '·s¼W¤u§@ªí
  9.     Sh.Name = xlTheYear & "_" & xlTheMonth   '·s¼W¤u§@ªí©R¦W
  10.     '******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
  11.     'xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  12.    
  13.      '******http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php*****
  14.      xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
  15.     '**************************************************************
  16.     With Workbooks.Open(xlTheFile)
  17.         If InStr(xlTheFile, "BWIBBU") Then
  18.             AR = .Sheets(1).Range("b446").CurrentRegion 'http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php
  19.         Else
  20.             .Sheets(1).UsedRange.Copy Sh.[A1]
  21.          End If
  22.           .Close 0

  23.     End With
  24.     With Sh
  25.         If InStr(xlTheFile, "BWIBBU") Then .Range("A1").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  26.         .Cells.EntireColumn.AutoFit            '½Õ¾ãÄæ¼e
  27.         .Columns("A:A").ColumnWidth = 28.56
  28.     End With
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 76# rinkenny
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub ¤j½L¦¨¥æ¸ê°T()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String,  Sh As Worksheet
  4.     With Sheets("Sheet1")
  5.         xlTheYear = Format(.Range("C1"), "0000")  '­×§ï¦r¦ê®æ¦¡
  6.         xlTheMonth = Format(.Range("C2"), "00")   '­×§ï¦r¦ê®æ¦¡
  7.         STK_NO = Format(.Range("C3"), "0000")  '­×§ï¦r¦ê®æ¦¡
  8.     End With
  9.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10.     Set Sh = Workbooks("§A«ü©wªº¬¡­¶Ã¯").Sheets("¾ú¥v¸ê®Æ")
  11.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  12.     '******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
  13.     xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  14.         With Workbooks.Open(xlTheFile)
  15.         .Sheets(1).UsedRange.Copy Sh.Range("A" & Rows.Count).End(xlUp).Offset(1) '±µµÛAÄæ ½Æ»s¤U¥h
  16.         .Close 0
  17.     End With
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD