- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 新竹
- 註冊時間
- 2011-11-18
- 最後登錄
- 2014-5-2
|
[發問] USERFORM裡的COMBOBOX 與 TEXTBOX 的應用
USERFORM裡的COMBOBOX 與 TEXTBOX 的應用- Sub 123()
- '
- Dim i As Long, Ur$, Rng As Range, R As Long
- For i = 123000 To 123456
- Ur = "102JD" & Format(i, "000000")
- R = ActiveSheet.UsedRange.Rows.Count
- Set Rng = ActiveSheet.Range("A" & IIf(R = 1, 0, R) + 1)
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://XXX.XXXX.XXX/XXXXXX/XXXX_XXX_XXXXXXX.XXX?XXXXXXXXXX=" & Ur _
- , Destination:=Rng)
- .Name = "XXXX_XXX_XXXXXXX.XXX?XXXXXXXXXX=" & Ur
- .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 Sub
-
2.如何使 Ur = "102JD" & Format(i, "000000") 中的 102JD 由USERFORM1 裡的TEXTBOX1取代102 、 COMBOBOX1取代JD |
|
發表於 2013-7-26 11:05
| 
