子寫入數據()
wbpath = ThisWorkbook。路徑與路徑。"\"
模板文件地址= WB path &；”模板文件”&；"\"
to folder = WB path &；“將生成的表復制到此文件夾”&；"\"
My_file = Dir(模板文件地址)
當我的文件& lt& gt""
練習冊。打開文件名:=模板文件地址&；我的文件
使用此工作簿
data _ row = . active sheet . range(" A " & amp；行。數數)。結束(xlUp)。排
對於i = 2至data_row
？If Val(.ActiveSheet.Cells(i，4)) = Val(Split(ActiveWorkbook。名字，“”)(0))然後
ActiveWorkbook。active sheet . Range(" F2 ")= = active sheet . cells(I，3)。價值
active workbook . saveasfilename:=到文件夾&；active sheet . range(" B " & amp；I)和amp".xlsx "
ActiveWorkbook。關閉假
？如果…就會結束
接下來我
以…結尾
我的文件=目錄
環
末端接頭