复制Excel中的单个单元格,粘贴到Word中,另存为PDF并重复1,000次以上

时间:2015-09-21 15:25:22

标签: excel vba excel-vba pdf

我需要从Excel中的单个单元格复制URL,将其粘贴到Word文档中,然后将其另存为PDF,并对该列中的每一行重复。手动,这将需要很长时间,我想为什么不试着在这里问。

1 个答案:

答案 0 :(得分:0)

在运行此操作之前,在Excel中的VBA浏览器中,在工具菜单下选择“参考”。

然后确保选中“Microsoft Office 14.0对象库”和“Microsoft Word 14.0对象库”,然后单击“确定”。

如果不存在14.0,请选中两个框以查看您显示的版本。

此代码假设(1)数据在单元格A1中开始,并且一次继续一个单元格(A1,A2,A3等)和(2)输出文件夹已存在。

from selenium import webdriver
from selenium.webdriver.common.keys import Keys
import time
#driver = webdriver.Chrome(executable_path='c:\Python34\chromedriver.exe')
driver = webdriver.Firefox(executable_path='c:\Program Files\MozillaFirefox\firefox.exe')
driver.get("https://web.skype.com/de/")
time.sleep(8)
login = driver.find_element_by_id("username")
login.send_keys("username")
password = driver.find_element_by_id("password")
password.send_keys("password" + Keys.RETURN)
time.sleep(15)
newest2 = ""
sending = driver.find_element_by_name("messageInput")
message = driver.find_element_by_xpath("//*[@id='chatComponent']/div/swx-navigation/div/div/div/swx-chat-log/div[2]")
while 1==1 :
    newest = message.get_attribute("textContent")
    print(newest)
    if newest2 != newest:
        if '!reactionTest' in newest:
            sending.send_keys("Check" + Keys.RETURN)
    newest2 = newest
print("done")

可以通过更改DocPath变量赋值的路径部分来更改所需的输出位置。

祝你好运!