vba将文件夹所有照片插入表格

VBA是Visual Basic for Applications的缩写，是Microsoft Office应用程序自带的一种编程语言，可以用于自动化处理各种任务。如果我们想要将文件夹中的所有照片插入表格，可以使用VBA编写代码来实现。

首先，我们需要打开Excel并创建一个新的工作表。然后，我们可以使用VBA的FileSystemObject对象来获取文件夹中的所有文件和文件夹。

下面是一个简单的示例代码：

Sub InsertPhotosToTable()
    Dim folderPath As String
    Dim folder As Object
    Dim file As Object
    Dim rowIndex As Integer
    Dim colIndex As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath"
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderPath)
    
    ' 设置表格起始行列索引
    rowIndex = 2
    colIndex = 1
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 判断文件类型是否为图片
        If LCase(Right(file.Name, 4)) Like ".jpg" Or _
          LCase(Right(file.Name, 4)) Like ".png" Or _
          LCase(Right(file.Name, 4)) Like ".bmp" Or _
          LCase(Right(file.Name, 4)) Like ".gif" Then
          
            ' 将图片插入单元格
            Cells(rowIndex, colIndex).Activate
            ActiveSheet.Pictures.Insert(file.Path).Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Width = 100
                .Height = 100
            End With
            
            ' 列索引递增
            colIndex = colIndex + 1
            
            ' 如果到达最大列索引，则换行
            If colIndex > 5 Then
                rowIndex = rowIndex + 1
                colIndex = 1
            End If
        End If
        
        ' 释放文件对象
        Set file = Nothing
    Next file
    
    ' 释放文件夹对象
    Set folder = Nothing
End Sub

以上代码假设要插入的图片的路径在C:\YourFolderPath文件夹中，并且表格从第2行第1列开始插入，每行最多插入5张图片。

通过运行上述代码，VBA将遍历文件夹中的所有文件，如果文件是图片类型的文件（.jpg、.png、.bmp、.gif），则会将其插入到表格中。插入的图片将自动调整其大小为100x100像素，并按照每行最多5张的方式进行排列。