有可能jpg,png混杂
时间: 2024-04-22 17:24:09 浏览: 21
如果你的文件夹中可能包含不同格式的图片文件(如 .jpg 和 .png),以下是修改后的 VBA 代码:
```vba
Sub ExtractImageFileNames()
Dim FolderPath As String
Dim FileName As String
Dim i As Integer
' 设置文件夹路径
FolderPath = "C:\路径\到\文件夹\"
' 确定 A 列的起始行
i = 1
' 循环遍历文件夹中的所有文件
FileName = Dir(FolderPath & "*.jpg") ' 首先查找 .jpg 格式的图片文件
Do While FileName <> ""
' 将文件名写入到 A 列
Cells(i, 1).Value = FileName
' 移动到下一行
i = i + 1
' 继续查找下一个文件
FileName = Dir
Loop
' 继续查找 .png 格式的图片文件
FileName = Dir(FolderPath & "*.png")
Do While FileName <> ""
' 将文件名写入到 A 列
Cells(i, 1).Value = FileName
' 移动到下一行
i = i + 1
' 继续查找下一个文件
FileName = Dir
Loop
End Sub
```
你只需将 `FolderPath` 替换为你实际的文件夹路径,然后运行代码即可。这将在当前活动工作表的 A 列中写入提取到的图片文件名(无论是 .jpg 还是 .png)。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)