写了个粗糙的
function tt()
{
let f = Dir(`${ThisWorkbook.Path}\\*.xlsx`)
let r = 1
while (f) {
const wb = Workbooks.Open(`${ThisWorkbook.Path}\\${f}`)
wb.ActiveSheet.Range('A11:C12').Copy(ThisWorkbook.ActiveSheet.Range(`A${r}`))
wb.ActiveSheet.Shapes(2).Copy()
ThisWorkbook.ActiveSheet.Activate()
ThisWorkbook.ActiveSheet.Range(`E${r}`).Select()
ThisWorkbook.ActiveSheet.Paste()
wb.Close()
r += 10
f = Dir()
}
}
创作者俱乐部成员
创作者俱乐部成员