用VBA写一个程序，要求保存EXCEL中H列每个单元格内的照片，并用A列命名

以下是用VBA保存Excel中H列每个单元格内的照片，并用A列命名的示例代码：

Sub SavePictures()
    Dim ws As Worksheet
    Dim pic As Picture
    Dim cell As Range
    Dim saveFolder As String
    
    Set ws = ActiveSheet
    saveFolder = "C:\Temp\" '设置照片保存的文件夹路径
    
    For Each cell In ws.Range("H1:H" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row) '遍历H列每个单元格
        If cell <> "" Then '如果单元格不为空
            Set pic = ws.Pictures.Insert(cell.Value) '将照片插入到图片对象中
            pic.SaveAs saveFolder & cell.Offset(0, -7).Value & ".jpg" '将照片保存为以A列命名的jpg格式文件
            pic.Delete '删除插入的图片对象
        End If
    Next cell
End Sub

请将代码中的保存文件夹路径修改为您需要保存的文件夹路径，并在Excel中运行该宏即可。

相关问题

用vba代码写一个读取excel文件，并将每一列数据写入一个数组的程序

以下是一个简单的 VBA 代码示例，用于读取 Excel 文件并将每一列数据写入一个数组中：

Sub ReadExcelFile()
    Dim myArray() As Variant
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    Dim j As Long
    
    'Open the workbook
    Dim myWorkbook As Workbook
    Set myWorkbook = Workbooks.Open("C:\path\to\my\file.xlsx")
    
    'Set the worksheet
    Dim myWorksheet As Worksheet
    Set myWorksheet = myWorkbook.Worksheets("Sheet1")
    
    'Find the last row and column with data
    lastRow = myWorksheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lastCol = myWorksheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    'Resize the array to hold the data
    ReDim myArray(1 To lastRow, 1 To lastCol)
    
    'Loop through the data and store it in the array
    For i = 1 To lastRow
        For j = 1 To lastCol
            myArray(i, j) = myWorksheet.Cells(i, j).Value
        Next j
    Next i
    
    'Close the workbook
    myWorkbook.Close
    
    'Print the array to the Immediate Window
    For i = 1 To lastRow
        For j = 1 To lastCol
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub

在这个例子中，我们首先打开 Excel 文件并选择要读取的工作表。然后，我们使用 `Find` 函数找到最后一行和最后一列的数据，并使用 `ReDim` 函数调整数组的大小。最后，我们循环遍历每一行和每一列的数据，并将其存储在数组中。最后，我们使用 `Debug.Print` 将数组打印到即时窗口中。

请注意，这只是一个简单的示例代码，仅适用于读取基本数据类型。如果你需要读取其他类型的数据（如日期或布尔值），你需要使用适当的数据类型和转换函数来处理这些数据。

使用VBA 写一个 Excel 文件保存程序

以下是使用 VBA 在 Excel 中编写文件保存程序的示例代码：

Sub SaveExcelFile()
    Dim filePath As String
    filePath = "C:\Users\UserName\Documents\MyExcelFile.xlsx" '更改为您所需的文件路径和名称
    
    '判断文件是否存在，如果存在则删除
    If Len(Dir(filePath)) > 0 Then
        Kill filePath
    End If
    
    '保存当前活动工作簿
    ActiveWorkbook.SaveAs Filename:=filePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    '显示保存成功提示框
    MsgBox "文件保存成功！"
End Sub

这个程序首先定义了一个变量 `filePath`，用于存储要保存的文件的路径和名称。然后，它检查该文件是否已经存在，如果存在则删除旧文件。接下来，它使用 `ActiveWorkbook.SaveAs` 方法将当前活动工作簿保存为指定的文件格式，并在保存成功后显示一个提示框。

请注意，此代码中的文件格式为 `xlOpenXMLWorkbook`，这是 Excel 2007 或更高版本使用的默认文件格式。如果您使用的是早期版本的 Excel，则可能需要将文件格式更改为适当的值。