各位大佬，文件下的多个Excel怎么批量转成JPG格式的

Annyaa

每个目录下有很多EXCEL文件，每个Excel里面有一页内容。把每个Excel文件按原来的名字批量存成jpg格式的。

Annyaa

或者批量转成pdf的也行，我用pdf的再转照片。

3190496160

究竟是把文件内的单元格区域保存为图片？不可能把整个excel文件保存为图片的吧

wanghan519

发现了个好玩的，rang转jpg：

1. dir *.xlsx | % {Convert-ExcelRangeToImage $_.FullName -Range "A1:C4" -Destination ($_.FullName+".jpg")}

复制代码

Annyaa

3190496160 发表于 2022-11-13 12:03
究竟是把文件内的单元格区域保存为图片？不可能把整个excel文件保存为图片的吧

就像是转成pdf一样的效果

Annyaa

Annyaa 发表于 2022-11-13 14:12
就像是转成pdf一样的效果

我的每个Excel文件里面的内容都是标准A4大小的。

3190496160

Sub 另存为pdf()
Application.ScreenUpdating = False
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & f)
        mc = Split(wb, ".")(0)
        wb.SaveAs Filename:=lj & mc & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        wb.Close
    End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160