solmaz_zm
دوشنبه 30 مهر 1386, 17:06 عصر
سلام به همه دوستان
من کد زیررابرای داشتن خروجی در محیط اکسل دارم:
dim xlapp as excel.application
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet
xlapp= ctype (createobject ("excel.application"),excel.application)
xlbook= ctype (xlapp.workbooks.add, excel.workbook)
xlsheet = ctype (xlbook.worksheets(1),excel.worksheet)
xlsheet.cells (1,2)=5000
xlsheet.cells (2,2)=75
xlsheet.cells (3,1)="total"
xlsheet.range("B3").formula= "=sum (R1C2:R2C2)"
xlsheet.range ("B3").font.bold=true
xlsheet.application.visible=true
xlsheet.saveas ("d:\mytest.xls")
می خوام اگه بشه مسیر ذخیره این فایل اکسل و اسم فایل را کاربر انتخاب کنه،البته من از diologsavefile استفاده کردم ولی نشد.
لطفا کمک کنید.
من کد زیررابرای داشتن خروجی در محیط اکسل دارم:
dim xlapp as excel.application
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet
xlapp= ctype (createobject ("excel.application"),excel.application)
xlbook= ctype (xlapp.workbooks.add, excel.workbook)
xlsheet = ctype (xlbook.worksheets(1),excel.worksheet)
xlsheet.cells (1,2)=5000
xlsheet.cells (2,2)=75
xlsheet.cells (3,1)="total"
xlsheet.range("B3").formula= "=sum (R1C2:R2C2)"
xlsheet.range ("B3").font.bold=true
xlsheet.application.visible=true
xlsheet.saveas ("d:\mytest.xls")
می خوام اگه بشه مسیر ذخیره این فایل اکسل و اسم فایل را کاربر انتخاب کنه،البته من از diologsavefile استفاده کردم ولی نشد.
لطفا کمک کنید.