2015-10-14 137 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