怎样才能自动生成有数据的工作表文件

xunjingrui

按编号自动生成01-10的数据，按自动生成，生成新的工作表，分别为：导入协议1-－－－导入协议10，


生成10个工作表，分别就是1到10行的数据内容，怎样自动生成，设置数值就能生成之后的10数据。

半百

taller

xunjingrui

半百 发表于 2023-9-3 19:57

怎样修收一下，里面有20条记录，想生成5到15或者3到13，这样的，怎样改

半百

xunjingrui 发表于 2023-9-8 17:19
怎样修收一下，里面有20条记录，想生成5到15或者3到13，这样的，怎样改

这样？

xunjingrui

半百 发表于 2023-9-8 18:37
这样？

怎样修改，生成的时候，生成新的文件。

xunjingrui

taller 发表于 2023-9-4 01:47

怎样修改，生成的时候，生成新的文件。

ykcbf1100

xunjingrui 发表于 2024-3-23 11:33
怎样修改，生成的时候，生成新的文件。

拆分成工作簿，生成文件在当前目录下。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.3.23
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set sh = Sheets("导入协议")
   
5.     p = ThisWorkbook.Path & ""
   
6.     With Sheets("数据")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .[a1].Resize(r, 6)
   
9.     End With
   
10.     For i = 2 To UBound(arr)
    
11.         fn = sh.Name & arr(i, 1)
    
12.         With sh
    
13.             .[d2] = arr(i, 3)
    
14.             .[b3] = arr(i, 2)
    
15.             .[b4] = arr(i, 4)
    
16.             .[c14] = arr(i, 5)
    
17.             .[d14] = arr(i, 6)
    
18.             .[h2] = Format(arr(i, 1), "000")
    
19.         End With
    
20.         sh.Copy
    
21.         Set wb = ActiveWorkbook
    
22.         wb.Sheets(1).Name = fn
    
23.         wb.Sheets(1).DrawingObjects.Delete
    
24.         wb.SaveAs p & fn
    
25.         wb.Close
    
26.     Next
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    
30. 
    

复制代码

xunjingrui

怎样才能生成我需要的文件，怎样写这个宏。