نوشتن در برنامه Execl

[zehs_sha]

بچه ها من می خواهم خروجی برنامه خود را بر روی صفحه گسترده Excel بفرستم چگونه می توانم

[شفیعی]

Set EXCELAPP = GetObject("EXCEL.Application")
If EXCELAPP <> "Microsoft Excel" Then
Set EXCELAPP = CreateObject("EXCEL.Application")
EXCELAPP.WORKBOOKS.Add
End If
EXCELAPP.Cells(1, 5) = "120"
EXCELAPP.Cells(2, 5) = "20"

[mr_esmaily]

سلام
خسته نباشید.
من وقتی کد بالا رو اجرا میکنم میگه:
File name or class name not found during Automation operation
:?
با تشکر قبلی. :wink:

[BehnamPro]

از این کد استفاده کنید:


Dim obExcelApp As Object
Dim obworkSheet As Object

On Error Resume Next

Set obExcelApp = GetObject("EXCEL.Application")
If Err.Number <> 0 Then
Set obExcelApp = CreateObject("Excel.Application")
End If

و برای ذخیره کردن کار:


obExcelApp.Save (Path)

:)

[علیا]

فایلی که برات میفرستم را اجرا کن خیلی به شما کمک میکنه