كيفية حفظ بينات عمود فى اكسل كملف نصى ورفعه الى سيرفر ftp

[nagytayel]

السادة الكرام ارجو المساعدة

لدى ملف حسابات اكسل واريد ان احفظ بيانات الخلايا فى عمود معين داخل ملفى نصى ومن ثم نقل هذا الملف الى سيرفر ftp موجود على نفس الشبكة كى يتسنى لى سحب هذا المف النصى والذى يكون به مجموعة من الاوامر التى ينفذها سيرفر اخر

[nagytayel]

السادة الكرام ارجو المساعدة

لدى ملف حسابات اكسل واريد ان احفظ بيانات الخلايا فى عمود معين داخل ملفى نصى ومن ثم نقل هذا الملف الى سيرفر ftp موجود على نفس الشبكة كى يتسنى لى سحب هذا المف النصى والذى يكون به مجموعة من الاوامر التى ينفذها سيرفر اخر

[طارق محمود]

السلام عليكم

أخي الكريم

في الملف المرفق مجموعة الاوامر المراد نقلها موجودة بالعمود H

والكود المستخدم هو

 

Sub SaveText()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
a = Format(Hour(Now), "00") & Format(Minute(Now), "00")
new_F = ActiveWorkbook.Path & "\sample" & a & ".txt"
    Columns("H:H").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues
    Columns("A:A").EntireColumn.AutoFit
    Application.CutCopyMode = False
    With ActiveWorkbook
        .SaveAs Filename:=new_F, FileFormat:=xlText
        .Save
        .Close
    End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

بالضغط علي الزر الاسود يبدأ بتنفيذ الكود

حيث يأخذ نسخة من العمود H ويلصقها بملف جديد ويحفظ هذا الجديد بصيغة txt بإسم sample.txt مع الوقت بصيغة hhmm

في نفس المجلد الموجود به الملف الأصلي

فمثلا لو ضغطت علي الزر الساعة 9:50 ص سيكون اسم الملف sample0950.txt

Sample.rar

[ا بو سليمان]

ممتاز اخي طارق 

 

يعني باستطاعتي ان عمل ملف على سطح المكتب  وارفعة  على موقع  ويب  خاص بي    

 

نحن بحاجة الى المساعدة من المختصين في هذا المجال 

[nagytayel]

شكرا جزيلا لك يا استاز طارق على الرد السريع والمجهود الرائع - ولكن كيف ارفع الملف النصى بعد ذلك على سيرفر ال ftp الخاص بى بكود vba  بحيث انه عند قيام العميل بسداد فاتورة مثلا يقوم المستخدم للبرنامج الموجود فى المكتب بتسجيل ان العميل سدد  ومن هنا ارسال الملف النصى الى السيرفر الذى يقوم بصفة دورية بالبحث عن هذا الملف ومن ثم عندما يجده يقوم بتنفيذ الامر الموجود به وهو تشغيل حساب العميل - وملخص المطلوب هو ماكرو يقوم برفع ملف نصى الى سيرفر ftp مع العلم ان عنوان السيرفر ftp://1.1.1.1  اليوزر nagy الباسورد 12345

[طارق محمود]

أخي العزيز

أولا مانوع الملف التيكست الذي به مجموعة الاوامر المراد نقلها

المثال الذي وضعته أنا كان ملف باتش فايل للمثال فقط ، فيلزم لتشغيله مثلا أن يكون الامتداد bat وليس txt
وبصراحة لاأدري نوع الملف أو اللغة التي يحتاجها السيرفر لديك
إرسل لنا ملف تيكست كمثال (الذي به مجموعة الاوامر) ولكن ارسل واحد حقيقي من الذي موجود بالفعل علي السيرفر

[nagytayel]

أخي العزيز

أولا مانوع الملف التيكست الذي به مجموعة الاوامر المراد نقلها

المثال الذي وضعته أنا كان ملف باتش فايل للمثال فقط ، فيلزم لتشغيله مثلا أن يكون الامتداد bat وليس txt

وبصراحة لاأدري نوع الملف أو اللغة التي يحتاجها السيرفر لديك

إرسل لنا ملف تيكست كمثال (الذي به مجموعة الاوامر) ولكن ارسل واحد حقيقي من الذي موجود بالفعل علي السيرفر

اخى الاستاذ طارق هذا بالتحديد ملف التكست الذى اقوم برفعه للسيرفر

SetUsers.txt

[nagytayel]

 

أخي العزيز

أولا مانوع الملف التيكست الذي به مجموعة الاوامر المراد نقلها

المثال الذي وضعته أنا كان ملف باتش فايل للمثال فقط ، فيلزم لتشغيله مثلا أن يكون الامتداد bat وليس txt

وبصراحة لاأدري نوع الملف أو اللغة التي يحتاجها السيرفر لديك

إرسل لنا ملف تيكست كمثال (الذي به مجموعة الاوامر) ولكن ارسل واحد حقيقي من الذي موجود بالفعل علي السيرفر

اخى الاستاذ طارق هذا بالتحديد ملف التكست الذى اقوم برفعه للسيرفر

SetUsers.txt

 

علما باننى كنت اقوم برفع الملف باستخدام برنامج ftp manager  كل ساعة لكن البرنامج لا يعمل احيانا لانشغال البورت