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

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

Discuz! 代碼
提示插入
直接插入
說明訊息

添加文字底框

內容 [字數檢查]:

表情符號













更多 Smilies

字型大小

小|中|大|巨

溫馨提示：本區開放遊客瀏覽。

儲存草稿｜恢復草稿｜...

文章關鍵字 : [功能說明]
(關鍵字可加強搜索準確性, 如關鍵字多於一組, 請以 , 作分隔, e.g. : 阿笨,shiuh,第一笨)

關閉 URL 識別 | html 禁用
關閉表情符號 | 表情符號可用
關閉 Discuz! 代碼 | Discuz! 代碼可用
使用個人簽名
接收新回覆信件通知

推薦放檔網絡空間

檔案(Torent, zip等)

圖片(JPG, GIF等)

>>>歡迎推薦好用空間

XLOVER

發表於 2012-6-2 08:56 AM

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

陽だまり

發表於 2012-6-1 07:45 PM

名叫number的string

CODE:

[Copy to clipboard]

Dim number As String
number = "請輸入代號，空白預設為2330"
number = InputBox(number)
If number = "" Then
number = "2330"
End If

With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_" + number + ".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

[陽だまり在 2012-6-1 07:48 PM 作了最後編輯]

XLOVER

發表於 2012-6-1 06:05 PM

以下是一段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