標題: [發問] 想請問一個網頁匯入資料的問題 [打印本頁]

---

作者: laieven    時間: 2024-4-30 12:12     標題: 想請問一個網頁匯入資料的問題

想請問一個網頁匯入資料的問題
------------------------------------------------------------------------
Sub 巨集2()
Dim a As Integer
Dim web1 As String
Dim stockCode As String

' 從 A1 儲存格獲取股票代碼
stockCode = Worksheets("工作表1").Range("A1").Value

' 檢查 stockCode 是否為空
If stockCode = "" Then
    MsgBox "儲存格 A1 是空的，請輸入一個股票代碼。"
    Exit Sub
End If

web1 = "URL;https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcq/zcqa/zcqa_8913.djhtm"

' 使用 Replace 函數替換 URL 中的股票代碼
web1 = Replace(web1, "2881", stockCode)

' 清除特定範圍的內容
Range("C8:az120").Clear

' 關閉剪下/複製模式
Application.CutCopyMode = False

' 從網頁抓取數據並將其放入 Excel 工作表中
With ActiveSheet.QueryTables.Add(Connection:=web1, Destination:=Range("$C$8"))
    .Name = "zcq0.djhtm?b_A_a_" & stockCode & "_2"
    .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 = """oMainTable"""
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
End Sub

---------------------------------------------------------------------------------------
stockCode = Worksheets("工作表1").Range("A1").Value
這一串文字~~當我使用股票編號時~~會正常匯入
但是當我使用Worksheets("工作表1").Range("A1").Value~~的時候~卻無法匯入(空白)
問題到底是什麼呢?

該資料網頁有下拉選單~~這會有影響嗎?

---

作者: 准提部林    時間: 2024-5-1 12:11

web1 = "URL;https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcq/zcqa/zcqa_8913.djhtm"

' 使用 Replace 函數替換 URL 中的股票代碼
web1 = Replace(web1, "2881", stockCode)

替換碼不相同???

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)