PDA

View Full Version : سوال: درخواست کمک برای ذخیره دیتا در اکسل Excel



SANBOR
دوشنبه 13 خرداد 1392, 19:02 عصر
سلام
دوستان من خیلی سی شارپ بلد نیست!
یک کدی از اینترنت پیدا کردم که اطلاعات ما را از سی شارپ میگیرد و بعد ان را درون اکسل میریزد و سپس برای ما یک منحنی میکشد!
حالا من چند تا مشکل دارم!
من میخواهم که دو ستون داشته باشم به نام های ولتاژ و زمان
سپس میخواهم زمان اول رو برای من صفر بنویسه و ولتاژ اولیه را جلویش بنویسد سپس همینجور از تابع ولتاژ ما اطلاعات بگیرد و در ردیف های بعدی بریزد مثلا در ردیف دوم میشود 100 میلی ثانیه و ولتاژ 10 ولت و همینجور به ردیف ها اضافه بشه!
مثلا ما به اندازه 10 ثانیه اطلاعات رو برداشتیم مثلا شده 1000 ردیف حالا بیاید برای ما منحنی ولتاژ و ثانیه را برای ما بکشد.
کدی که پیدا کردم



private void ExportExcel() {


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] = "زمان";
oSheet.Cells[1, 2] = "ولتاژ";


//Format A1:D1 as bold, vertical alignment = center.
oSheet.get_Range("A1", "B1").Font.Bold = true;
oSheet.get_Range("A1", "B1").Font.Name = "B Koodak";
oSheet.get_Range("A1", "B1").VerticalAlignment = Excel.XlVAlign.xlVAlignCenter;
oSheet.get_Range("A1", "B1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;


// 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();


//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");
}
}


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.xlLineMarkers, 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.xlLocationAs Object, 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("Voltage Chart").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;
}




سایتی که ازش گرفتم

http://support.microsoft.com/kb/302084

ممنون میشم کمکم کنید

SANBOR
سه شنبه 14 خرداد 1392, 16:15 عصر
لطفا کمک کنید
خواهش میکنم