2015-10-14 133 views
0

縮短文章。完整的代碼在附加的Excel文件中。Excel VBA循環 - 通過在另一個工作表的單元格上循環設置變量的值

需要糾正循環代碼的幫助,以便變量從另一個工作表的單元格獲得值,並在某個過程後重復。

什麼是正確的工作已經::單次運行::

  1. 目前只適用於1個輸入(保存在工作簿的ParameterSheet)從gfinance
  2. 下載數據在耗材
  3. 修改數據格式(也調整時間值)
  4. 導出爲csv
  5. 導入到另一個應用程序

(這裏的excel file供參考)

修改宏在一個循環工作中SymbolSheet符號列表上。該列表和列表項的數量可以不斷變化。

下面是代碼我已經嘗試過失敗:

'Starting Symbol loop --- Will DO STUFF till there are symbols in Symbol sheet 

kal = SymbolSheet.Range("A1048576").End(xlUp).Row 

For io = 1 To kal 

ticker = Cells(io, 1).Value ' fill ticker with cell value one by one 

Symbolll = ticker & "-EQ" 


'DO LOTS OF OTHER WORK 

'Below code is coming from top where Ticker value is set 

Next io` 
+0

將代碼限制爲複製問題所需的最低限度。解決方案可能非常簡單,但目前很難挖掘。 –

+0

對不起,我沒有看到問題 - 這看起來應該循環所有的1到kal。目前發生的錯誤是什麼?你期望什麼價值?你得到了什麼? –

+1

如果您在此行中限定了單行'ticker = Cells(io,1).Value',它可能會有所幫助。例如,'ticker = Sheets(「Sheet1」)。Cells。(io,1).Value' *其中Sheet1是所需的工作表名稱*如果活動工作表不是您希望從中獲取代碼的地方,你寫它的方式是行不通的。 。 –

回答

0

答案已經由Scott提供。如下所示:

如果您符合此行中的表格ticker = Cells(io,1)。值可能有幫助。例如,ticker = Sheets(「Sheet1」)。Cells(io,1).Value其中Sheet1是所需的工作表名稱如果活動工作表不是您希望從中獲取代碼的地方,不管用。 - Scott Holtzman