返回列表 上一主題 發帖

vba匯入券商進出表

lman

帖子
9 
主題
3 
精華
0 
積分
12 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
10 
註冊時間
2010-7-23 
最後登錄
2024-7-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-8-21 19:57 | 只看該作者

vba匯入券商進出表

thanks.rar (12.69 KB) http://yamstock.megatime.com.tw/asp/stockinfo/ps_top.asp?m=all&stockid=3474&name1=D2&index1=6
這是yan券商進出表
想用vba匯入excel 指定工作簿及存儲格
如2888新光金匯入"sheet2", "A1"
2409友達匯入"sheet2", "A60"
以下程式碼是我網路搜尋並依我的需要自行俢改
但是還是無法執行
請前輩幫忙看看
到底那裡錯誤   謝謝
   

Sub GetTransInfo()
Worksheets("sheet2").Activate
Call 券商進出("2888", "sheet2", "A1")
Call 券商進出("2409", "sheet2", "A60")
End Sub
     Sub 券商進出(stock As String, tsheet As String, tcell As String)
Call券商進出("all&stockid", "8,10,11", stockinfo, tsheet, tcell)
End Sub
Sub券商進出(all&stockid, tbl As String, stock As String, tsheet As String, tcell As String)
     With Worksheets(tsheet).QueryTables.Add(Connection:="URL;http://yamstock.megatime.com.tw/asp/stockinfo/ps_top.asp?m=all&stockid=" & _
     stockNo &  "&name1=D2&index1=6, _
        .Destination:=Worksheets(tsheet).Range(tcell))
        .Name = all & "_" & stock
         .FieldNames = True
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = tbl
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    End Sub
收藏 分享

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
5#
發表於 2011-1-3 15:08 | 只看該作者
第8行的"8,10,11"
第16行的.Name = all & "_" & stock
第31行的.WebTables = tbl
是什麼意思?
80 字節以內
不支持自定義 Discuz! 代碼

TOP

b4069588

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2010-8-31 
最後登錄
2019-6-27 
4#
發表於 2011-1-1 01:00 | 只看該作者
恩   版主用心了  謝謝

TOP

lman

帖子
9 
主題
3 
精華
0 
積分
12 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
10 
註冊時間
2010-7-23 
最後登錄
2024-7-21 
3#
發表於 2010-8-22 03:48 | 只看該作者
感謝版主kimbal
正確解決無誤
版主回覆
你可以試試一句一句試試了解一下意思
是呀新手就是一個字一個字的學習

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-8-21 21:29 | 只看該作者
你可以試試一句一句試試了解一下意思
  1. Sub GetTransInfo()
  2. Worksheets("sheet2").Activate
  3. Call 券商進出("2885", "sheet2", "A1")
  4. 'Call 券商進出("2409", "sheet2", "A60")
  5. End Sub
  6. Sub 券商進出(stock As String, tsheet As String, tcell As String)
  7.     '"all&stockid",
  8.     Call 券商進出2("8,10,11", stock, tsheet, tcell)
  9. End Sub

  11. '(all&stockid,
  12. Sub 券商進出2(tbl As String, stock As String, tsheet As String, tcell As String)
  13.      With Worksheets(tsheet).QueryTables.Add(Connection:="URL;http://yamstock.megatime.com.tw/asp/stockinfo/ps_top.asp?m=all&stockid=" & _
  14.         stock & "&name1=D2&index1=6", _
  15.         Destination:=Worksheets(tsheet).Range(tcell))
  16.         .Name = all & "_" & stock
  17.          .FieldNames = True
  18.         .FieldNames = True
  19.         .RowNumbers = False
  20.         .FillAdjacentFormulas = False
  21.         .PreserveFormatting = True
  22.         .RefreshOnFileOpen = False
  23.         .BackgroundQuery = False
  24.         .RefreshStyle = xlOverwriteCells
  25.         .SavePassword = False
  26.         .SaveData = True
  27.         .AdjustColumnWidth = True
  28.         .RefreshPeriod = 0
  29.         .WebSelectionType = xlSpecifiedTables
  30.         .WebFormatting = xlWebFormattingNone
  31.         .WebTables = tbl
  32.         .WebPreFormattedTextToColumns = True
  33.         .WebConsecutiveDelimitersAsOne = True
  34.         .WebSingleBlockTextImport = False
  35.         .WebDisableDateRecognition = False
  36.         .WebDisableRedirections = False
  37.         .Refresh BackgroundQuery:=False
  38.     End With

  40.     End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題