نمايش Caption فيلدها در گزارش اكسل [بایگانی]

bita_ziba77

شنبه 19 تیر 1389, 14:45 عصر

با سلام
من در گزارشم يك كليد دارم كه با فشردن آن ، يك خروجي با فرمت اكسل تهيه مي گردد.
مشكل من در فيلدهاي موجود در اكسل مي باشد. فيلدها متناظر با فيلدهاي جدول يا كوئري مربوطه مي باشند. يعني آن فيلد اگر Caption نيز داشته باشد ، در هنگام خروجي دوباره نام اصلي فيلد را نمايش مي دهد و نام Caption آن فيلد را نمايش نميدهد.
با توجه به موارد خاص من امكان تغيير در نام فيلد جدول و يا كوئري را ندارم.
آيا امكان دارد كه در گزارش اكسل نام caption فيلدها را نمايش دهد؟

با تشكر

amirzazadeh

دوشنبه 21 تیر 1389, 13:45 عصر

با سلام
من در گزارشم يك كليد دارم كه با فشردن آن ، يك خروجي با فرمت اكسل تهيه مي گردد.
مشكل من در فيلدهاي موجود در اكسل مي باشد. فيلدها متناظر با فيلدهاي جدول يا كوئري مربوطه مي باشند. يعني آن فيلد اگر Caption نيز داشته باشد ، در هنگام خروجي دوباره نام اصلي فيلد را نمايش مي دهد و نام Caption آن فيلد را نمايش نميدهد.
با توجه به موارد خاص من امكان تغيير در نام فيلد جدول و يا كوئري را ندارم.
آيا امكان دارد كه در گزارش اكسل نام caption فيلدها را نمايش دهد؟

با تشكر

سلام
شما ميتونيد بعد از اكسپورت اين كدها رو اضافه كنيد تا عناوين رو به دلخواه تغيير بديد:

Private Sub Command4_Click()
On Error GoTo Err_ModifyExportedExcelFileFormats

Dim xlApp As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlSheet = xlApp.Workbooks.Open("c:\table1.xls").Sheets(1)

With xlApp

.Sheets(1).Cells(1, 1).Value = "نام دلخواه"
.Sheets(1).Cells(1, 2).Value = "نام دلخواه"
.Application.ActiveWorkbook.Save
.Application.ActiveWorkbook.Close
.Quit
End With

Set xlApp = Nothing
Set xlSheet = Nothing

Exit_ModifyExportedExcelFileFormats:
Exit Sub

Err_ModifyExportedExcelFileFormats:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_ModifyExportedExcelFileFormats
End Sub
عبارت قرمز مسير فايل اكسل شما خواهد بود.در اين مثال فرض شده شما تنها دوفيلد در جدولتون داريد.
........................
موفق باشيد

bita_ziba77

دوشنبه 21 تیر 1389, 17:46 عصر

با سلام
با تشكر از ارائه راه حل عالي
ولي من از گزينه Output to در ماكروها در گزارشم استفاده كردم كه پنجره اي باز شده و انواع فرمت ها از جمله اكسل به نمايش در مي ايد و كاربر نيز مي تواند مسير دلخواه جهت ذخيره فايل را انتخاب نمايد ولي در كدهاي ارائه شده توسط شما پيش فرض درايوي مي باشد كه در ابتدا انتخاب شده است (كه در اينجا درايو C مي باشد)
آيا راهكاري وجود دارد كه اينكار (تغيير در فيلدهاي اكسل )با توجه به مسير انتخابي كاربر انجام پذيرد ؟

با تشكر

amirzazadeh

سه شنبه 22 تیر 1389, 09:32 صبح

با سلام
با تشكر از ارائه راه حل عالي
ولي من از گزينه Output to در ماكروها در گزارشم استفاده كردم كه پنجره اي باز شده و انواع فرمت ها از جمله اكسل به نمايش در مي ايد و كاربر نيز مي تواند مسير دلخواه جهت ذخيره فايل را انتخاب نمايد ولي در كدهاي ارائه شده توسط شما پيش فرض درايوي مي باشد كه در ابتدا انتخاب شده است (كه در اينجا درايو C مي باشد)
آيا راهكاري وجود دارد كه اينكار (تغيير در فيلدهاي اكسل )با توجه به مسير انتخابي كاربر انجام پذيرد ؟

با تشكر
سلام
اگر ممكنه نمونه خودتون رو اپلود كنيد.

bita_ziba77

سه شنبه 22 تیر 1389, 09:56 صبح

با سلام
با تشكر از لطفتان
به پيوست فايل مربوطه Upload مي گردد.

با تشكر

amirzazadeh

سه شنبه 22 تیر 1389, 11:29 صبح

با سلام
با تشكر از لطفتان
به پيوست فايل مربوطه Upload مي گردد.

با تشكر
سلام
فايل شما رو تست كردم فقط منبع رو به جدول تغيير دادم در خروجي با فرمت اكسل هم تمامي CAPTION ها درست نمايش داده ميشه.لطفا فايل ضميمه رو ببينيد.

..........................
موفق باشيد