سلام
مرسی از جواب ، برای کپی کردن یک فایل خارجی از طریقVBA چطور امکانش هست ؟ مسیر مقصد خب مشخصه که system32 هست ولی مبدا رو چطور میشه تشخیص داد؟ و همچنین کد چطور بفهمه که فایل مورد نظر تو system 32 وجود داره یانه؟
سلام
مرسی از جواب ، برای کپی کردن یک فایل خارجی از طریقVBA چطور امکانش هست ؟ مسیر مقصد خب مشخصه که system32 هست ولی مبدا رو چطور میشه تشخیص داد؟ و همچنین کد چطور بفهمه که فایل مورد نظر تو system 32 وجود داره یانه؟
نوشته اصلی توسط mahasa shayesteh
با درود فراوان
در واقع یک سری نرم افزار هست که کار ستاپ سازی رو انجام میده و داخل بیشتر سی دی های کینگ هم هستش که شما می توانید فایل خاصی رو بدی که براتون نصب کنه یا کپی کنه
که بیشتر بصورت ویزارد هستش و زیاد کار سختی نیست ولی هر ستاپ ساز با هم فرق میکنه و بستگی داره از کدوم استفاده کنی برای همین چیز خاصی نیست که بخوام در مودش اینجا توضیح بدم
و اما همین کار هم میتونی با خود اکسل انجام بدی و با کد نویسی در قسمت وی بی آ اکسل این کار رو انجام بدی که فایل مورد نظر رو اول چک کنه ببینی در فایل سیستم 32 وجود داره یا نه و اگر نداشت آن را کپی کنه براتون که برای کپی کردن فایل از آدرس مبدا که کنار فایل شما قرار داره به فایل مقصد به این صورت خواهد بود
Sub stup()
Dim st1 As String, st2 As String
If Dir("C:\Windows\System32\msdxm.ocx") <> "" Then
MsgBox "file is already Exist"
Else
st1 = Application.ThisWorkbook.Path & "/msdxm.ocx"
st2 = "C:\Windows\System32\msdxm.ocx"
Name st1 As st2
End If
End Sub
برای ویندوز 64 بیتی از کجا این فایل را پیدا کنم؟
گمان نکنم باشه ولی باید برای 64 هم کار کنه ها، چه پیغامی میده؟
اکتیوایکس mbcalendar رو مجددا آپلود کردم فک کنم فایل پیوست خراب باشه
ممکنه برخی از دوستان ندونن run چیه به تصاویر زیر دقت کنند
اون راهنمایی که در پست 6 امده برای سیتم های 32 بیتی است؟
برای 64 بیتی آیا بجای reg-dword باید reg-qword را اضافه کرد؟
و قسمت دوم که در vba>>security ، اگر فولدری بنام security نبود چیکار کنیم؟فولدر رو اضافه کنم؟
ویرایش توسط 1716 : 2014/04/30 در ساعت 18:14
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)