vb創(chuàng)建excel表格,合并單元格,生成圖形等操作

1、PrivateSubComm4_Click()OnErrResumeNextCreateExcelTableDimxlAppAsExcel.ApplicationDimxlBookAsExcel.WkbookDimxlSheetAsExcel.WksheetDimxlSheet1AsExcel.WksheetDimiAsIntegertmHourAsStringOnErrResumeNextSetxlApp=Excel.Applicat

2、ionSetxlBook=xlApp.Wkbooks.AddxlBook.ActivateSetxlSheet=xlBook.Wksheets(1)引用第1張工作表xlApp.ActiveSheet.Rows.VerticalAlignment=xlVAlignCenter垂直方向居中xlApp.ActiveSheet.Rows.HizontalAlignment=xlVAlignCenter水平方向居中xlSheet.Name=“實(shí)測(cè)

3、值“SetxlSheet1=xlBook.Wksheets(2)xlSheet1.Name=“t“WithxlSheetFi=2To11.Range(Cells(11)Cells(1i)).Merge合并AK單元格Next.Cells(11).FeCol=RGB(100150255).Cells(11).Font.Size=25設(shè)置行高設(shè)置列寬Fi=1To22.Rows(i).RowHeight=25Next.Range(“A2“).V

4、alue=“輸入電壓(VAC)“.Range(“B2“).Value=“輸入功率(W)“.Range(“C2“).Value=“輸出電壓(V)“.Range(“D2“).Value=“輸出電流mA)“.Range(“E2“).Value=“輸出功率(W)“.Range(“F2“).Value=“紋波電壓(A)“.Range(“G2“).Value=“效率(%)“.Range(“H2“).Value=“過(guò)流點(diǎn)(A)“.Range(“I2“

5、).Value=“初級(jí)到次級(jí)功率損耗(W)“.Range(“J2“).Value=“平均功率%“.Range(“K2“).Value=“需符合CEC標(biāo)準(zhǔn)“電壓值.Range(“A3“).Value=“90“.Range(“A8“).Value=“115“.Range(“A13“).Value=“230“.Range(“A18“).Value=“264“負(fù)載值.Range(“D3“).Value=“0“.Range(“D4“).Value

6、=“14Load“.Range(“D5“).Value=“24Load“.Range(“D6“).Value=“34Load“.Range(“D7“).Value=“FullLoad“.Range(“D8“).Value=“0“.Range(“D9“).Value=“14Load“.Range(“D10“).Value=“24Load“.Range(“D11“).Value=“34Load“.Range(“D12“).Value=“Fu