- ©«¤l
- 63
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2015-4-22
- ³Ì«áµn¿ý
- 2019-7-19
|
¦U¦ì«e½ú¦n!~
§Ú¬O豵IJVBA¤£¤[ªºªì¾ÇªÌ¡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 |
|