hent fil fra excel, urgent

hej nogen der kan hjælpe
jeg skal have fat i en excel fil

har lige en dump af koden her, er der noget i iis indstillinger man skal rette i for at det kan virke, med at hente filer fra excel osv

  OutPath = m_InPath & SubDir
    TxtFile = OutPath & "\" & FileName & "_" & SheetName & ".txt"
    If Dir(TxtFile) <> "" Then Kill (TxtFile)
    Workbooks.Open FileName:= _
    m_InPath & SubDir & "\" & FileName & ".wk4", UpdateLinks:=0
    If SheetName <> "" Then Sheets(SheetName).Select
       
    Cells.Select
    Selection.Copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.SaveAs FileName:=TxtFile, _
          FileFormat:=xlText, CreateBackup:=False
    ActiveWindow.Close Savechanges:=False