نقل قول نوشته شده توسط safari_m4 مشاهده تاپیک
سلام دوستان جهت خروجی اکسل از محیط کد نویسی چگونه سلولها را fit کنم با اندازه متن یعنی اندازه هر سلول به اندازه متن بزرگ شود و تعداد شیتها را که پیشفرض 3 تا است را مثلا 1 عدد کنم با تشکر
با ()AutoFit محدوده انتخاب شده رو Fit می کنید، مثلا کل خانه های ستون های A الی C رو :


        Dim app As New Microsoft.Office.Interop.Excel.Application

        app.Workbooks.Add(System.Type.Missing)

        Dim w As Microsoft.Office.Interop.Excel.Worksheet = app.ActiveSheet

        w.Range("A1:C1").EntireColumn().AutoFit()

        app.Quit()


با Sheets.Add شیت جدید اضافه می کنید، مثلا 5 تا شیت جدید :


        Dim app As New Microsoft.Office.Interop.Excel.Application

        Dim wb As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Add(System.Type.Missing)

        wb.Sheets.Add(Count:=5)

        app.Quit()