اون تاپیک هم خروجی اکسل داره از ساب فرم.
ضمنا این تاپیک هم هست .
نمونه فایل
برای خروجی به اکسل چهار راه دارید .
یکی طبق نمونه فوق
......................
اول کپی پیست
ابتدا با کلیک روی باتن به ساب فرم فوکوس میشه
بعدمتن موجود درساب فرم کپی میشه و
بعد یک فایل اکسل ایجاد میشه
بعد کل متن کپی شده به اکسل پیست میشه.
ادامه کدها مربوط به تنظیم فونت و .. فایل اکسل هست که به صورت دستی هم در خود اکسل انجام میشه
............................
روش دوم .
اگر ساب فرم به یک کوئری متصل هست
یک باتن بگذارید جهت ارسال کوئری به اکسل
DoCmd.OutputTo acOutputQuery, "QueryName", acFormatXLS, "query.xls", True
بهترین راه ارسال کوئری به اکسل هست .
...........................
روش سوم کد برای ارسال ساب فرم مستقیم به اکسل با این کد
DoCmd.OutputTo acOutputForm, Me.Form.Name, acFormatXLS, "test.xls", True
..................
روش چهارم
استفاده از کد بیسیک جهت ارسال رکورد به رکورد از ساب فرم به اکسل
Private Sub Command0_Click()
If Me.Dirty Then Me.Dirty = False
Dim rsClone As DAO.Recordset
Set rsClone = Me.SUBFORM_NAME.Form.RecordsetClone
If rsClone.EOF Then
MsgBox "No records found."
Set rsClone = Nothing
Exit Sub
End If
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Add
.Sheets("Sheet1").Select
.ActiveSheet.Range("A2").CopyFromRecordset rsClone
For i = 1 To rsClone.Fields.Count
xlApp.ActiveSheet.Cells(1, i).Value = rsClone.Fields(i - 1).Name
Next i
xlApp.Cells.EntireColumn.AutoFit
End With
End Sub
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول