代码一点运行后直接消失是什么原因，求解

kingdom119

删掉以后提示的问题更多了，说已修改文件夹里已存在，但是实际上并没有

伶俐的毛豆

我有時間幫你弄

zxsea_7426

close 乱用，写入数据的工作表都没有指定
单看代码，感觉是提取数据到当前工作簿：

kingdom119

zxsea_7426 发表于 2023-5-8 10:48
close 乱用，写入数据的工作表都没有指定
单看代码，感觉是提取数据到当前工作簿：

谢谢大佬，细心指点，“批评”的倍感亲切。我测试过你指正后的代码，确实好用，

诚如你所言，我表述不当：
1、我其实是想把想要的数据批量提取汇总到执行代码的工作薄里或者一个新建的工作薄里
2、代码执行过后，我看了下并没有把提前成功的工作薄转移到名为“已修改”的文件夹里

zxsea_7426

kingdom119 发表于 2023-5-8 11:37
谢谢大佬，细心指点，“批评”的倍感亲切。我测试过你指正后的代码，确实好用，

诚如你所言，我表述不 ...

我没有看出有这个要求，没有移动文件的代码在里面
在关闭被提取的文件下一行加这一段试试:
[另外，上方还需要加一行提取被提取文件的路径：        file_path=xlbook.path & "\ "]
[target_folder 做为一个文件夹，最后最好加一个"\",原代码没有"\"]

'==============文件移动========================================
    Application.ScreenUpdating = False
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.movefile file_path & filename(i), target_folder
    Application.ScreenUpdating = True
'----------------------------------------


没有数据没法测试，文件移动这一项，说实话还没有实践过。