Question

我正在编写一些代码，这些代码将读取多个命名范围并将其写入文本文件。我被问到是否可以将其复制到剪贴板而不是写入.txt文件。我的搜索显示，在早期版本的excel中，通过添加对Microsoft Forms Library 2.0的引用，可以采用一种相对简单的方法。但是，该库似乎在excel 2016中不存在。该电子表格将在我自己的计算机以外的其他几台计算机上使用，所以我宁愿不需要自定义安装使其正常工作，因为其他计算机是远程的并拥有非精通计算机的人。这是代码：

Sub Button40_Click()
    Dim RangeNames As Range
    Dim RangeName As Range
    Dim ThisRange As Range
    Dim ThisRangeName As String
    Dim RangeLength As Integer
    Dim i As Integer
    strFile_Path = "D:\My Docs\Proposals\CustomerName\text.txt"
    Set RangeNames = Range("FinalItemOrder")
    Close #1
    Open strFile_Path For Append As #1
    For Each RangeName In RangeNames
        If RangeName <> "" Then
            ThisRangeName = "Code" & RangeName
            'Debug.Print ThisRangeName
            Set ThisRange = Range(ThisRangeName)
            RangeLength = ThisRange.Cells.Count
            For i = 1 To RangeLength
                Print #1, ThisRange(i, 1)
            Next i
        End If
    Next RangeName
    Close #1
End Sub

如何写入剪贴板Excel 2016 VBA

0 个答案: