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

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

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

TOP

¦^´_ 61# GBKEE


²Ä¤@±i¹Ïºô§}
http://www.maerskline.com/appmanager/

²Ä¤G±i¹Ïºô§}
http://www.maerskline.com/appmanager/maerskline/public?_nfpb=true&_nfls=false&_pageLabel=page_tracking3_trackSimple

TOP

¦^´_ 61# GBKEE

¥i§_À°§Ú¬Ý¬Ý¤U­±linkªº°ÝÃD
http://forum.twbts.com/viewthrea ... a=pageD1&page=2
½Ð°Ý¬°¤°»ò«ö¤@¦¸«á¡A¥¦¦Û°Ê±N³Ì«á¨ºrow·í¦¨¤U¦¸ªº²Ä¤@­Ó¡H
¦]¬°§Ú«ö¤@¦¸«á¡A§â¸ê®Æ§R°£«á´N¦b¤W¤@¦¸°õ¦æªº³Ì«á¤@¦C+1¶}©l¡A¥i¥HÅý¥¦¤£·|¦Û°Ê°O¾Ð¡A¨C«ö¤@¦¸´N¥ý§R°£¥H«eªº¸ê®Æ¡AµM«á³£±qA2¶}©l¡C
¥t¥~§Úªþ¥ó¤º¥t¤@­Óµ{¦¡°õ¦æ®É«ÜºC¡A¦³¥[§Öªº¤èªk¶Ü

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

¦^´_ 64# GBKEE


    «D±`·PÁÂ~§Ú¤]ª¾¹D³o­Ó·Qªk«ÜÃø°µ¨ì¡C
¥t¥~§Ú·Q°Ý¥i§_¦P®É±N¤T­Ó¤£¦Pexcel¦W¤ºªºsheet copy ¦b¥t¤@­Ósheet¤W
¨Ò¦p¡G
Y:\2012\A.XLSX (2012)
C:\2012\B.XLSX (Nov)
Z:\2012\C.XLSX (2012)

copy¦b
C:\USER\DESTOP\E.XLSX (2012)
¨C¦¸copy³£·|­«·s±qA2 : AM2 ¨ì³Ì«áªº¸ê®Æcopy¤U¥h (³Ì«áªº¸ê®Æ¨º¦C¨C¦¸³£¤£¦P¡^
¨Ò¦p¡G
Y:\2012\A.XLSX (2012) ªº¸ê®Æ¨ì±qA2:AM2 to A100:AM100
C:\2012\B.XLSX (Nov) ªº¸ê®Æ¨ìA2:AM2 to A50:AM50
Z:\2012\C.XLSX (2012) ªº¸ê®Æ¨ìA2:AM2 to A120:AM120
¨º»òcopy¥X¨Óªº®ÄªG¬O
A2:AM2 to A100:AM100 ¬OY:\2012\A.XLSX (2012) ªº¸ê®Æ
A101:AM101 to A150:AM150¬OC:\2012\B.XLSX (Nov)ªº¸ê®Æ
A151:AM151 to A270:AM270¬OZ:\2012\C.XLSX (2012) ªº¸ê®Æ
²Ä¤G¦¸«ö·|²M·¡¤§«eªº¸ê®Æ¦A±qA2 : AM2¶}©l¡A¨C¦¸³£³o¼Ë

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

¦^´_ 66# GBKEE


    ÁÂÁ¡C
¦ý¬O¥i¥HÅý¥¦¦Û°Ê¿ë»{³Ì«á¤@µ§¶Ü¡H
¦]¬°§Ú­ncopyªº¤T­Óexcel¡A¨C¤Ñ³£¦³¥[¸ê®Æ¤W¦¸¡A©Ò¥H»Ý­n¥¦¦Û¤v¿ë»{­ncopyªº¸ê®Æ¦³¦h¤Öµ§¡AµM«á²Ä¤G­Ó´N±q²Ä¤@­Óªº³Ì«á¤@µ§¤§«á¤@¦C¦A¶}©lcopy

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

¦^´_ 68# GBKEE


   ¹ï¤F¡A´N¬O³o¼Ë¡A«D±`·PÁÂ

TOP

·Q½Ð°Ý°O¾ÐÅ餣¨¬¡A³o¬O­n¦p¦ó¸Ñ¨Mªü!!!

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD