RSS   



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


 


 
主題: [其他] [求助]Excel VBA的問題求解..   字型大小:||| 
XLOVER
銅驢友〔中級〕
等級: 9等級: 9等級: 9


 . 積分: 134
 . 文章: 743
 . 收花: 934 支
 . 送花: 7790 支
 . 比例: 8.34
 . 在線: 2845 小時
 . 瀏覽: 11701 頁
 . 註冊: 7944
 . 失蹤: 1382
#1 : 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



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
陽だまり
白銀驢友
等級: 15等級: 15等級: 15等級: 15等級: 15
ささらの可愛さは異常

 . 積分: 1330
 . 精華: 1
 . 文章: 3159
 . 收花: 10387 支
 . 送花: 26639 支
 . 比例: 2.56
 . 在線: 4508 小時
 . 瀏覽: 30308 頁
 . 註冊: 7198
 . 失蹤: 1206
 . 星の彼方
#2 : 2012-6-1 07:45 PM     只看本作者 引言回覆

名叫number的string

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 作了最後編輯]



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
XLOVER
銅驢友〔中級〕
等級: 9等級: 9等級: 9


 . 積分: 134
 . 文章: 743
 . 收花: 934 支
 . 送花: 7790 支
 . 比例: 8.34
 . 在線: 2845 小時
 . 瀏覽: 11701 頁
 . 註冊: 7944
 . 失蹤: 1382
#3 : 2012-6-2 08:56 AM     只看本作者 引言回覆

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



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記

   

快速回覆
表情符號

更多 Smilies

字型大小 : |||      [完成後可按 Ctrl+Enter 發佈]        

溫馨提示:本區開放遊客瀏覽。
選項:
關閉 URL 識別    關閉 表情符號    關閉 Discuz! 代碼    使用個人簽名    接收新回覆信件通知
發表時自動複製內容   [立即複製] (IE only)


 



所在時區為 GMT+8, 現在時間是 2024-3-29 08:14 AM
清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明
Discuz! 0.1 | Processed in 0.021642 second(s), 6 queries , Qzip disabled