Sub LoopDataFiles Dim Myobj As Object Myresource As Object file As Variant Dim OC As Range i As Integer j As Integer Dim wb As Workbook banknm As String Dim p_close As Double Applic

这段代码的主要功能是将一个文件夹中的多个Excel文件的数据逐一读取并合并到一个主文件中的不同工作表中。

首先，声明了一些变量，包括Myobj、Myresource、file、OC、i、j、wb、banknm和p_close等。其中，Myobj和Myresource是用于资源管理和占用的对象，file是用于存储文件名的变量，OC、i和j是用于循环读取和写入数据的计数器，wb是用于打开和关闭Excel文件的对象，banknm是用于存储不同工作表名称的字符串，p_close是用于存储股票收盘价的变量。

然后，将文件夹路径指定为“D:\股票价格201712\”，并使用Dir函数获取文件夹中的第一个文件名。

接下来，使用While循环来逐一读取文件夹中的每个Excel文件。首先，使用Workbooks.Open方法打开当前文件，并将其赋值给wb对象。然后，使用With语句引用该Excel文件的Sheet1工作表，并使用Range方法定位到A1单元格。

在循环中，使用Do While语句来读取单元格数据。首先，将第二列单元格的值赋给banknm变量，作为当前数据的工作表名称。然后，将当前数据的各列值分别写入到主文件中的相应工作表中。具体来说，将日期、股票代码、股票名称、收盘价、最高价、最低价和成交量分别写入到A、B、C、D、E、F和G列中，同时将日期的格式设置为“yyyy/mm/dd”。

最后，使用wb.Close方法关闭当前Excel文件，并使用Dir函数获取下一个文件名，同时将i和j计数器分别增加1，以便下一次循环读取和写入数据。

总体来说，这段代码的核心思路就是通过循环读取和写入数据来将多个Excel文件中的数据合并到一个主文件中的不同工作表中