[發問] 判斷功能表按鈕而執行程式碼問題

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

2^#

發表於 2014-5-14 23:30 | 顯示全部帖子

另外附帶一問，請看我的半成品，裡面有個【開啟月份股票網頁】，原意是想自動下載月份資料並匯入Excel，因小弟功力還不夠，只能以替代方式開啟網頁後手動下載，再以【匯入月份股票資料】方式匯入，可否指導如何自動下載後匯入Excel之方式?

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

3^#

發表於 2014-5-16 21:46 | 顯示全部帖子

本帖最後由 reangame 於 2014-5-16 21:48 編輯

joey0415 大大，測試過了，可以執行，但拜託指導一下
         .PostText = "input_date=103%2F05%2F13&select2=ALL&order=STKNO&login_btn=%ACd%B8%DF" ==>這是甚麼意思?
         .WebTables = "8"  ==>這是甚麼意思?
         .Refresh BackgroundQuery:=False  ==>這是甚麼意思?
         .Delete  ==>為什麼要?

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

4^#

發表於 2014-5-16 21:51 | 顯示全部帖子

另外請看我的半成品，裡面有個功能【開啟月份股票網頁】，原意是想自動下載月份資料並匯入Excel，目前只能以替代方式開啟網頁後手動下載，再以【匯入月份股票資料】方式匯入，可否指導如何在不打開IE情況下，自動下載後匯入Excel之方式?

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

5^# 倒序看帖

打印

字體大小: tT

發表於 2014-5-21 12:58 | 顯示全部帖子

[發問] 判斷功能表按鈕而執行程式碼問題

說明：上圖為【系統功能表】點選【選擇股票收盤行情】show【選擇收盤日期_股票收盤】：1，點選確定執行抓取股票收盤行情。
點選【選擇股票比例資料】show【選擇收盤日期_比例資料】：2，點選確定執行抓取股票比例資料。
點選【選擇三大法人資料】show【選擇收盤日期_三大法人】：3，點選確定執行抓取三大法人資料。

請問有辦法做出如下圖的概念嗎? 只需要一個表單就好了，
判斷【系統功能表】點了哪個按鈕，show【選擇收盤日期】：1，點選確定執行對應的程式碼?
因為如果這樣下去只要新增功能就必須再做一個表單(4.5.6.....)，太不自動化了，希望有高手可以指導一下。

我在【網頁抓取資料疑問】這文章中有放檔案，連結如後：網頁抓取資料疑問
如果可以也請指導一下，非常感謝您！

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

6^#

發表於 2014-5-21 23:47 | 顯示全部帖子

回復 2# joey0415

joey0415大大：
您的意思是點選1.2.3功能後，直接比對資料庫跟網頁的資料是否同一天，如果不是就抓取更新，是這樣嗎?

如果是這樣的話，就不太符合我想要的功能，我主要是想抓取選定的日期然後分別去查詢網頁資料，
點選1.2.3功能所選定的日期有可能不是同一天的資料，所以才會這樣設計，還請再指導，感恩！

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

7^#

發表於 2014-5-24 15:49 | 顯示全部帖子

回復 9# stillfish00

stillfish00 大大：
非常抱歉，這兩天比較忙沒空上來，沒想到一上來就看到您的回覆，對我幫助非常大，
一開始測試一個多小時，就是有地方執行不了，一度想要再上來請求您的協助，
後來發現原來您回復的程式碼：
Public Enum enumClickOption
  optDefault
  opt選擇股票收盤行情
  opt選擇股票比例資料==>選擇股價比例資料
  opt選擇三大法人資料
End Enum
Public fromOption As enumClickOption
跟我的程式碼差了一個字，差點就要放棄了，還好有耐心的測試，
把字修正後，卻不知道要執行的程式碼要擺在哪裡  @@....
又開始測試，最後終於想出來，
在【選擇收盤日期】表單的確定鈕，裡面的程式碼鍵入：

Private Sub CommandButton1_Click()
Select Case fromOption
Case 1
程式碼1
Case 2
程式碼2
Case 3
程式碼3
End Sub

複製代碼

終於可以執行了，以後就可以省略很多同樣的表單了，
真心感謝您的指導!!!!!

我是斯多