跨工作簿复制多列数据及拆分年月至两列？VBA报错求助

错误原因分析 #

• 代码1报错原因：你引用了不存在的工作表Time，需求中目标工作表是Exclusive，导致系统找不到对应工作表，抛出"unknown name"错误。
• 代码2存在多处问题：变量类型定义错误（strTransport是Integer类型却用于存储字符串）、Cells方法调用错误（Cells需要行号+列号参数，不能直接传入单元格区域）、If语句语法结构混乱。

完整VBA代码实现 #

以下代码可以实现完整数据复制（无255字符截断），并将年月拆分到单独列：

Sub CopyDataAndSplitYM()
    Dim wbTime As Workbook
    Dim wsExclusive As Worksheet
    Dim wbOntime As Workbook
    Dim wsValueTime As Worksheet
    Dim sourceYear As Integer
    Dim sourceMonth As Integer
    
    ' 引用已打开的Time.xlsx工作簿及其Exclusive工作表
    Set wbTime = Workbooks("Time.xlsx")
    Set wsExclusive = wbTime.Worksheets("Exclusive")
    
    ' 引用Ontime.xlsm的ValueTime工作表（代码写在Ontime.xlsm中时用ThisWorkbook）
    Set wbOntime = ThisWorkbook
    Set wsValueTime = wbOntime.Worksheets("ValueTime")
    
    ' 完整复制B1:E500区域到ValueTime的A1起始位置
    wsExclusive.Range("B1:E500").Copy wsValueTime.Range("A1")
    
    ' 提取年月（以下提供两种常见场景，按需选择）
    ' 场景1：从Exclusive工作表A1单元格的日期中提取年月
    If IsDate(wsExclusive.Range("A1").Value) Then
        sourceYear = Year(wsExclusive.Range("A1").Value)
        sourceMonth = Month(wsExclusive.Range("A1").Value)
    End If
    
    ' 场景2：从Time.xlsx文件名提取年月（假设文件名格式为Time_YYYYMM.xlsx）
    ' Dim fileNamePart As String
    ' fileNamePart = Replace(wbTime.Name, "Time_", "")
    ' fileNamePart = Left(fileNamePart, 6)
    ' sourceYear = Left(fileNamePart, 4)
    ' sourceMonth = Right(fileNamePart, 2)
    
    ' 将年月填充到ValueTime的F、G列（可根据需求调整目标列）
    wsValueTime.Range("F1:F500").Value = sourceYear
    wsValueTime.Range("G1:G500").Value = sourceMonth
End Sub

关键说明 #

• 完整数据复制：使用Range.Copy方法直接复制区域，会完整保留所有数据类型（包括超长字符串、整数等），不会出现255字符截断问题。
• 年月提取：根据实际需求选择场景1或场景2，若需从工作簿创建时间提取，可替换为Year(wbTime.BuiltinDocumentProperties("Creation Date"))和Month(wbTime.BuiltinDocumentProperties("Creation Date"))。
• 工作簿引用：若Time.xlsx未提前打开，需在代码开头添加Set wbTime = Workbooks.Open("C:\实际路径\Time.xlsx")。

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