判断指定单元格内容是否与指定文件夹下面的文件名一致

cherrycdh

我想编一个程序，当点击开始按钮的时候，就判断输入的一个单元格中内容和指定文件夹下面的txt文件名是否一样，有的话就跳出有文件，没有的话就创建一个txt文件并将里面指定的单元格内容输入到txt文件中，然后当我点击结束按钮的时候自动将指定文件夹下所有的txt文件删除

cherrycdh

看一下，我这里对不对



Sub 输出文件()
    Dim s As String
   
    '提取文件名
    Dim FileName As String
    Dim i As Long
    FileName = Dir("d:/缓存文件/*.*")
    i = Left(FileName, 6)
    If Cells(4, 3) = i Then
        MsgBox "文件夹下面有文件需要将内容导入"
    Else
        MsgBox "没有文件需要创建并将指定单元格内容导出"
    End If

liulang0808

https://club.excelhome.net/thread-1258425-1-1.html
https://club.excelhome.net/thread-1165866-1-1.html
供参考

ykcbf1100

cherrycdh 发表于 2022-11-23 12:34
看一下，我这里对不对

这样试试？

cherrycdh

ykcbf1100 发表于 2022-11-23 12:45
这样试试？

十分感谢，这样如果文件夹里面有几个文件，就不怕查不到了