2017年9月23日 星期六

[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() '刪除工作表




沒有留言:

張貼留言