نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: درخواست کمک

  1. #1


    آخرین بازدید
    2022/09/04
    تاریخ عضویت
    March 2010
    نوشته ها
    34
    امتیاز
    3
    سپاس
    0
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    dove1355 به Yahoo ارسال پیام

    درخواست کمک

    با سلام و احترام خدمت اساتید بزرگوار
    من برای ذخیره سازی فایل اکسل یک کد vb دارم که هر زمان فایل اکسل رو سیو میکنم یک نسخه از فایل رو در my document با تاریخ و ساعت سیو میکنه. حالا میخوام مسیرش رو عوض کنم و ببرم تو درایو d و درون یک فولدر سیو کنم. ممنون میشم کمکم کنید که کدشو اصلاح کنم تا بتونم این کارو انجام بدم. متشکرم.

    Option Explicit





    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim MyFilePath$, Extension$
    MyFilePath = MyPCpath("MyDocuments")
    Extension = Left(ThisWorkbook.Name, Len _
    (ThisWorkbook.Name) - 4) & " Backup"

    On Error Resume Next '<< folder exists
    MkDir MyFilePath & Extension '<< create folder
    'save current version of this book in the folder
    ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _
    Extension & "" & Extension & _
    (Format(Now, " yyyy.m.d, hh.mm AMPM")) & ".xls"

    End Sub


    Private Sub Workbook_Open()
    Application.Caption = "Microsoft Excel AutoBackup"
    End Sub




    Public Function MyPCpath$(Folder)
    MyPCpath = CreateObject("WScript.Shell").SpecialFolders _
    (Folder) & Application.PathSeparator
    End Function
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2023/05/10
    تاریخ عضویت
    January 2017
    محل سکونت
    کرمانشاه
    نوشته ها
    360
    امتیاز
    571
    سپاس
    98
    سپاس شده
    550 در 269 پست
    سطح اکسل
    80.00 %

    با سلام از دستور ذیل استفاده کنید
    کد PHP:
    FileCopy "D:\YourFolderName\MyFile.xlsx" 

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2022/09/04
    تاریخ عضویت
    March 2010
    نوشته ها
    34
    امتیاز
    3
    سپاس
    0
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    dove1355 به Yahoo ارسال پیام
    با سلام. مرسی از پاسخ شما. این دستور رو باید کجای متن خودم اضافه کنم؟

    نقل قول نوشته اصلی توسط rasools13 نمایش پست ها
    با سلام از دستور ذیل استفاده کنید
    کد PHP:
    FileCopy "D:\YourFolderName\MyFile.xlsx" 


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پرسش امکان کلیک راست داخل تکست باکس یوزم فرم
    توسط mreza در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 10
    آخرين نوشته: 2018/08/08, 09:24
  2. مشکل مطالب چپ به راست و کپی در شیت راست به چپ
    توسط alibobo در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/24, 16:40
  3. پرسش درخواست راهنمایی در رابطه با جست وجوی پیشرفته توسط تابع Vlookup
    توسط Ali_Sedaghat در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/23, 17:13
  4. طراحی ستون*هاي با بست چپ و راست تك
    توسط alieddy0 در انجمن اسپريد شيت هاي مهندسي - Engineering spreadsheet
    پاسخ ها: 0
    آخرين نوشته: 2014/03/18, 12:22
  5. شکلک پستچی در پائین راست صفحه چی چیه ؟ مزاحم دید ماست.
    توسط absabdi2005 در انجمن انتقادات و پیشنهادات خود را در این اتاق ثبت کنید
    پاسخ ها: 5
    آخرين نوشته: 2014/02/19, 13:12

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است