VBA陈旧的代码:在VBA中操作Excel内容二

代码有的是来自网络，包括csdn。有的是自己的。呵呵。

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
dim XXX
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing

set xlBook=xlApp.WorkBooks.Open("C:/Templet/Table.xls")  '打开你的excel
msgbox xlBook.Worksheets.Count  '这就是Excel里的sheet个数
'XXX="sheet1" or XXX="sheet2"  or XXX=1 or XXX=2 ..
XXX=2
Set xlSheet = xlBook.Worksheets(XXX) '这里XXX就是你要指定的某个sheet可以是sheet的名字:默认是"sheet1"，"sheet2","sheet3"...也可以是数值:1，2，3...
xlSheet.Activate
'这里是取第二个sheet为当前活动的sheet表

================================================
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet         
    xlApp.Workbooks.Add
    Set xlBook = xlApp.Workbooks(1)
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Activate  
xlSheet.Columns(1).ColumnWidth = 80  '宽为80
xlSheet.Columns(2).ColumnWidth = 80
xlSheet.Columns(3).ColumnWidth = 80
xlSheet.Rows(2).WrapText = True '第2行的单元格为自动换行
xlSheet.Rows(2).HorizontalAlignment =1  'Horizontal: 1: General 2: left 3: center 4 :right
xlSheet.Rows(2).VerticalAlignment = 2   'Vertical: Top

xlApp.ActiveWorkbook.SaveAs "C:/abc.xls"
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
============================

Microsoft Visual Basic for Applications 不提供方法来确定总页数打印工作表中。
然而, 您可使用 ExecuteExcel4Macro 方法来使用 GET.DOCUMENT(50) 宏工作表函数可以返回将打印工作表上总页数。
MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
        " pages will be printed."
=========
确定打印的页数(HPageBreaks属性与VPageBreaks属性)
Sub PageCount()
  Dim i As Long
  i = ActiveSheet.HPageBreaks.Count + 1
  MsgBox "当前工作表共" & i & "页."
End Sub
===========
HPageBreak.count获得页数
ActiveSheet.HPageBreaks(HBreakIndex).Location.Row 获得该页分页符号所在的行

=====

EXCEL中怎么用程序来控制单元格的颜色。
Private Sub Command1_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
   
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
    '设置单元格背景色
    xlapp.Range("A1").Select
    With xlapp.Selection.Interior
        .ColorIndex = 46
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
    '设置单元格中文字字体颜色等属性
    xlapp.Range("A1").Select
    xlapp.ActiveCell.FormulaR1C1 = "asdf"
    With xlapp.ActiveCell.Characters(Start:=1, Length:=4).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 8
    End With
    xlapp.Visible = True
End Sub