※ 引述《bb7 (MEMS)》之铭言： : 又来麻烦各位大大了... : 我现在能把讯号(温度值)正确的传送到text里面 : 35.95 35.11 37.5 38.2 : 36.05 34.69 37.82 38.62 : 因为是作阵列式的..目前是作4颗 : 那如果要把上面两排数值弄到EXCEL去并且作出温度分布情形的话 : 请问要如何做呢??对於要传道EXCEL里面去世毫无概念... : 还麻烦各位大大们为我解答一下...谢谢 开excel 工具功能表-巨集-录制新巨集-确定 (开始记录你的操作) 档案-开新档案 输入几笔数值(温度值) 插入功能表-图表-选择你要的图表样式-数值范围-特殊设定 工具功能表-巨集-停止录制 工具功能表-巨集-Visual Basic编辑器 模组-Module1 把程式码复制到 VB6 里 在 VB6 里，专案功能表-设定引用项目-选择 Microsoft Excel 10.0 Object Library 确定 范例(VB6的写法跟 Excel 录制下来的内容会有些差异)： Public Sub ExportToExcel() '建立Excel Dim excl As New Excel.Application Dim wb As Excel.Workbook, ws As Excel.Worksheet, ap As Excel.Application Set wb = excl.Workbooks.Add If wb.Worksheets.Count = 0 Then Set ws = wb.Worksheets.Add Else Set ws = wb.Worksheets(1) End If Set ap = ws.Application '将资料(温度值)置入储存格中(自己视需求修改此段程式码@_@) ap.ActiveCell.FormulaR1C1 = "33" ap.Range("B1").Select ap.ActiveCell.FormulaR1C1 = "44" ap.Range("B2").Select '加入图表(自己视需求修改此段程式码@_@) Dim ct As Chart ws.Application.Charts.Add Set ct = ws.Application.ActiveChart ct.ChartType = xlLine ct.SetSourceData ws.Application.Sheets("Sheet1").Range("A1:D1"), xlRows ct.Location xlLocationAsObject, "Sheet1" With ws.Application.ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ws.Application.Range("A1").Select '储存档案(档案已存在会覆盖档案)，并结束Excel ap.DisplayAlerts = False ws.SaveAs "c:\temp\xd.xls" wb.Close excl.Quit End Sub -- ▃▅▇▆▄ ▆▂▃ ` 逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄* ◢ ▂█▄▇▅▂▌. 我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 218.184.116.37