复制已打开的获取数据xlsm中Sheet1表中X4AX4单元格区域内容到已经打开的TEMP工作簿的SPEC工作表O4W4

要复制已打开的“获取数据.xlsm”中Sheet1表中X4:AX4单元格区域内容到已经打开的TEMP工作簿的SPEC工作表O4:W4，可以使用以下VBA代码：

Sub CopyData()
    ' 声明变量
    Dim sourceWB As Workbook
    Dim targetWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    
    ' 设置源工作簿和目标工作簿
    Set sourceWB = Workbooks("获取数据.xlsm") ' 请根据实际情况修改文件名
    Set targetWB = Workbooks("TEMP.xlsm") ' 请根据实际情况修改文件名
    
    ' 设置源工作表和目标工作表
    Set sourceWS = sourceWB.Sheets("Sheet1") ' 请根据实际情况修改工作表名称
    Set targetWS = targetWB.Sheets("SPEC") ' 请根据实际情况修改工作表名称
    
    ' 复制数据
    sourceWS.Range("X4:AX4").Copy targetWS.Range("O4:W4")
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 提示复制完成
    MsgBox "数据已成功复制到TEMP工作簿的SPEC工作表中。"
End Sub

在VBA编辑器中，按下Alt + F11键打开VBA编辑器，然后将上述代码粘贴到一个模块中。然后，运行CopyData()宏即可复制数据