使用另存为对话框将 excel 范围导出为新的 excel 工作表

Question

我想在 Excel 工作表中创建一个按钮，该按钮将复制特定范围（命名范围），然后打开“另存为”对话框，用户可以选择位置并将该范围保存为新的 Excel 工作表。这可能吗？

我可以编写一个将命名范围复制到剪贴板的代码，然后用户可以将其粘贴到 MS word 等中。下面是我到目前为止的代码。

Sub copyValueTable()
  Dim oRange As Range
  Set oRange = Sheets("Analysis").Range("FullValueTable")
  oRange.CopyPicture xlScreen, xlPicture
  oRange.Copy
End Sub

Answer 1

试试下面的代码：

Sub copyValueTable()

    On Error Resume Next

    Dim rng As Range
    Dim wkb As Workbook
    Dim sht As Worksheet

    Set rng = Application.InputBox("Please select the range" & vbNewLine & "Enter named range", Type:=8)

    On Error GoTo 0

    If Not rng Is Nothing Then
        fileSaveName = Application.GetSaveAsFilename(fileFilter:="xls Files (*.xls), *.xls")
        If fileSaveName <> False Then

            ActiveSheet.Copy
            Set wkb = ActiveWorkbook
            Set sht = wkb.Sheets(1)
            sht.Cells.Clear
            rng.Copy sht.Range("A1")

            wkb.SaveAs fileSaveName
            wkb.Close
        End If
    End If
End Sub