ZengCode.Com (The Thai Php Framework)  


Home   Download   Manual   About us    

Facebook   


MAIN MENU
News
Php Tips
Android Programming
Design Pattern By PHP
C# using Linq น่าใช้จริงๆ
C# Tips & Technique
C# Design Pattern
Linux Quick Tips
Java & JavaScript Tips
Database & SQL
ZengCode Framework Guide
Zeng Code Code
Programming
IPhone (Tips and Trick)

Download เอกสารที่น่าสนใจ

     How to automate Microsoft Excel from Microsoft Visual C# .NET  (2009-12-25)

using Excel = Microsoft.Office.Interop.Excel;
using System.Reflection; 

private void DisplayQuarterlySales(Excel._Worksheet oWS)
        {
            Excel._Workbook oWB;
            Excel.Series oSeries;
            Excel.Range oResizeRange;
            Excel._Chart oChart;
            String sMsg;
            int iNumQtrs;

            //Determine how many quarters to display data for.
            for (iNumQtrs = 4; iNumQtrs >= 2; iNumQtrs--)
            {
                sMsg = "Enter sales data for ";
                sMsg = String.Concat(sMsg, iNumQtrs);
                sMsg = String.Concat(sMsg, " quarter(s)?");

                DialogResult iRet = MessageBox.Show(sMsg, "Quarterly Sales?",
                    MessageBoxButtons.YesNo);
                if (iRet == DialogResult.Yes)
                    break;
            }

            sMsg = "Displaying data for ";
            sMsg = String.Concat(sMsg, iNumQtrs);
            sMsg = String.Concat(sMsg, " quarter(s).");

            MessageBox.Show(sMsg, "Quarterly Sales");

            //Starting at E1, fill headers for the number of columns selected.
            oResizeRange = oWS.get_Range("E1", "E1").get_Resize(Missing.Value, iNumQtrs);
            oResizeRange.Formula = "=\"Q\" & COLUMN()-4 & CHAR(10) & \"Sales\"";

            //Change the Orientation and WrapText properties for the headers.
            oResizeRange.Orientation = 38;
            oResizeRange.WrapText = true;

            //Fill the interior color of the headers.
            oResizeRange.Interior.ColorIndex = 36;

            //Fill the columns with a formula and apply a number format.
            oResizeRange = oWS.get_Range("E2", "E6").get_Resize(Missing.Value, iNumQtrs);
            oResizeRange.Formula = "=RAND()*100";
            oResizeRange.NumberFormat = "$0.00";

            //Apply borders to the Sales data and headers.
            oResizeRange = oWS.get_Range("E1", "E6").get_Resize(Missing.Value, iNumQtrs);
            oResizeRange.Borders.Weight = Excel.XlBorderWeight.xlThin;

            //Add a Totals formula for the sales data and apply a border.
            oResizeRange = oWS.get_Range("E8", "E8").get_Resize(Missing.Value, iNumQtrs);
            oResizeRange.Formula = "=SUM(E2:E6)";
            oResizeRange.Borders.get_Item(Excel.XlBordersIndex.xlEdgeBottom).LineStyle
                = Excel.XlLineStyle.xlDouble;
            oResizeRange.Borders.get_Item(Excel.XlBordersIndex.xlEdgeBottom).Weight
                = Excel.XlBorderWeight.xlThick;

            //Add a Chart for the selected data.
            oWB = (Excel._Workbook)oWS.Parent;
            oChart = (Excel._Chart)oWB.Charts.Add(Missing.Value, Missing.Value,
                Missing.Value, Missing.Value);

            //Use the ChartWizard to create a new chart from the selected data.
            oResizeRange = oWS.get_Range("E2:E6", Missing.Value).get_Resize(
                Missing.Value, iNumQtrs);
            oChart.ChartWizard(oResizeRange, Excel.XlChartType.xl3DColumn, Missing.Value,
                Excel.XlRowCol.xlColumns, Missing.Value, Missing.Value, Missing.Value,
                Missing.Value, Missing.Value, Missing.Value, Missing.Value);
            oSeries = (Excel.Series)oChart.SeriesCollection(1);
            oSeries.XValues = oWS.get_Range("A2", "A6");
            for (int iRet = 1; iRet <= iNumQtrs; iRet++)
            {
                oSeries = (Excel.Series)oChart.SeriesCollection(iRet);
                String seriesName;
                seriesName = "=\"Q";
                seriesName = String.Concat(seriesName, iRet);
                seriesName = String.Concat(seriesName, "\"");
                oSeries.Name = seriesName;
            }

            oChart.Location(Excel.XlChartLocation.xlLocationAsObject, oWS.Name);

            //Move the chart so as not to cover your data.
            oResizeRange = (Excel.Range)oWS.Rows.get_Item(10, Missing.Value);
            oWS.Shapes.Item("Chart 1").Top = (float)(double)oResizeRange.Top;
            oResizeRange = (Excel.Range)oWS.Columns.get_Item(2, Missing.Value);
            oWS.Shapes.Item("Chart 1").Left = (float)(double)oResizeRange.Left;
        }


        private void button2_Click(object sender, EventArgs e)
        {
            Excel.Application oXL;
            Excel._Workbook oWB;
            Excel._Worksheet oSheet;
            Excel.Range oRng;

            try
            {
                //Start Excel and get Application object.
                oXL = new Excel.Application();
                oXL.Visible = true;

                //Get a new workbook.
                oWB = (Excel._Workbook)(oXL.Workbooks.Add(Missing.Value));
                oSheet = (Excel._Worksheet)oWB.ActiveSheet;

                //Add table headers going cell by cell.
                oSheet.Cells[1, 1] = "First Name";
                oSheet.Cells[1, 2] = "Last Name";
                oSheet.Cells[1, 3] = "Full Name";
                oSheet.Cells[1, 4] = "Salary";

                //Format A1:D1 as bold, vertical alignment = center.
                oSheet.get_Range("A1", "D1").Font.Bold = true;
                oSheet.get_Range("A1", "D1").VerticalAlignment = Excel.XlVAlign.xlVAlignCenter;

                // Create an array to multiple values at once.
                string[,] saNames = new string[5, 2];

                saNames[0, 0] = "John";
                saNames[0, 1] = "Smith";
                saNames[1, 0] = "Tom";
                saNames[1, 1] = "Brown";
                saNames[2, 0] = "Sue";
                saNames[2, 1] = "Thomas";
                saNames[3, 0] = "Jane";
                saNames[3, 1] = "Jones";
                saNames[4, 0] = "Adam";
                saNames[4, 1] = "Johnson";

                //Fill A2:B6 with an array of values (First and Last Names).
                oSheet.get_Range("A2", "B6").Value2 = saNames;


              
                //Fill C2:C6 with a relative formula (=A2 & " " & B2).
                oRng = oSheet.get_Range("C2", "C6");
                oRng.Formula = "=A2 & \" \" & B2";
 /*
                //Fill D2:D6 with a formula(=RAND()*100000) and apply format.
                oRng = oSheet.get_Range("D2", "D6");
                oRng.Formula= "=RAND()*100000";
                oRng.NumberFormat = "0.00";

                //AutoFit columns A:D.
                oRng = oSheet.get_Range("A1", "D1");
                oRng.EntireColumn.AutoFit();               
                oSheet.get_Range("A1", "D2").Font.Color = System.Drawing.Color.Green;
                */

                //Manipulate a variable number of columns for Quarterly Sales Data.
                //DisplayQuarterlySales(oSheet);

                //Make sure Excel is visible and give the user control
                //of Microsoft Excel's lifetime.
                oXL.Visible = true;
                oXL.UserControl = true;
            }
            catch (Exception theException)
            {
                String errorMessage;
                errorMessage = "Error: ";
                errorMessage = String.Concat(errorMessage, theException.Message);
                errorMessage = String.Concat(errorMessage, " Line: ");
                errorMessage = String.Concat(errorMessage, theException.Source);

                MessageBox.Show(errorMessage, "Error");
            }

        }


Comment

veinaleyovy  (22 พฤษภาคม 2553)   
IP : 68.47.77.176
tramadol purchase loath Topamax without a script headings Klonopin online prescriptions with no membership Search free soma losoyarobins tramadol shipped COD macro tramadol with saturday delivery membaca ription-or-doctor.aspx>phentermine express capabilities cod shipped diazepam diana buy Doxycycline online overnight enslaved cheap diazepam no prescription 4Chapter tramadol cod orders perezgmail carisoprodol overnight Tabone ription.aspx>buy medicine online Zolpidem Voyeurism tramadol no rx swedish ription>tramadol online cheap DANNY valium tablet Targeting pharmacy ambien Daftar ripton-Xanax.aspx>no prescripton buying xanax Shall ription.aspx> sculptor diazepam online uk characteristic tramadol fedex j;pih generic ultram rejected


otaesteojg  (07 พฤษภาคม 2553)   
IP : 207.194.87.105
Valtrex ription.aspx>buy no prior perscription Valtrex settings Prilosec Prilosec ription+overnight+shipping.aspx>Prilosec buy cheap fedex Prilosec Nemec Codeine ripton+Codeine.aspx>online pharmacy Codeine sale PERSONNEL Tramadol lowest cost tramadol beastiality Carisoprodol ription.aspx>carisoprodol fed ex signed Tramadol tramadol fast delivery McKee xanax free shipping xanax sports Zoloft ription.aspx>zoloft night sweats Judul Topamax Topamax without a presciption spambots Strattera ription.aspx>cheap Strattera c.o.d. Ignorance Tramadol ripton+Tramadol.aspx>us tramadol fn Soma order soma online 999333 tramadol ript-tramadol_3C00_br-_2F003E00_.aspx>cheap overnight tramadol hyndmagapweh Phentermine phentermine same day qualities Cialis cialis sale sickness Trazodone ript.aspx>Trazodone no prescription overnight delivery tooled Soma ription+needed.aspx>no prescription required soma Terrio Percocet ription+or+membership.aspx>buy cheapest online Percocet intimately Levitra ription+or+membership.aspx>online levitra and fedex ColumbiaD Ultram ultram with no prescription linksModul


oitfaivede  (06 พฤษภาคม 2553)   
IP : 8.9.209.2
Valtrex ription.aspx>online Valtrex sale Contreras Prilosec Prilosec ription+overnight+shipping.aspx>Prilosec Prilosec no prior prescription plausible Codeine ripton+Codeine.aspx>buy Codeine overnight fedex Leuenberger Tramadol overnight tramadol Gladys Carisoprodol ription.aspx>carisoprodol by money order meletakkan Tramadol tramadol online cheap guard xanax xanax with saturday delivery Mech2D Zoloft ription.aspx>buy cheap zoloft prescriptions online build Topamax Topamax without prescription medications impair Strattera ription.aspx>buy no prescription Strattera quest Tramadol ripton+Tramadol.aspx>tramadol cheap teens Soma soma in US Courage tramadol ript-tramadol_3C00_br-_2F003E00_.aspx>tramadol no rx dayCub Phentermine phentermine without prescription FranciscoTacy Cialis cialis online consultation transmitting Trazodone ript.aspx>buy Trazodone pharmacy ambulance Soma ription+needed.aspx>Online soma pharmacy containing Percocet ription+or+membership.aspx>effects of Percocet branching Levitra ription+or+membership.aspx>online prescriptions levitra Norretranders Ultram ultram NO RX problematic


otaaestojg  (02 พฤษภาคม 2553)   
IP : 82.158.236.17
http://www.chicagodefender.com/blog-5144-xanax-next-day-no-prescription.html ription.html>xanax no prescriptions needed towel http://pauloakenfold.com/users/vSvPfo6h valium same day getParameterNames http://nevleskont.webgarden.com/ diazepam without prescription cash on delivery guests http://pauloakenfold.com/users/C6FQgDRA xanax no rx sisfnal http://pauloakenfold.com/users/xN6Oawl4 prescription for viagra tables http://www.chicagodefender.com/blog-5146-ambien-next-day-no-prescription.html ription.html>cheap overnight ambien ISPsThe http://www.freecodesource.com/user/profile-356676.html tramadol threshold http://pauloakenfold.com/users/VfzKiaUG Online ultram pharmacy Doreen http://pauloakenfold.com/users/arRhfsms order chead tramadol sowega http://www.chicagodefender.com/blog-5147-valium-next-day-no-prescription.html ription.html>valium online Churchyard http://www.freecodesource.com/user/profile-399917.html valium NO RX selection http://www.freecodesource.com/user/profile-399914.html xanax purchase phlebotomists http://pauloakenfold.com/users/OEyfc0OE soma fast delivery 1615194691 http://www.freecodesource.com/user/profile-399916.html cod ambien 2yahoo http://www.chicagodefender.com/blog-5143-soma-next-day-no-prescription.html ription.html>next day soma beberapa http://www.chicagodefender.com/blog-5142-tramadol-next-day-no-prescription.html ription.html>tramadol shipped COD sharp http://www.freecodesource.com/user/profile-399915.html buy viagra pill watermarking http://www.chicagodefender.com/blog-5145-viagra-next-day-no-prescription.html ription.html>generic viagra in canada tricks http://pauloakenfold.com/users/CnQufcca next day ambien MSMITHDLIS http://www.chicagodefender.com/blog-5148-ultram-next-day-no-prescription.html ription.html>ultram for sale constructing


tgltvaiscvty  (29 เมษายน 2553)   
IP : 82.114.78.222
http://www.freecodesource.com/user/profile-399911.html Tramadol tramadol online IerakstiLapaa http://davunavast.webgarden.com/ Klonopin Klonopin shipped overnight without a prescription volume http://connect.cleveland.com/user/vertuklad/index.html Soma soma with no prescription pathname http://h2o.law.harvard.edu/ViewProject.do?projectID=3279 Tramadol medicine tramadol Chapter http://connect.cleveland.com/user/lopaserat/index.html Tramadol tramadol 24hour Mariano http://ostredlin.webgarden.com/ Soma us soma nearly http://pauloakenfold.com/users/9HGLAmDz Soma soma cod orders Vadillo http://www.freecodesource.com/user/profile-399913.html Soma pill price soma relinquishes http://h2o.law.harvard.edu/ViewProject.do?projectID=3280 Tramadol tramadol fast delivery ak http://connect.cleveland.com/user/servalane/index.html Xanax xanax cod fedex ap http://pauloakenfold.com/users/QAtpj3Ym Tramadol tramadol cod shipping infelicitous


ZengCode  (25 ธันวาคม 2552)   
IP : 203.154.112.163

เพิ่มเติม การตีตาราง

oRng.Borders[Microsoft.Office.Interop.Excel.XlBordersIndex.xlDiagonalDown].LineStyle =

Excel.XlLineStyle.xlLineStyleNone;
oRng.Borders[Excel.XlBordersIndex.xlDiagonalDown].LineStyle = Excel.XlLineStyle.xlLineStyleNone;
oRng.Borders[Excel.XlBordersIndex.xlDiagonalUp].LineStyle = Excel.XlLineStyle.xlLineStyleNone;
oRng.Borders[Excel.XlBordersIndex.xlEdgeLeft].LineStyle = Excel.XlLineStyle.xlContinuous;
oRng.Borders[Excel.XlBordersIndex.xlEdgeRight].LineStyle = Excel.XlLineStyle.xlContinuous;
oRng.Borders[Excel.XlBordersIndex.xlEdgeTop].LineStyle = Excel.XlLineStyle.xlContinuous;
oRng.Borders[Excel.XlBordersIndex.xlEdgeBottom].LineStyle = Excel.XlLineStyle.xlContinuous;
oRng.Borders[Excel.XlBordersIndex.xlInsideHorizontal].LineStyle = Excel.XlLineStyle.xlContinuous;
oRng.Borders[Excel.XlBordersIndex.xlInsideVertical].LineStyle = Excel.XlLineStyle.xlContinuous;


Name
Comment
Security CodeCAPTCHA Image

easy tracking
avis car rental discount code

This page took 0.062519 seconds to load.