خروجي ليست باكس به اكسل

[sabaie]

سلام
كمك در باره خروجي از ليست باكس به اكسل

[sabaie]

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

[ddavood41]

برادر یه دکمه ایجاد کن واز روی حالت دیزاین روی on click یه ماکرو ایجاد کن export withformattingبزارش واکسل رو انتخاب کن

[sabaie]

سلام ممنون
اينجوري نمي شه من محتويات ليست باكس رو مي خواهم

[ddavood41]

جهت دادن خروجی اکسل :


با دو دستور می توانید این کار را انجام بدهید.


DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "TableName", "C:\Eee.xls"

DoCmd.OutputTo acOutputTable, "ObjectName", acFormatXLS, "C:\EEEEE.xls"


روش دوم بهتره ، چون می تونید هم کووری و هم جدول و هم ریپورت و غیره ارسال کنید
برای اطلاعات بیشتر کلمه Output را در قسمت برنامه نویسی انتخاب کنید و دکمه F1 را بزنید تا Help مربوط به همه موارد را ببینید.


در صورتی که مسیر داده نشود ، خود برنامه از شما سوال خواهد کرد.


این مثال در مورد خروجی یک گزارش است:





Private Sub Command37_Click()


On Error GoTo Err_Command37_Click





Dim stDocName As String





stDocName = "rpt_Wage"


DoCmd.OutputTo acReport, stDocName, acFormatXLS





Exit_Command37_Click:


Exit Sub





Err_Command37_Click:


MsgBox Err.Description


Resume Exit_Command37_Click





End Sub


در مثال زیر خروجی از یک جدول را بررسی کرده ایم:


Private Sub Command37_Click()


On Error GoTo Err_Command37_Click





Dim stDocName As String





stDocName = "tbl__LCSS_Part"


DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS





Exit_Command37_Click:


Exit Sub





Err_Command37_Click:


MsgBox Err.Description


Resume Exit_Command37_Click





End Sub

[ddavood41]

اگر در لیست باکس اطلاعات خالی باشد ، موقع تبدیل به تکست باکس مقدار نول را میدهد.

اگر مقدار عددی روی Double تنظیم نشود ، آنگاه مقادیر اعشاری را ذخیره نمیکند.