- 帖子
- 81
- 主題
- 31
- 精華
- 0
- 積分
- 117
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-8-3
- 最後登錄
- 2024-4-30
|
想請問一個網頁匯入資料的問題
------------------------------------------------------------------------
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~~的時候~卻無法匯入(空白)
問題到底是什麼呢?
該資料網頁有下拉選單~~這會有影響嗎? |
-
-
test.rar
(31.63 KB)
|
發表於 2024-4-30 12:12
| 
發表於 2024-5-1 12:11
| 