TWed2k - 程式開發討論區 - [求助]Excel VBA的問題求解..

TWed2k » 程式開發討論區 » [求助]Excel VBA的問題求解..

可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題 | 純文字版

XLOVER
銅驢友〔中級〕

．積分： 134
．文章： 743
．收花： 934 支
．送花： 7790 支
．比例： 8.34
．在線： 2845 小時
．瀏覽： 11701 頁
．註冊： 8182 天
．失蹤： 1620 天

#1 : 2012-6-1 06:05 PM 全部回覆	送花 (3) 送出中...

以下是一段VBA程式，
是要把股票代號2330的資料從網頁把它讀到Excel裡。

不知道程式要怎麼寫，
才能讓那個代號"2330"的部分，
由固定，改成可以由我自行輸入，
然後套用進去。

還請路過的大大幫幫忙....
謝謝囉....

=====

Sub test1()

With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_2330.asp.htm", Destination:=Range("$A$1"))




      .Name = "test"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlOverwriteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "3"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With

End Sub

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

快速回覆

XLOVER
銅驢友〔中級〕

．積分： 134
．文章： 743
．收花： 934 支
．送花： 7790 支
．比例： 8.34
．在線： 2845 小時
．瀏覽： 11701 頁
．註冊： 8182 天
．失蹤： 1620 天

#2 : 2012-6-2 08:56 AM 全部回覆	送花 (0) 送出中...

非常感謝大大的幫忙喔....
^^

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

快速回覆

所在時區為 GMT+8, 現在時間是 2024-11-21 11:13 PM	清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明 Discuz! 0.1 \| Processed in 0.020708 second(s), 7 queries , Qzip disabled