假设我有一个类似这样的数据库:
Dim wbAllProducts As Workbook
Dim wsAllProducts As Worksheet
Set wbAllProducts = ThisWorkbook
For Each wsAllProducts In wbAllProducts.Sheets
MkDir wbAllProducts.Path & "\" & wsAllProducts.Name
For Each it In wsAllProducts.Columns(1).SpecialCells(2)
With Workbooks.Add
it.CurrentRegion.Offset(, 1).Copy .Sheets(1).Cells(1)
.SaveAs wbAllProducts.Path & Application.PathSeparator & wsAllProducts.Name & Application.PathSeparator & it.Value & ".xls", xlExcel8
.Close 0
End With
Next it
ChDir ".\.."
Next wsAllProducts
是否有可能从生产规则中引用事实来消除我在这里的重复。
答案 0 :(得分:4)
您可以删除事实并改为使用<script src=/client/bundle.js"></script>
和player
规则。
或者,定义
expert
哪种方法适用于应用程序。