中燃料场报表保存到文件--入库报表-优快云博客

本文介绍了一段VBA代码，用于自动化检查当前工作表是否为特定的材料入库明细表，若符合则在桌面创建指定文件夹，并在此文件夹中生成与日期相关的Excel报表，同时确保文件不会重复。代码还包含了数据的复制与保存过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit

Sub CmdGroup2Save()


 '判断当前数据表是否为刚生产的出库报表

    If Range("A1") <> "材料入库明细表" Then
        MsgBox "当前数据表不是 《材料入库明细表》，请确认！"
        End '结束程序的运行
    End If

    
    '在桌面上创建需要保存文件的文件夹
    
    Dim mFolderPath As String
        mFolderPath = "C:\Users\Hlj\Desktop\出入库报表" + Format(Date, "m-d")
        
    If Dir(mFolderPath, vbDirectory) = "" Then
        MkDir mFolderPath
    End If


    '创建需要的报表文件
    Dim mFilePath As String
        mFilePath = mFolderPath + "\" + ThisWorkbook.Sheets("配置").Range("A1").Value + "-入库" + Format(Date, "m-d") + ".xlsx"
   
    '当前文件夹的名字
    Dim mFileName As String
    mFileName = ActiveWorkbook.Name

    '如果文件已经存在就删除已经存在的文件
    If Dir(mFilePath) <> "" Then
        Kill mFilePath
'        MsgBox "已经删除存在的文件"
    End If
    
    Dim mNewBook As Workbook
    Set mNewBook = Workbooks.Add
    With mNewBook
'        .Title = "All Sales"
'        .Subject = "Sales"
        .SaveAs Filename:=mFilePath
    End With
    
    'MsgBox mFileName

    '复制数据并保存
     Workbooks(mFileName).Sheets("料场入库明细").Cells.Copy ActiveWorkbook.Sheets("sheet1").Range("a1")
     ActiveWorkbook.Save
     ActiveWorkbook.Close

    MsgBox mFilePath + " 文件已经保存"

End Sub