求助Excel的问题

[AskerX]

请问
1)如何设置Excel打开后首先显示的Sheet?比如一般打开后默认的是sheet1显示在上面，现在用什么方法可以让Sheet2打开先显示？
2)如何设置Sheet中某一列的单元个格式中数字为文本？因为如果不设置则00019就变成了19,它会隐藏掉0的。

谢谢帮忙，万分感谢！！！

[KK4]

1.建立得sheet名稱為sheet2
2.在你獲得的數據前加上'

[mjzcyber]

可以考虑在宏中实现。

[dongbeiren]

1.
Dim xlApp As New Excel.Application()
xlApp.Visible = True
Dim xlbook2 As Excel.Workbook
Dim xlsheet2 As Excel.Worksheet
xlbook2 = xlApp.Workbooks.Open("d:\xxx.xls")
'xlbook2 = xlApp.Workbooks.Add()
Dim i As Integer = xlbook2.Worksheets.Count
Dim k As Integer
For k = 1 To i
If xlbook2.Sheets(k).Name = "Sheet2" Then
xlbook2.Sheets(k).select()
End If
Next

2.
xlbook2.sheet(2).Range("F3").Select
xlapp.Selection.NumberFormatLocal = "@"