VB讀取EXCEL

文章來源 ptt

開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