[Excel] 新增/刪除 工作表

一開始不會用資料庫的時候我就直接用 Excel 來當資料庫
想要快速的編輯 Excel 的話可以參考一下唷！






首先呢要加入參考
進入專案點「My Project」後找

Microsoft Excel 14.0 Object Library
Microsoft Office 14.0 Object Library

這兩個檔案加入參考

如果沒有安裝的話可以在下面下載

檔案名稱：Microsoft Office 2010 的 PIA

適用平台：VB 2010

儲存空間：Microsoft 官方網站

下載連接：下載點  （如何下載？）

接著需要在程式碼最上面引用

Imports Microsoft.Office.Interop

宣告變數

Dim app As New Excel.Application

Dim worksheet As Excel.Worksheet

Dim workbook As Excel.Workbook

建立新的 Excel

workbook = app.Workbooks.Add() '建立新的 Excel

workbook.Close(True, "儲存路徑") '指定要儲存的位置

app.Quit() '結束操作

新增工作表

workbook = app.Workbooks.Open("檔案路徑") '開啟檔案

worksheet = workbook.Worksheets.Add()'增加一張工作表

worksheet.Name = "string" '工作表的名稱

workbook.Save() '儲存檔案

workbook.Close() '關閉檔案

app.Quit() '結束操作

VB 說明

1、預設位置是最前面，如果要放在最後可以更改上面第二個程式碼

worksheet = workbook.Worksheets.Add(After:=workbook.Sheets(workbook.Sheets.Count))

2、如果要變成刪除，就把二三行改成下面程式碼

worksheet = workbook.Worksheets("工作表名稱") '讀取其中一張工作表

worksheet.Delete() '刪除工作表