Question

vba 代码中出现jpg和jpeg 如何用通用码?

.Pictures.Insert ThisWorkbook.Path & "\照片\" & Range("B3") & ".jpg"
有两种扩展名（jpg和jpeg）的图片文件如何写上面的（.jpg）或（.jpeg)?

Answer 1

试着写了一个打开路径下图片的程序，文件名中可以使用通配符，代码如下：

Sub OpenPics()
    Dim myPath As String, myPic
    myPath = ThisWorkbook.Path & "\"
    myPic = Dir(myPath & "*.jp" & "*")
    Do While myPic <> ""
        If myPic <> "" Then
            Shell "mspaint.exe " & myPic
        End If
        myPic = Dir
   Loop
End Sub

您的代码可以修改为：

.Pictures.Insert ThisWorkbook.Path & "\照片\" & Range("B3") & ".jp" & "*"

通配符前面有一个半角空格，第一次回答时手误没有空格，是否因此无法正常运行。