Re: [VB6 ] 如何把text檔裡面的資料弄到EXCEL去??

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/09/10 09:39)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串2/6 (看更多)

※ 引述《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