VB操作excel 格式设置及打印页面设置（精简）

    langue：VB
    date:2020-04-02

Set ExcelApp = CreateObject("Excel.Application")             ’创建资源，建立连接
Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm")
Set ExcelSheet = ExcelBook.Worksheets(1)     
With ExcelSheet
	.Range("B" & i) = "如何写内容"
	'.Range("B7:G38") ="选择范围"
	ExcelSheet.Range("G" & i).Select              '选择单元格范围
	ExcelApp.Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"   '自定义日期格式
	ExcelApp.Selection.NumberFormatLocal = "@"         '文本格式
	.Range("G" & i) = "相信我，这里的内容马上就要变成 仿宋 14size 加粗 了"
	ExcelApp.Selection.Font.Name = "仿宋"
	ExcelApp.Selection.Font.Size = 14
	ExcelApp.Selection.Font.Bold = True
		
	ExcelSheet.PageSetup.PrintArea = "$A$1:$H$39"          '选择打印范围，开始打印页面设置
	ExcelSheet.PageSetup.CenterHorizontally = 2 / 0.035    '水平居中
	ExcelSheet.PageSetup.CenterVertically = 2 / 0.035      '垂直居中
	ExcelSheet.PageSetup.Zoom = False              '缩放大小0-100， 这里不使用它
	ExcelSheet.PageSetup.FitToPagesWide = 1        '调整内容至1页宽
	ExcelSheet.PageSetup.FitToPagesTall = 1        '调整内容至1页高
End With
ExcelBook.Save
ExcelBook.Close
Set ExcelSheet = Nothing           ‘释放内存，归还资源，这很重要
Set ExcelBook = Nothing
Set ExcelApp = Nothing