Excel导出xml简单示例

Sub convert2XML()
Dim num As Integer
Dim col As Integer

Dim sheet As Worksheet
Dim trange As range
Dim tmpRow As range

Dim i As Integer





num = ActiveSheet.UsedRange.Rows.Count
'MsgBox ("num=" & num)

col = ActiveSheet.UsedRange.Columns.Count

'MsgBox ("col=" & col)

'num3 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
'MsgBox ("num3" & num3)

num4 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'MsgBox ("num4" & num4)

'num5 = Application.CountA(ActiveSheet.Range("A:A"))
'MsgBox ("num5" & num5)
MsgBox (Workbooks("demo.xls").Worksheets.Count)