❶ 如何利用excel VBA生成pdf文件
❷ 如何利用VBA将一个Excel中的每一个工作表都保存为一个PDF文件，文件名为工作表的名字
1、在需要单独保存的工作表上右键，弹出菜单选择移动或复制工作表
2、在第一个里选择新工作薄然后确定
3、然后会出现新的excel文件，接着保存下来
然后每个文件做成PDF文件
推荐下面免费的方法转成PDF试试：
方法一：使用虚拟打印机pdf factory即可，而且其他格式文件只要是能够打印，选择这个虚拟打印机，都可以做成PDF文件，很简单实用；最简单而且实用的使用虚拟打印机pdf factory即可，可以把任意只要能够打印的格式文件都可以做成PDF文件，并且可以把多个文件通过打印之后合成一个PDF文件。
pdfFactory Pro(虚拟打印机)是一个无须 Acrobat 创建 Adobe PDF 文件的打印机驱动程序。pdfFactory Pro(虚拟打印机)提供的创建 PDF 文件的方法比其他方法更方便和高效。 功能包括: 多个文档整合到一个 PDF 文件中; 内嵌字体; 通过 E-mail 发送; 预览; 自动压缩优化。
PDF Factory是pdf虚拟打印机软件，下载安装好PDF Factory后，我们在打印机控制面板中就可以找到一台由pdf Factory虚拟出来的打印机，可以把任何可以打印的文件转换成pdf文件。用任何可以支持打印输出的软件，把需要处理的文件逐个打印到这个虚拟打印机，全部打印完成后可把结果保存成一个pdf文件。甚至可以把不同软件格式的文件，如word、excel、photoshop等任何可以支持打印的文件，打印到同一个pdf文件。
在打印之前，在PDF Factory Pro里面设置一下PDF的打开、打印等权限即可实现加密等目的；
在打印之前，在设置里面，就把加载所有的系统字体选中。
在打印界面出来后，可以在左侧设置水印。然后再保存PDF文件。
打印完毕后，下载一个Adobe Reader,然后安装，可以很流畅的阅读PDF文件。
方法二：使用专门的转换软件，把文件转成PDF文件；
方法三：用其他虚拟打印机转成PDF文件。
方法四：用WPS本身自带的转换功能转成PDF文件。
方法五：其他例如在线转换的方法等；
❸ VBA 或 python 如何批量将JPG文件转PDF
# -*- coding:utf-8 -*-
#!/usr/bin/env python
import os
from reportlab.lib.pagesizes import A4, landscape
from reportlab.pdfgen import canvas
from tkinter import *
import time
# 图片文件名称列表
IMAGEFILES = []
class pdfTk(object):
def __init__(self):
'''用于生成主界面用于填写'''
self.top = Tk()
self.sw = self.top.winfo_screenwidth()
self.sh = self.top.winfo_screenheight()
self.topw = 500
self.toph = 200
self.top.title('图片转pdf生成器')
self.top.geometry("%dx%d+%d+%d" % (self.topw, self.toph, (self.sw - self.topw) / 2, (self.sh - self.toph) / 2))
self._DIRPATH = StringVar(self.top)
self.emptfmone = Frame(self.top, height=50)
self.emptfmone.pack()
self.dirfm = Frame(self.top)
self.descriptLabel = Label(self.dirfm, width=4, text='路径：')
self.descriptLabel.pack(side=LEFT)
self.dirn = Entry(self.dirfm, width=50, textvariable=self._DIRPATH)
#self.dirn.bind('<Return>', self.setPath)
self.dirn.pack(side=LEFT)
self.dirfm.pack()
self.emptfmtwo = Frame(self.top, height=30)
self.emptfmtwo.pack()
self.btnfm = Frame(self.top)
self.converBtn = Button(self.btnfm, width=10, text='生成PDF', command=self.doneAnyThing,
activeforeground='white', activebackground='blue')
self.quitBtn = Button(self.btnfm, width=10, text='退出', command=self.top.quit, activeforeground='white',
activebackground='blue')
self.converBtn.pack(side=LEFT, padx=10)
self.quitBtn.pack(side=LEFT, padx=10)
self.btnfm.pack()
def doneAnyThing(self):
self.getListImages(self._DIRPATH.get())
pdfFile = self.converPath(self._DIRPATH.get()) + self.dateStr() + ".pdf"
self.convertpdf(pdfFile)
def convertpdf(self, pdfFile):
'''多个图片合成一个pdf文件'''
(w, h) = landscape(A4) #
cv = canvas.Canvas(pdfFile, pagesize=landscape(A4))
for imagePath in IMAGEFILES:
cv.drawImage(imagePath, 0, 0, w, h)
cv.showPage()
cv.save()
def getListImages(self, dirPath):
'''读取指定文件夹下所有的JPEG图片，存入列表'''
if dirPath is None or len(dirPath) == 0:
raise ValueError('dirPath不能为空，该值为存放图片的具体路径文件夹！')
if os.path.isfile(dirPath):
raise ValueError('dirPath不能为具体文件，该值为存放图片的具体路径文件夹！')
if os.path.isdir(dirPath):
for imageName in os.listdir(dirPath):
if imageName.endswith('.jpg') or imageName.endswith('.jpeg'):
absPath = self.converPath(dirPath) + imageName
IMAGEFILES.append(absPath)
def converPath(self, dirPath):
'''用于转换路径，判断路径后是否为\\，如果有则直接输出，如果没有则添加'''
if dirPath is None or len(dirPath) == 0:
raise ValueError('dirPath不能为空！')
if os.path.isfile(dirPath):
raise ValueError('dirPath不能为具体文件，该值为文件夹路径！')
if not str(dirPath).endswith("\\"):
return dirPath + "\\"
return dirPath
def dateStr(self):
'''用于生成指定格式的日期，目的是为了拼接字符串'''
return time.strftime("%Y-%m-%d", time.localtime())
def main():
'''该函数主要用于生成PDF文件'''
pdfTk()
mainloop()
if __name__ == '__main__':
'''主函数，进行启动'''
main()