Question

我知道我应该在访问或VB中这样做，但我不知道如何使用它们。目前，我在表单末尾有一个提交按钮，用于保存和关闭工作簿，无论输入到某个单元格。

我正在寻找一种能够做同样事情但是从工作簿中删除工作表的方法。因此它只将工作表保存为自己的excel文件，并将名称输入到某个单元格中。以下是我目前正在使用的宏。

sudo apt-get install sendmail

如果可以添加日期和计算机用户来保存名称但不是必需的，那也很酷。

提前致谢萨姆

Answer 1

像这样 -

Sub SaveSheet()

Dim wbkDashboard As Workbook
Dim wsTarget As Worksheet
Set wsTarget = Thisworkbook.worksheets("Sheet1")

Dim strFileName As String
strFileName = wsTarget.Range("B8").Value _
    & Format(Now, "ddmmyyyy") & "-" & Environ("username") & ".xlsx"

Set wbkDashboard = Workbooks.Add
wsTarget .Copy Before:=wbkDashboard.Sheets(1)

For intSheetCount = 2 To wbkDashboard.Sheets.Count
    wbkDashboard.Sheets(2).Delete
Next

wbkDashboard.SaveAs "W:\Test\" & wsTarget.Range("B8").Value  _
    & Format(Now, "ddmmyyyy") & "-" & Environ("username") & ".xlsx"

wbkDashboard.Close
wsTarget.Range("B8").Value= strFileName

Set wsTarget = Nothing
Set wbkDashboard = Nothing
End Sub

Answer 2

此代码将保存您在当前版本中创建的所有更改，然后它将仅将活动工作表保存为具有用户名和日期的新工作簿（感谢@Will on the Environment Variables）。

Sub Saveworkbook()
Application.DisplayAlerts = False
Dim Sheet1 As Worksheet
Dim dName$, vName$, sName$
    dName = Range("B8")
    vName = ActiveWorkbook.FullName
    sName = ActiveWorkbook.ActiveSheet.Name
    For Each Sheet1 In ActiveWorkbook.Sheets
    If Not Sheet1.Name = sName Then
    Sheet1.Delete
    End If
    Next Sheet1

    ActiveWorkbook.SaveAs "W:\Test\" & dName & "_" & Environ("username") & "_" & Format(Now, "ddmmyy") & "xlsx"
    ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Excel宏保存

2 个答案: