View Full Version : نوشتن در برنامه Execl
zehs_sha
دوشنبه 06 بهمن 1382, 15:42 عصر
بچه ها من می خواهم خروجی برنامه خود را بر روی صفحه گسترده Excel بفرستم چگونه می توانم
شفیعی
جمعه 10 بهمن 1382, 00:21 صبح
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
جمعه 10 بهمن 1382, 22:37 عصر
سلام
خسته نباشید.
من وقتی کد بالا رو اجرا میکنم میگه:
File name or class name not found during Automation operation
:?
با تشکر قبلی. :wink:
BehnamPro
سه شنبه 14 بهمن 1382, 21:35 عصر
از این کد استفاده کنید:
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)
:)
علیا
چهارشنبه 15 بهمن 1382, 19:04 عصر
فایلی که برات میفرستم را اجرا کن خیلی به شما کمک میکنه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.