الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود لحفظ باسم

بدأه الفيلسوف111 في 11 سبتمبر 2011 · 2 رد · 398 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

microsoft office excel workbook

السلام عليكم ورحمة الله ، لقد بحثت كثير عن كود يمكن استخدامه من داخل الاكسس بتمرير مسار الملف c:\tste.xls , وذلك لتغيره من ملف اكسل بصيغة Text tab delimited الى ملف اكسل بصيغة microsoft office excel workbook

وإن شاء الله الخبراء هنا يفدوني مشكروين على ما يبذلونه ،، تحياتي للجميع .

طارق العيد

#2

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

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ملحوظة

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

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 11 سبتمبر 2011 في 18:20

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

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

طارق العيد

مواضيع مشابهة