ذخیره در فایل Notpad با شروط خاص

**shamsololama** · 2013/03/06, 09:43

RE: ذخیره در فایل Notpad با شروط خاص

با درود فراوان
توضیح جلو کدها نشته ام

Sub CreateAfile2()
Set fs = CreateObject("Scripting.FileSystemObject")
namfile = Range("b1").Value
Adresfile = "C:\"
Set a = fs.CreateTextFile(Adresfile & namfile & ".txt", True) 'ايجاد يک فايل تکست در آدرس مشخصبا نام که از سل بي يک گرفته
For Each c In Range("A1:A100")
If c <> "" Then
a.WriteLine (c.Value) 'وارد کردن متن دلخواه به فايل تکس
End If

Next
End Sub

**hajihadi** · 2013/03/06, 09:49

RE: ذخیره در فایل Notpad با شروط خاص

سلام
خیلی گُلی
متشکرم

**hajihadi** · 2013/03/07, 11:32

RE: ذخیره در فایل Notpad با شروط خاص 2

سلام

میشه در این موردم هم راهنمایی بفرمائید.

1-وقتی فایل ذخیره میشود میخواهم به تاریخ و ساعت جاری سیستم ذخیره شود در جواب بالا اگر اشتباه نکنم فقط به نوشته ذخیره میشود (در واقع می خواهم در سلول B1 فرمول ()now= را درج کنم)

2-چه جوری میتونم در این انجمن فایلی را ضمیمه کنم (عکس یا اکسل) تا بتوانم منظورم را بهتر بیان کنم

odgy:

با احترامات فراوان

**shamsololama** · 2013/03/07, 14:46

RE: ذخیره در فایل Notpad با شروط خاص

با درود فراوان

در کد قبلی این تغییر رو بده
بجای
namfile = Range("b1").Value
بنویس
namfile = Range("b1").Text

< همچنین سل بی یک که میخوای تاریخ now() رو توش بنویسی
فرمت سلش رو به این فرمت تغییر بده
dd-mm-yyyy
یعنی اینکه بجای اسلش باید خط یا هرچیزی دیگه ای که نام فایل قبول میکنه بگذارید

برای آپلود هم باید زمان ارسال پاسخ گزینه ای برای آپلود داشته باشه

موفق باشید