请高手帮忙把一段Excel中的VAB语言转成VB语言

Sub 分析()
Rows("5:5").Select

Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
Application.DisplayFormulaBar = False
Range("BB5").Select
ActiveCell.FormulaR1C1 = "指南针"
Range("BB6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-27]="""",IF(DATEDIF(RC[-49],日期!R1C2,""m"")>12,""结果1"",""结果2""),""结果3"")"
Range("BA6:BB6").Select
Selection.AutoFill Destination:=Range("BA6:BB2000")
If Range("B2001") <> "" Then
Range("BA2000:BB2000").Select
Selection.AutoFill Destination:=Range("BA2000:BB4000")
End If

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add '新建EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets(1) '设置活动表

With xlSheet
.Range(.Cells(4, 1), .Cells(4, 19)).Borders.LineStyle = xlContinuous '设置第4行1-19列 边框为是实线
.Range(.Cells(1, 1), .Cells(1, 19)).HorizontalAlignment = 3 ' xlCenter '水平
.Range(Cells(1, 1), Cells(1, 19)).Merge '合并列
.Range("A1:S1").MergeCells = True
.Range("A2:S2").MergeCells = True

上面是实例
复制、设置公式什么的，你自己研究吧

End With

xlBook.Close
xlApp.quit
Set xlApp = Nothing

下面给你些资料处理你的问题：
' 1．创建Excel对象
' eole = CreateObject(′Excel.application′)
' 　　2．添加新工作簿
' eole.Workbooks.Add
' 　　3．设置第3个工作表为激活工作表
' eole.Worksheets(″sheet3″).Activate
' 　　4．打开指定工作簿
' 　　eole.Workbooks.Open(″c:/temp/ll.xls″)
' 　　5．显示Excel窗口
' 　　eole.visible=.t.
' 　　6．更改Excel标题栏
' 　　eole.Caption=″VB应用程序调用Microsoft Excel″
' 　　7．给单元格赋值
' eole.Cells(1, 4).value = XM(XM为数据库字段名)
' 　　8．设置指定列的宽度(单位：字符个数)
' eole.ActiveSheet.Columns(1).ColumnWidth = 5
' 　　9．设置指定行的高度(单位：磅)
' eole.ActiveSheet.Rows(1).RowHeight = 1 / 0.035
' 　　(设定行高为1厘米，1磅=0.035厘米)
' 　　10．在第18行之前插入分页符
' eole.Worksheets(″Sheet1″).Rows(18).PageBreak = 1
' 　　11．在第4列之前删除分页符
' eole.ActiveSheet.Columns(4).PageBreak = 0
' 　　12．指定边框线宽度(Borders参数如下)
' 　　ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
' 　　13．设置四个边框线条的类型
' 　　eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1
' 　　(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
' 　　14．设置页眉
' eole.ActiveSheet.PageSetup.CenterHeader = ″报表1″
' 　　15．设置页脚
' 　　eole.ActiveSheet.PageSetup.CenterFooter=″第＆P页″
' 　　16．设置页眉到顶端边距为2厘米
' eole.ActiveSheet.PageSetup.HeaderMargin = 2 / 0.035
' 　　17．设置页脚到底边距为3厘米
' eole.ActiveSheet.PageSetup.FooterMargin = 3 / 0.035
' 　　18．设置顶边距为2厘米
' eole.ActiveSheet.PageSetup.TopMargin = 2 / 0.035
' 　　19．设置底边距为4厘米
' eole.ActiveSheet.PageSetup.BottomMargin = 4 / 0.035
' 　　20．设置左边距为2厘米
' veole.ActiveSheet.PageSetup.LeftMargin = 2 / 0.035
' 　　21．设置右边距为2厘米
' eole.ActiveSheet.PageSetup.RightMargin = 2 / 0.035
' 　　22．设置页面水平居中
' 　　eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
' 　　23．设置页面垂直居中
' 　　eole.ActiveSheet.PageSetup.CenterVertically=.t.
' 　　24．设置页面纸张大小(1－窄行8511 39－宽行1411)
' eole.ActiveSheet.PageSetup.PaperSize = 1
' 　　25．打印单元格网线
' 　　eole.ActiveSheet.PageSetup.PrintGridlines=.t.
' 　　26．拷贝整个工作表
' eole.ActiveSheet.UsedRange.Copy
' 　　27．拷贝指定区域
' 　　eole.ActiveSheet.Range(″A1:E2″).Copy
' 　　28．粘贴
' eole.Worksheet(″Sheet2″).Range(″A1″).PasteSpecial
' 　　29．在第2行之前插入一行
' eole.ActiveSheet.Rows(2).Insert
' 　　30．在第2列之前插入一列
' eole.ActiveSheet.Columns(2).Insert
' 　　31．设置字体
' eole.ActiveSheet.Cells(2, 1).Font.Name = ″黑体″
' 　　32．设置字体大小
' eole.ActiveSheet.Cells(1, 1).Font.Size = 25
' 　　33．设置字体为斜体
' 　　eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
' 　　34．设置整列字体为粗体
' 　　eole.ActiveSheet.Columns(1).Font.Bold=.t.
' 　　35．清除单元格公式
' eole.ActiveSheet.Cells(1, 4).ClearContents
' 　　36．打印预览工作表
' eole.ActiveSheet.PrintPreview
' 　　37．打印输出工作表
' eole.ActiveSheet.PrintOut
' 　　38．工作表另存为
' 　　eole.ActiveWorkbook.SaveAs(″c:/temp/22.xls″)
' 　　39．放弃存盘
' 　　eole.ActiveWorkbook.saved=.t.
' 　　40．关闭工作簿
' eole.Workbooks.Close
' 　　41．退出Excel
' eole.quit

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f87psvpp742q8s48f7q.html