救助：VBA 合同按不同模板和时间拆分

翟春凤

救助：VBA 合同按不同模板和时间拆分，各位大神，谢谢，

能力有限，已经自己奋斗好几个月了，但是还是一团乱麻。
需求如下：
1，有合同明细，明细中有供应商和时间；
2，每个供应商的合同模板是不一样的，模板已经建立，并已经放到sheet表里并已经命名；
3，不是全部导出，而是只操作部分行，这行的区域需要自己录入选择；
4，需要根据不同的供应商和日期导入到对应的供应商合同模板，并导出另存到一个新的位置；
5，我存在的问题，就是找到各个模块的代码，但是总拼凑不到一起，而且总报错，

我整理出来的大概思路，但是还是乱七八糟：
1）不同合同模板中产品信息的位置不一样，我用VLOOKUP 进行关联----所以只要在不同合同模板的序号下面填入 合同明细表中所需的序号，产品信息就能显示；
2）程序启动前需要将合同模板序号下面的数据清楚  代码：
     ClearContents
3）选择需要的区域  用下面代码选择

   x = Int(InputBox("请输入起始序号："))
   y = Int(InputBox("请输入截至序号："))

4）选择保存的位置：我用的这个代码

   Dim xpath, Sht, m
      With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
           xpath = .SelectedItems(1)
           Else
           Exit Sub
       End If
    End With

5）判断：
    如果日期和供应商名称一样
    那么 将序号填入对应供应商的序号列的下面（合同模板的A列）
    如果日期不一样和供应商名称一样
    那么 新建一个同名称模板的合同，并将名称命名为.1
    并将 将序号填入对应供应商的序号列的下面（合同模板的A列）

6）将已经录好内容的合同，复制出来，另存为新的文件并关闭
      For Each Sht In Sheets
        If Sht.Name = Sheet.Range("a" & m) Then
           Sht.Copy
           ActiveWorkbook.SaveAs xpath & "\" & Sht.Name & "xlsx"
           ActiveWorkbook.Close
       End If
    Next

shiruiqiang

1.是否根据供应商和日期，做去重求和？(求和字典，不求和数组，前者还要字典嵌套)

2.根据字典，找到对应的供应商模板，分别写入模板。超过数量重新写入。
第一步简单，第二步就是要定制，代码有点多，建议有酬劳找人吧

翟春凤

shiruiqiang 发表于 2024-1-28 15:53
1.是否根据供应商和日期，做去重求和？(求和字典，不求和数组，前者还要字典嵌套)

2.根据字典，找到对应 ...

非常感谢，感觉拼凑还是有困难

ykcbf1100

看着够乱的，短时间内无法很快看清楚。

3190496160

2楼的思路是可行的，但是，就如2楼所说，要完成你的需求，就得不同的供应商分别写代码，代码量就很大，工作量不小，