Question

我设置了以下代码来汇总qryExpenses查询中的金额字段。

Private Sub Command18_Click()
   Dim txtExpense As Currency
   txtExpense = DSum("Amount", "qryExpenses")    
End Sub

出于某种原因，它并没有把金额拉到我的表格中。我错过了什么吗？

Answer 1

现在，您已声明一个变量来保存总金额，您使用from bs4 import BeautifulSoup import requests import re import codecs html = requests.get(yourWebsiteURL).content unicode_str = html.decode('utf8') encoded_str = unicode_str.encode("ascii",'ignore') news_soup = BeautifulSoup(encoded_str, "html.parser") a_text = news_soup.find_all('p') y=[re.sub(r'<.+?>',r'',str(a)) for a in a_text] file = codecs.open("textOutput.txt", "wb", encoding='utf-8') file.write(str(y)) file.close()检索金额，但不将其值分配给文本框控件。另外我相信你给变量命名与Textbox控件相同。

如果是这种情况，请将变量名称更改为有意义的名称，然后将其值分配给文本框控件。

DSum()

VBA DSum无法访问

1 个答案: