1、Private Sub Command4_Click()On Error Resume NextI!Create Excel TableDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim xlSheet1 As Excel.WorksheetDim i As Integer, tmHour As StringI!On Error Resume NextI!Set xlApp = Excel.ApplicationSet xlBook = xlApp.Workboo

2、ks.AddxlBook.ActivateSet xlSheet = xlBook.Worksheets(1) 引用第1 張工作表xlApp.ActiveSheet.Rows.VerticalAlignment =xlVAlignCenter ”唾直方向居中xlApp.ActiveSheet.Rows.HorizontalAlignment=xlVAlignCenter水平方向居中xlSheet.Name =實測值Set xlSheet1 = xlBook.Worksheets(2)xlSheet1.Name = ChartWith xlSheet1 / 10For i = 2 To 11.R

3、ange(Cells(1, 1), Cells(1, i),Merge合并 A-K單元格 Next.Cells(1, 1).ForeColor = RGB(100, 150, 255).Cells(1, 1).Font.Size = 25設(shè)置行高設(shè)置列寬For i = 1 To 22.Rows(i).RowHeight = 25NextFor i = 1 To 11.Columns(i).ColumnWidth = 15Next合并單元格For i = 3 To 22If i 8 Then單元格單元格框色.Range(Cells(3, 1), Cells(i, 1),Merge ”“皿於并 A

4、3-A7.Range(Cells(3, 8), Cells(i, 8),Merge合并 H3-H7ElseIf i 13 Then.Range(Cells(8, 1), Cells(i, 1),Merge.Range(Cells(8, 8), Cells(i, 8),Merge2 / 10Elself i 18 Then.Range(Cells(13, 1), Cells(i, 1),Merge.Range(Cells(13, 8), Cells(i, 8),MergeElseIf i 23 Then.Range(Cells(18, 1), Cells(i, 1),Merge.Range(Ce

5、lls(18, 8), Cells(i, 8),MergeEnd IfNext .Range(A1,K22).Borders.LineStyle=xlContinuous單元格邊.Range(A1, K22).Borders.Color = vbBlue邊框顏色.Range(A1,K22).Interior.Color =RGB(100, 180, 0) “區(qū)域背景.Range(A1).Value = iWatt項目”.Range(A1).Font.Color = vbRed設(shè)置字體顏色.Range(A1).Font.Name =楷書 設(shè)置字體字型.Range(A1).Font.Size =

6、30設(shè)置字體字號.Range(A2).Value =輸入電壓(VAC)”.Range(B2).Value =輸入功率(W)”.Range(C2).Value =輸出電壓(V).Range(D2).Value =輸出電流 mA).Range(E2).Value =輸出功率(W)”3 / 10.Range(F2).Value =紋波電壓(A).Range(G2).Value =效率()”.Range(H2).Value =時流點(A).Range(I2).Value =初級到次級功率損耗(W)”.Range(J2).Value =平均功率 %.Range(K2).Value =需符合 CECfe準(zhǔn)

7、” 電壓值.Range(A3).Value = 90.Range(A8).Value = 115.Range(A13).Value = 230.Range(A18).Value = 264I!負(fù)載值.Range(D3).Value = 0.Range(D4).Value = 1/4 Load.Range(D5).Value = 2/4 Load.Range(D6).Value = 3/4 Load.Range(D7).Value = Full Load.Range(D8).Value = 0.Range(D9).Value = 1/4 Load.Range(D10).Value = 2/4 L

8、oad.Range(D11).Value = 3/4 Load4 / 10.Range(D12).Value = Full Load.Range(D13).Vaue = 0.Range(D14).Vaue = 1/4 Load.Range(D15).Vaue = 2/4 Load.Range(D16).Vaue = 3/4 Load.Range(D17).Vaue = Full Load.Range(D18).Vaue = 0.Range(D19).Vaue = 1/4 Load.Range(D20).Vaue = 2/4 Load.Range(D21).Vaue = 3/4 Load.Ran

9、ge(D22).Vaue = Full LoadEnd WithtmHour = - & Hour(Time)tmHour = tmHour & - & Minute(Time)tmHour = tmHour & - & Second(Time)xlApp.ActiveWorkbook.SaveAsApp.Path&Format(Date,dddd,mmmm, yyyy)& tmHour + ”.xlsxlApp.Workbooks.ClosexlApp.QuitSet xlApp = Nothing 釋放引用I!寫入數(shù)據(jù)Dim j, LengthTXT, k, Num, NEXCEL As

10、Integer5 / 10Dim StrTxt As StringOn Error Resume NextI!計算數(shù)組的圍數(shù)NUMLengthTXT = Len(Text1.Text)StrTxt = Text1.TextNum = 1For i = 1 To LengthTXTIf Mid(Text1.Text, i, 1) = , ThenNum = Num + 1End IfNextReDim StrDataArray(Num)重定義圍數(shù)I! 賦值給數(shù)組StrDataArrayIf Num = 1 ThenStrDataArray(Num) = StrTxtElseFor i = 1 T

11、o LengthTXTStrData = StrData & Mid(StrTxt, i, 1)k = k + 1If Mid(StrTxt, i, 1) = , Then6 / 10StrDataArray(j) = Left(StrData, k - 1)StrData =k = 0End IfStrDataArray(Num) = StrDataNextEnd IfcheckStrDataArray(i)Fori = 1 To NumMsgBox StrDataArray(i) & & iNextI!數(shù)值分段存儲到數(shù)組，每組為一個實測值Dim TowArray() As StringDi

12、m WS, N As IntegerWS = Num 4圍數(shù)ReDim TowArray(WS, 4)For i = 1 To Num - 2N = i 4For j = 1 To 4If i 4 = 0 Then7 / 10TowArray(N + 1, j) = StrDataArray(j + 4 * N)End IfNextNextcheckTowArray(N+ 1, j)For i = 1 To WSMsgBoxTowArray(i, 1) &TowArray(i, 2) & TowArray(i, 3) & TowArray(i,4)Next 數(shù)值轉(zhuǎn)換”第4個字節(jié)轉(zhuǎn)換為2進制Re

13、Dim ByteDataString(WS)For i = 1 To Num 4MsgBox TowArray(i, 4) MsgBox CStr(TowArray(i, 4)ByteDataString(i) = HexToByte(CStr(TowArray(i, 4) ”轉(zhuǎn)換為 2 進制,8 位 MsgBox ByteDataString(i) & & iNextI!打開Excel文件!Dim filename As StringWith CommonDialog1.DialogTitle =打開 Excel文件”.Filter = (Excel)*.xls| *.xls8 / 10.S

14、howOpen filename = .filename MsgBox filename End WithI!Dim xllApp As Excel.ApplicationDim xllBook As Excel.WorkbookDim xllSheet As Excel.WorksheetDim xllSheet1 As Excel.WorksheetDim StrRow As StringDim i As IntegerSet xllApp = CreateObject(Excel.Application)Set xllBook = xllApp.Workbooks.Open(filena

15、me)Set xllSheet = xllBook.Worksheets(1)弓 I 用第 1 張工作表Set xllSheet1 = xllBook.Worksheets(2)I!將數(shù)據(jù)寫入到Excel單元格中With xllSheetFor i = 1 To WSNEXCEL = iStrRow = B & CStr(i + 2)MsgBox ByteDataString(i) & StrRow9 / 10.Range(StrRow).Value=ValueOfData(ByteDataString(i),NEXCEL設(shè)置一個返回函數(shù)NextEnd WithSet ct = xllApp.Worksheets(Chart).ChartObjects.Add(100, 40, 300, 350)f 入 圖形”位置(10, 40)為圖形位置，(220, 120)為圖形的大小ct.Chart.ChartType=xlLineStackedxlColumnClustered測值塊狀圖xl3DColumnStacked立I!直修圈xl3DPie 圖形類型為餅圖ct.Chart.SetSourceDataPlotBy:=xlColumnsWith ct.Chart.HasTitle = True.ChartTitle.Characters.Font.Size = 20.Chart