backup

[kazem1359]

ممنون راهنمایی خوبی بود امیدوارم بتونم از شما اساتید درسها و راهنماییهای بهینه ای دریافت کنم باز هم سپاس

[kazem1359]

پیرو تاپیک backup

استاد ارجمند اقای قاسمیان
با سلام
در تاپیک backup راهنمایی های خوبی به بنده نمودید ولی متاسفانه به یک مشکل برخوردم بنده در یوزر فرم خود یک باتون برای بک آپ گذاشتم تا هنگام خروج از برنامه از فایل یک بک آپ بگیرم که فایل بک آپ با کدهایی که شما دادین در مسیر داده شده ساخته میشه ولی یک مشکل هست در فایل بک آپ تغییرات جدید که برروی فایل اعمال میشه در فایل بک آپ نیست ( یعنی فایل بک آپ از فایلی که قبل از اعمال تغییرات جدید هست) ممنون می شم این مشکل را هم برطرف نمایئد.
ممنون

[Amir Ghasemiyan]

سلام دوست عزیز
علتش اینه که شما خط .save رو حذف کردید
برای همین آخرین تغییرات رو ذخیره نمیکنه

تنها راهی که به نظرم میرسه اینه که این خط رو برگردونید

[حسام بحرانی]

سلام
از آنجایی که این موضوع ادامه پیدا کرد و این امکان وجود داره که موضوع بطور کامل حل نشده باشه،

این تاپیک تا حل کامل موضوع باز شد.
موفق باشید.

[narcissus]

خب پس همونطور كه عرض كردم آدرس ها رو داخل يك سلول بنويسيد و به اون سلول رفرنس بدين. اينطوري بهتره
مثلا اينطوري:

Source = Sheet1.Range("A1").Value

سلام خدمت اساتید
ممنون میشم اگه داخل کد بیارین این دستور مسیر ذخیره رو

[Amir Ghasemiyan]

سلام خدمت اساتید
ممنون میشم اگه داخل کد بیارین این دستور مسیر ذخیره رو

خدمت شما

Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
Source = Sheet1.Range("A1").Value
Destination = Sheet1.Range("B1").Value

Call fso.CopyFile(Source, Destination)

[kazem1359]

سلام ببخشین میشه بگین کدوم خط سیو را باید برگردونم و در کجای کد قرار بدم ممنون میشم بیشتر توضیح دهید. سپاس

[Amir Ghasemiyan]

سلام ببخشین میشه بگین کدوم خط سیو را باید برگردونم و در کجای کد قرار بدم ممنون میشم بیشتر توضیح دهید. سپاس

منظورم اين قسمت هست

    With AWB
        .Save
        .SaveCopyAs BackupFileName
        Ok = True
    End With

[kazem1359]

سلام اقای قاسمیان یک پیام برایتان ارسال کرده ام از بابت همین تاپیک اگر جواب دهید ممنون میشم، سپاس

[kazem1359]

سلام اقای قاسمیان ممنون از پاسختان بابت پیام ارسالی
ولی بنده متوجه نشدم ایا امکان هست در نرم افزار ارسالی برایم اصلاح کنید ممنون میشم لطف می کنید
قسمت پشتیبانگیری برایم خیلی مهم هست اگر این مورد را برایم دزست نمایید خیلی سپاسگذار میشم.

[Amir Ghasemiyan]

سلام دوست عزيز
پاسخ ارسال شد بررسي بفرماييد

[kazem1359]

اقای قاسمیان سلام ممنون از پاسختان
در فایل ارسالی شما نتوانستم بک اپ بگیرم فایل بک اپ ساخته نمیشه
اقای قاسمیان در فایل ارسالی که بنده برایتان ارسال کرده ام می توانم بک اپ بگیرم فقط یک مشکل دارم که وقتی در فایل چکی ثبت بکنم و بک اپ می گیرم بک اپ میده ولی چکهایی که ثبت شده در فایل بک اپ ذخیره نشده و فایل بک اپ از فایل قبل از تغییرات هست.
ایا راهی هست که با دادن تغییرات در فایل اصلی ان تغییرات در فایل بک اپ ذخیره شده باشه.
ممنون می شم پاسخ دهید.

[Amir Ghasemiyan]

سلام دوست عزيز
شما در موقع بكاپ گيري اصلا ذخيره اي انجام نميديد. طبيعي هست كه تغييرات ذخيره نشه.
كدهاي دكمه بكاپ رو با اين كد جايگزين كنيد.

Private Sub CommandButton1_Click()
Dim fso As Object
ActiveWorkbook.Save
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
Source = TextBox2.Value & "\sabte qek.exe"
Destination = TextBox1.Value & "\sabte qek.exe"


Call fso.CopyFile(Source, Destination)
MsgBox ChrW(1601) & ChrW(1575) & ChrW(1740) & ChrW(1604) & ChrW(32) & ChrW(1587) & ChrW(1575) & ChrW(1582) & ChrW(1578) & ChrW(1607) & ChrW(32) & ChrW(1588) & ChrW(1583), vbMsgBoxRight + vbInformation, ChrW(1662) & ChrW(1740) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1607)


End Sub

[kazem1359]

سلام جناب اقای قاسمیان ممنون از پاسختان
ببخشین یک پیام برایتان ارسال نمودم اگر لطف نمایید پاسخ دهید سپاسگذارم

[kazem1359]

سلام جناب استادقاسمیان ممنون از راهنمایی که نمودید خیلی از مسایلم حل شد یک مورد کوچک دیگه :
در فرمول abh چرا کلمه ریال وارد نمیشه من فرمول را هم به صورت زیر وارد می کنم ولی کلمه ریال نمیاد
("ریال";e16)=abh

علت چیست؟