在Excel中，可以使用VBA代码来自动分离导入的CSV文件中的列名。以下是一个示例代码：

Sub SeparateColumnNamesFromCSV()
    Dim csvData As String
    Dim dataArray() As String
    Dim columnNames() As String
    Dim i As Integer
    
    ' 选择要导入的CSV文件
    csvFile = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
    
    ' 检查是否选择了文件
    If csvFile <> False Then
        ' 读取CSV文件内容
        Open csvFile For Input As #1
        csvData = Input$(LOF(1), 1)
        Close #1
        
        ' 将CSV内容拆分为行数组
        dataArray = Split(csvData, vbCrLf)
        
        ' 将第一行作为列名
        columnNames = Split(dataArray(0), ",")
        
        ' 在单元格A1:C1中填充列名
        For i = 0 To UBound(columnNames)
            Cells(1, i + 1).Value = columnNames(i)
        Next i
    End If
End Sub

使用此代码，您可以打开一个对话框来选择要导入的CSV文件。然后，它将读取CSV文件的内容，并将第一行作为列名填充到Excel工作表的A1:C1单元格中。

请注意，此代码假设CSV文件的第一行包含逗号分隔的列名，并且仅将列名填充到A1:C1单元格中。您可以根据需要进行修改。