Excel VBA跨应用复制Range：如何保留文本型数字？

针对你遇到的跨不可见Excel实例复制数据、需保留文本型数字格式的问题，以下两种方法均可解决：

方法一：优化剪贴板复制，规避OLE等待提示 #

通过调整源Excel实例的交互设置，避免剪贴板操作触发OLE提示，同时保留数据格式：

' 假设srcApp是不可见的源Excel实例对象，srcRange是源数据区域，destRange是目标区域
With srcApp
    .DisplayAlerts = False
    .Interactive = False
    .CutCopyMode = False
End With

' 复制源区域并粘贴值与格式
srcRange.Copy
destRange.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

' 立即释放剪贴板，避免占用
srcApp.CutCopyMode = False
ThisWorkbook.Application.CutCopyMode = False

' 恢复源实例的默认设置
With srcApp
    .Interactive = True
    .DisplayAlerts = True
End With

• xlPasteValuesAndNumberFormats会同时粘贴单元格的值和数字格式，确保文本型数字的格式（如前置零）被保留；若需保留更多格式（如单元格颜色），可替换为xlPasteAll。
• 关闭Interactive和DisplayAlerts能避免跨实例操作时的系统提示，复制后清除剪切模式可彻底释放剪贴板资源。

方法二：无剪贴板复制，直接保留文本内容 #

完全不依赖剪贴板，通过读取单元格的Text属性直接复制显示内容，彻底规避OLE交互问题：

Dim srcRange As Range, destRange As Range
Dim rowCount As Long, colCount As Long
Dim i As Long, j As Long

' 定义源数据区域和目标区域
Set srcRange = srcApp.Workbooks("源工作簿.xlsx").Worksheets("源表").Range("A1:O1000")
Set destRange = ThisWorkbook.Worksheets("目标表").Range("A1").Resize(srcRange.Rows.Count, srcRange.Columns.Count)

' 先同步源区域的数字格式到目标区域
destRange.NumberFormat = srcRange.NumberFormat

rowCount = srcRange.Rows.Count
colCount = srcRange.Columns.Count

' 逐单元格复制显示文本（保留文本型数字的原始格式）
For i = 1 To rowCount
    For j = 1 To colCount
        destRange.Cells(i, j).Value = srcRange.Cells(i, j).Text
    Next j
Next i

• Text属性会直接获取单元格的显示内容，包括文本型数字的格式（如"00123"这类前置零的文本），不会将其转换为纯数字。
• 1000行15列的循环在VBA中执行效率极高，不会出现性能瓶颈。

内容的提问来源于stack exchange，提问作者Robert