1

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

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

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

1 回答 1

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
于 2013-06-11T11:42:39.760 回答