vb編程如何新建excel

1. 如何在VB中創建excel，並將其編輯後保存

在VB中啟動一個新的StandardEXE工程，在「工程」菜單的「引用」選項下引用ExcelObjectLibrary然後在Form中添加一個命令按鈕cmdExcel最後在窗體中輸入如下代碼：
DimzsbexcelAsExcel.Application
PrivateSubcmdExcel_Click()
Setzsbexcel=NewExcel.Application
zsbexcel.Visible=True
zsbexcel.SheetsInNewWorkbook=1
Setzsbworkbook=zsbexcel.Workbooks.Add
Withzsbexcel.ActiveSheet.Range("A2:C9").Borders'邊框設置
.LineStyle=xlBorderLineStyleContinuous
.Weight=xlThin
.ColorIndex=1
EndWith
Withzsbexcel.ActiveSheet.Range("A3:C9").Font'字體設置
.Size=14
.Bold=True
.Italic=True
.ColorIndex=3
EndWith
zsbexcel.ActiveSheet.Rows.HorizontalAlignment=
xlVAlignCenter'水平居中
zsbexcel.ActiveSheet.Rows.VerticalAlignment=
xlVAlignCenter'垂直居中
Withzsbexcel.ActiveSheet
.Cells(1,2).Value="100"
.Cells(2,2).Value="200"
.Cells(3,2).Value="=SUM(B1:B2)"
.Cells(1,3).Value="中國人民解放軍"
.Range("A3:A9")="50"
EndWith
zsbexcel.ActiveSheet.PageSetup.Orientation=xlPortrait'
xlLandscape
zsbexcel.ActiveSheet.PageSetup.PaperSize=xlPaperA4
zsbexcel.ActiveSheet.PrintOut
zsbexcel.DisplayAlerts=False
zsbexcel.Quit
zsbexcel.DisplayAlerts=True
Setzsbexcel=Nothing

2. VB怎麼添加excel的工作表

用VBA在excel中添加一個工作表並且對其命名的實現方法和操作步驟如下：

1、首先，在Excel中按快捷鍵「Alt + F11」，如下圖所示。