我正在编写一些代码,这些代码将读取多个命名范围并将其写入文本文件。我被问到是否可以将其复制到剪贴板而不是写入.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