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

[µo°Ý] Excel vba ¿ý»s¥¨¶°°ÝÃD

[µo°Ý] Excel vba ¿ý»s¥¨¶°°ÝÃD

¦U¦ì«e½ú¦n!~
§Ú¬O­è±µÄ²VBA¤£¤[ªºªì¾ÇªÌ¡A
§Ú¦b¿ý»s¥¨¶°ªº¹Lµ{¤¤¸I¨ì°ÝÃD
¦b³o­Óºô­¶¤¤http://patft.uspto.gov/netahtml/PTO/search-adv.htm
¥´¤JÃöÁä¦rttl/mouse and abst/Function
·j´M«á¡A§Ú¥H¿ý»s¥¨¶°ªº¤è¦¡¶×¤Jexcel¡A
³q±`²Ä¤@­¶¶×¤J¬OOKªº¡A
²Ä¤G­¶«á·|¥X²{¤Ó½ÆÂøµLªk¿ý»s(¦ü¥G¦]¬°ºô§}¤Óªø)¡A
©Ò¥H§Úª½±µ½Æ»s²Ä¤@­¶ªº¥¨¶°¡A¨Ã±Nºô§}§ó§ï¦¨²Ä¤G­¶ªººô§}«á¡A¦¨¥\¶×¤J!
²Ä¤T­¶(³Ì«á¤@­¶)
¥H¤W­±¤è¦¡¾Þ§@¡A°õ¦æ«áexcel¾ã­Ó·|Âण°±¡A³Ì«áµL¦^À³
§Ú¹ê¦b§ä¤£¥X­ì¦]¨Ó...
©Î¬O¦U¦ì«e½ú¦³¨ä¥Lvba¼¶¼g¤è¦¡¡A¥i¥H±N¨C¦¸·j´Mµ²ªG(¨C¦¸·j´Mµ²ªG¥i¯à·|ÅÜ°Ê)¶×¤Jexcel
½Ð¦U¦ì«e½ú«üÂI°g¬z~~«D±`·PÁÂ!!

¥H¤U¬O§Úªº²Ä¤@­¶µ{¦¡½X¡A2.3­¶¥u¦³§ó§ïºô§}¦Ó¤w
Sub ²Ä¤@­¶()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&u=%2Fnetahtml%2FPTO%2Fsearch-adv.htm&r=0&f=S&l=50&d=PTXT&RS=%28TTL%2Fmouse+AND+ABST%2FFunction%29&Refine=Refine+Search&Query=ttl%2Fmouse+and+abst%2FFunction" _
        , Destination:=Range("$A$1"))
        .Name = _
        "nph-Parser?Sect1=PTO2&Sect2=HITOFF&u=%2Fnetahtml%2FPTO%2Fsearch-adv.htm&r=0&f=S&l=50&d=PTXT&RS=%28TTL%2Fmouse+AND+ABST%2FFunction%29&Refine=Refine+Search&Query=ttl%2Fmouse+and+abst%2FFunction"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

¦^´_ 4# bobomi

¤@¼Ë·í±¼­C! §Ú¬O¥ÎEXCEL 2007  
¤£ª¾¹D¦³¨S¦³Ãö«Y...:L

Â^¨ú.JPG (103.89 KB)

Â^¨ú.JPG

TOP

§Ú§â¤T­¶ªºµ{¦¡½X¦X¨Ö¦b¤@­ÓSUBª½±µ¶]§¹

¤£µM§A¸Õ¸Õ§â
.BackgroundQuery = True
§ï¦¨
.BackgroundQuery = 0
¬Ý¬Ý¦³µL¦nÂà

TOP

¦^´_ 2# bobomi
ÁÂÁ±zªº¦^ÂСC
§Ú¤À¶}¶]¬O¥i¦æªº¡A¦ý¬O§â¤T­¶ªºµ{¦¡½X¦X¨Ö¤§«á¡A´N·|µL¦^À³¡C
·Q½Ð°Ý±z¬O¦p¦ó°õ¦æªº?

TOP

¸Õ¹L excel 2000 , excel 2010 ³£¥i¥H¦¨¥\¶×¤J3­¶
¨S¦³µo¥Í¤£¨}¤ÏÀ³

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD