طلب مساعدة: كود يصنع أو يكتب ملف نصي ويحفظه باسم وامتداد أنا أحدده

[خالدو]

السلام عليكم ورحمة الله وبركاته

ممكن كود يصنع لي ملف عن طريق Notepad ويحفظه بامتداد vbs كالتالي:

افتح تطبيق Notepad واكتب فيه التالي:

on error resume next

dim ExcelApp, ExcelWB

set ExcelApp = createobject("Excel.Application")

ExcelApp.visible = true

set ExcelWB = ExcelApp.Workbooks.Open("d:\fleet\monthlySalesReport.xls")

ExcelApp.AutoRecover.Enabled = False

wscript.quit

يحفظه باسم

SalesReportReminder.vbs

Location

C:\Sales

أرجو منكم التكرم والمساعدة... وجزاكم الله خيراً

[طارق محمود]

السلام عليكم

أخي الكريم

الكود هو

Sub create_File()

On Error Resume Next

MkDir "c:\sales"

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\sales\SalesReportReminder.vbs", True)


a.WriteLine ("on error resume next")

a.WriteLine ("dim ExcelApp, ExcelWB")

a.WriteLine ("set ExcelApp = createobject(" & Chr(34) & "Excel.Application" & Chr(34) & ")")

a.WriteLine ("ExcelApp.visible = true")

a.WriteLine ("set ExcelWB =")

a.WriteLine ("ExcelApp.Workbooks.Open(" & Chr(34) & "d:\fleet\monthlySalesReport.xls" & Chr(34) & ")")

a.WriteLine ("ExcelApp.AutoRecover.Enabled = False")

a.WriteLine ("wscript.quit")

a.Close


End Sub

[خالدو]

جزاك الله خيراً أخي طارق ... جربته وشغال ولله الحمد.

أشكرك كتيراً

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

الاخ الحبيب المهندس / طارق

أعمال رائعة . جزاك اله كل خير

و السلام عليكم ورحمة الله و بركاته

تم تعديل مايو 5, 2011 بواسطه HaNcOcK

[طارق محمود]

السلام عليكم

السلام عليكم ورحمة الله و بركاته

الاخ الحبيب المهندس / طارق

أعمال رائعة . جزاك اله كل خير

و السلام عليكم ورحمة الله و بركاته

جزاك الله خيرا

أشكر لك مشاعرك الطيبة ومرورك الكريم

[bowman]

بارك الله فى هذا المنتدى الطيب