代码有的是来自网络,包括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