excellدر vb.net

[solmaz_zm]

سلام به همه دوستان

من کد زیررابرای داشتن خروجی در محیط اکسل دارم:

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 استفاده کردم ولی نشد.
لطفا کمک کنید.

[ghafoori]

چجوری نشد خوب savefiledialoge را showdialoge می کنی و خاصیت filename ان را داخل تابع سیو اکسل قرار می دی