- ©«¤l
- 76
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ·s¦Ë
- µù¥U®É¶¡
- 2011-9-29
- ³Ì«áµn¿ý
- 2020-8-25
|
[µo°Ý] ¥Îexcel¤Wºô ¥i¦bvba ³]¦nproxyªº user & password
¨ºÃä¥i¥[proxyªº user & password ÁÙ¬On¥Î¨ä¥L¤èªk
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://192.xx.xx.xx/abc.php?no=123, Destination:=Selection) '·s¼W¬d¸ß
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
.Name = .ResultRange.Cells(3, 1)
End With |
|