修改代码

ykcbf1100

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

换了个排序语句，我这里测试没问题，你再试一下吧。

xing_chen

ykcbf1100 发表于 2023-3-31 13:26
换了个排序语句，我这里测试没问题，你再试一下吧。

谢谢老师！可能如你所说，版本问题。排序代码不起作用、

xing_chen

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

老师，你好！帮忙将你代码修改为选择文件夹，选择工作簿方式，好吗？谢谢

xing_chen

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

老师，你好！可以帮忙将你的代码修改为：选择文件夹，选择工作簿导入吗？谢谢

gwjkkkkk

xing_chen 发表于 2023-3-31 19:53
老师，你好！可以帮忙将你的代码修改为：选择文件夹，选择工作簿导入吗？谢谢

请参考。。。

xing_chen

gwjkkkkk 发表于 2023-3-31 20:09
请参考。。。

老师，可能我的意思还是没有表达清楚，我的意思是选择的文件夹，不一定是在同文件夹下，而是可能在其他盘符上，用你刚发送的代码试了，打开同文件夹下可以的。但簿在同文件夹下，不行。我曾尝试将你的代码中p = Application.GetOpenFilename(FileFilter:="ExcelÎļt (*.xls; *.xlsx),*.xls; *.xlsx,ËùóDÎļt(*.*),*.*", _
        Title:="ExcelÑ¡Ôñ", MultiSelect:=True)
显示类型簿匹配。老师是否可以帮忙再修改。谢谢！另外现有代码按月排序好像未起作用。
为再次麻烦你，深表感谢

gwjkkkkk

xing_chen 发表于 2023-3-31 20:35
老师，可能我的意思还是没有表达清楚，我的意思是选择的文件夹，不一定是在同文件夹下，而是可能在其他 ...

1.GetOpenFilename是选择文件方式，而上面的意思的选择文件夹，我就按你上面的意思选择文件夹
2.改用dir方式不罗列隐藏文件，同文件夹下不会发生问题。
3.按月排序应该是按开票日期排序吧

xing_chen

gwjkkkkk 发表于 2023-3-31 21:09
1.GetOpenFilename是选择文件方式，而上面的意思的选择文件夹，我就按你上面的意思选择文件夹
2.改用dir ...

谢谢老师！