Question

如何在VB中创建excel，并将其编辑后保存

Answer 1

在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