度々すいません。
VBAからpythonのプログラムを実行するプログラムを作成したのですが、表題の通り、Permission deniedが出てしまい、正常に動作しません。
ご助言お願いいたします。
vba
1Sub scraping() 2 RunPython ("import scraive;scraive.auto_s()") 3End Sub
python
1from urllib import request 2from bs4 import BeautifulSoup 3import requests 4from urllib.parse import urljoin 5import openpyxl as op 6import datetime 7 8def auto_s(): 9 10 date1 = datetime.datetime.today() 11 wb = op.load_workbook('マクロ.xlsm',keep_vba=True) 12 ws = wb.active 13 last = ws['C1'].value 14 #print(last) 15 url = ws['B1'].value 16 #print(url) 17 18 base_url = url 19 html = request.urlopen(base_url) 20 soup = BeautifulSoup(html,'html.parser') 21 22 23 i = last +1 24 #print(i) 25 for a_tag in soup.find_all('a'): 26 j = (urljoin(base_url, a_tag.get('href'))) 27 if j.startswith('javascript'): 28 continue 29 #print(j) 30 ws['A'+str(i)].value = date1 31 ws['B'+str(i)].value = j 32 i += 1 33 34 wb.save('マクロ.xlsm') 35
あなたの回答
tips
プレビュー