كود لحفظ باسم

اليك هذه الدالة

Function ProcessTabdelimitedFile(ByVal TextFileName As String, ByVal ExcelFileName As String)

    Dim appExcel As Excel.Application
    Dim intHandle As Integer
    Dim strLine As String
    Dim varElements As Variant
    Dim intCol As Integer
    Dim intRow As Integer

    Set appExcel = New Excel.Application
    With appExcel
        .Visible = True
        .Workbooks.Add
        intHandle = FreeFile
        Open TextFileName For Input As #intHandle
        Do Until EOF(intHandle)
            intRow = intRow + 1
            Line Input #intHandle, strLine
            varElements = Split(strLine, vbTab)
            For intCol = 0 To UBound(varElements)
                .ActiveSheet.Range(Chr(65 + intCol) & CStr(intRow)).Select
                .Selection = varElements(intCol)
            Next intCol
        Loop
        Close #intHandle
        .ActiveWorkbook.SaveAs FileName:=ExcelFileName
        .Quit
    End With
    Set appExcel = Nothing

End Function

و يمكن استعاءها من أى مكان

ProcessTabdelimitedFile CurrentProject.Path & "\txtWork.txt", CurrentProject.Path & "\Worksheet.xlsx"

lملحوظة

ستحتاج الى اضافة مرجع للاكسيل

اشكرك ابو يوسف على هذا الكود وما قصرت تحياتي لك (( 3 نقاط ))