تغییر نام فایل اکسل هنگام خروجی گرفتن [بایگانی]

amiralex

پنج شنبه 23 مهر 1394, 09:15 صبح

با سلام خدمت دوستان

طبق تصاویر پیوست شده اگه بخوام با زدن روی دکمه ساخت فایل که با زدنش یک خروجی اکسل ( از طریق ماکروه Output to) گرفته میشه نام فایلی که ذخیره میشه بشه نامی که در عکش مشخص میشه

چطور میشه این کار رو کرد؟؟

136038

Rasool-GH

پنج شنبه 23 مهر 1394, 10:07 صبح

نمونه بزار برادر

amiralex

پنج شنبه 23 مهر 1394, 11:33 صبح

از تصاویر پیوست مشخصه منظورم

چون حجم برنامم طوری که نمیشه نمونه بذارم

اگر ممکنه راهنمایی بفرمائید

amirzazadeh

پنج شنبه 23 مهر 1394, 11:52 صبح

سلام
اين كد رو در رويداد كليك دكمه مورد نظر قرار بديد:

DoCmd.OutputTo acOutputForm, ex_main, 9,Your Path &"\"& Me.yourTextboxName, True, ""
البته در اين فايل به صورت خودكار در مسير ذكر شده ذخيره خواهد شد و صفحه ديالوگ باز نخواهد شد.

amiralex

پنج شنبه 23 مهر 1394, 12:26 عصر

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

amirzazadeh

پنج شنبه 23 مهر 1394, 13:05 عصر

Private Sub Command2_Click()
On Error GoTo X
Dim fDialog As Object
Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
Dim varFile As Variant

Dim filesys, filetxt, getname

With fDialog
.AllowMultiSelect = False

.Title = "áØÝÇ ãÓíÑ ÐÎíÑå ÑÇ ãÔÎÕ äãÇííÏ :"

.InitialFileName = Me.Text0 & ".xls"

If .Show = True Then
For Each varFile In .SelectedItems
GetFileName = varFile
Next
End If
End With
DoCmd.OutputTo acOutputForm, ex_main, 9, GetFileName, True, ""

X:
End Sub
كد رو با عجله نوشتم ممكنه نياز به باز بيني داشته باشه.
رفرنس microsoft office 12 object library بايد تيك بخوره(البته در نسخه 2007 اكسس)

amiralex

پنج شنبه 23 مهر 1394, 13:40 عصر

بسیار عالی بود
کاملا درست و دقیق عملکرد
سپاسگذارم

Rasool-GH

شنبه 25 مهر 1394, 13:31 عصر

سلام
تنظیمات رفرنس در افیس 2010 کجا رفته . پیدا نکردم

یافتم . مسیر :
Microsoft Visual Basic, click Tools -> References

Rasool-GH

شنبه 25 مهر 1394, 17:45 عصر

Private Sub Command2_Click()
On Error GoTo X
Dim fDialog As Object
Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
Dim varFile As Variant

Dim filesys, filetxt, getname

With fDialog
.AllowMultiSelect = False

.Title = "áØÝÇ ãÓíÑ ÐÎíÑå ÑÇ ãÔÎÕ äãÇííÏ :"

.InitialFileName = Me.Text0 & ".xls"

If .Show = True Then
For Each varFile In .SelectedItems
GetFileName = varFile
Next
End If
End With
DoCmd.OutputTo acOutputForm, ex_main, 9, GetFileName, True, ""

X:
End Sub
كد رو با عجله نوشتم ممكنه نياز به باز بيني داشته باشه.
رفرنس microsoft office 12 object library بايد تيك بخوره(البته در نسخه 2007 اكسس)

سلام ممنون بابت کد
ایا خط اخر کد سهوا داخل کد باقی مونده ؟
منظورم این کده

DoCmd.OutputTo acOutputForm, ex_main, 9, GetFileName, True, ""

این کد بعد از کنسل کردن عملیات ذخیره سازی مجددا دیالوگ رو باز میکنه .
نبود کد هم باعث میشه که عملیات ذخیره انجام نشه
ضمنا پسوند فایل در انتهای نام فایل اضافه نمیشه .