求助Excel的问题

Question

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

Answer 1

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
        Next2.
xlbook2.sheet(2).Range("F3").Select
xlapp.Selection.NumberFormatLocal = "@"