修改代码

xing_chen

ykcbf1100 发表于 2023-3-30 16:28
按月份排序了，只是序号未写，要写也简单。

.Sort .[f2], 1，但无用

ykcbf1100

xing_chen 发表于 2023-3-30 16:34
.Sort .[f2], 1，但无用

明天看一下。

gwjkkkkk

参与一下。。。

xing_chen

gwjkkkkk 发表于 2023-3-30 20:01
参与一下。。。

谢谢老师！运行如愿

xing_chen

gwjkkkkk 发表于 2023-3-30 20:01
参与一下。。。

老师，可以将代码修改为打开文件夹吗？我尝试将 p = Application.GetOpenFilename(FileFilter:="ExcelÎļt (*.xls; *.xlsx),*.xls; *.xlsx,ËùóDÎļt(*.*),*.*", _
        Title:="ExcelÑ¡Ôñ", MultiSelect:=True)
显示类型簿匹配

xing_chen

lskvslgt 发表于 2023-3-30 14:58
GPT回复可以对该段代码进行如下优化和修改。

顺序问题：修改代码如下，添加一个遍历数组元素前的排序：
...

谢谢老师!若老师能整体描述，则更好。学生部才，尝试多变，未有成功

xing_chen

yylucke 发表于 2023-3-30 15:24
建议：
循环里这样写：
        With Workbooks.Open(x1, ReadOnly:=True)

谢谢老师!若老师能整体描述，则更好。学生部才，尝试多变，未有成功

xing_chen

ykcbf1100 发表于 2023-3-30 19:04
明天看一下。

老师！方便看看修改一下。谢谢

ykcbf1100

xing_chen 发表于 2023-3-31 13:01
老师！方便看看修改一下。谢谢

哦，忘记了。
我现在看一下。

ykcbf1100

xing_chen 发表于 2023-3-31 13:01
老师！方便看看修改一下。谢谢

我这里没问题的。

也许是版本原因吧。