【求助】vb6 怎么和excel交互，导入导出数据处理

Dim i, n, arr, brr
    Set xlApp = GetObject(, "Excel.Application")
    If xlApp.ActiveWorkbook.Sheets.Count = 0 Then
        MsgBox "此exe需要配合指定工作簿使用！", 48, "警告！"
        End
    Else
        Set xlSheet = xlApp.ActiveWorkbook.Sheets(1)
        With xlSheet
            arr = .Range("f8:n" & .[f65536].End(3).Row)
            .[c4:n4] = "": .[a6:n6] = ""
            brr = .[a1:n6]