摘要:
#导入各种包 from selenium import webdriver#浏览器 from selenium.webdriver.common.by import By#选择器 from selenium.webdriver.support import expected_conditions a 阅读全文
摘要:
#导入各种包 from selenium import webdriver#浏览器 from selenium.webdriver.common.by import By#选择器 from selenium.webdriver.support import expected_conditions a 阅读全文
摘要:
from selenium import webdriver from selenium.webdriver.common.by import By from selenium.webdriver.support import expected_conditions as EC from selenium.webdriver.support.wait import WebDriverWait f... 阅读全文
摘要:
Sub ListFilesTest() With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then FolderPath$ = .SelectedItems(1) Else Exit Sub End With If Rig 阅读全文
摘要:
let topul=document.querySelector('ul.tree-ul.tree-top-ul'); let z1=topul.querySelectorAll('li[data-level="1"]'); txt=[]; i1=0; z1.forEach(x1=>{ i1++; 阅读全文
摘要:
Sub 生成二维码() Dim wb As Workbook Dim sht As Worksheet Set wb = Application.ThisWorkbook Set sht = wb.Worksheets(1) 'Randomize With sht '删除旧条码控件 .Shapes. 阅读全文
摘要:
Sub newPages() Application.DisplayAlerts = False Dim Wb As Workbook Dim NewSht As Worksheet Dim i Set Wb = Application.ThisWorkbook For i = 1 To 200 S 阅读全文
摘要:
Sub SplitTextFrame() '多段落文本框拆为多文本框一段落,加上(#)编号 Dim pre As Presentation Dim sld As Slide Dim shp As Shape Dim shp2 As Shape Set pre = ActivePresentation 阅读全文
摘要:
Sub 替换删除选择题括号中的选项() '2021-2-22 'dg nextseven Dim doc As Document, p As Paragraph Set doc = ThisDocument Set regex = CreateObject("VBScript.RegExp") Wi 阅读全文