0

缩短了帖子。附件excel文件中的完整代码。

需要帮助纠正循环代码,以便变量在特定过程后重复从另一张表的单元格获取值。

什么工作已经正确:: 对于单次运行::

  1. 目前,仅适用于 1 个输入(保存在工作簿的 ParameterSheet 中)
  2. 从 gfinance 下载数据
  3. 以消耗性格式修改数据(也调整时间值)
  4. 导出为 csv
  5. 导入另一个应用程序

(这里是excel文件供参考)

修改宏以循环处理 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`
4

1 回答 1

0

斯科特提供了答案。给出如下:

如果您在此行中限定工作表ticker = Cells(io, 1).Value 它可能会有所帮助。例如,ticker = Sheets("Sheet1").Cells(io,1).Value 其中 Sheet1 是所需的工作表名称 如果活动工作表不是您希望从中获取代码的位置,它们就是您编写的方式不管用。——斯科特·霍尔兹曼

于 2015-10-14T18:47:00.620 回答