VB & Excel---在线急等

Question

我想问问,我的一个xls文件,如a.xls文件.
里面有n 个sheet如有3个
我想随意打开其中的一个,可是不能,楼主能指点一下吗?
例:
dim exl as new Excel.Appliction
dim Wsheet as Excel.Worksheets
exl.Workbooks.open "路径"
set Wsheet = exl.ActiveWorkbooks.WorkSheets(1).Select  
With exl
     .Range("A1").Select
     .ActiveCell.value = "bbb"
End With
这样我打开的是xls文件中的sheet1,并在相应的单元格上赋值.
但是我想打开它的第2个sheet,就这样写的.
dim exl as new Excel.Appliction
dim Wsheet as Excel.Worksheets
exl.Workbooks.open "路径"
set Wsheet = exl.ActiveWorkbooks.WorkSheets(2).Select  
With exl
     .Range("A1").Select
     .ActiveCell.value = "bbb"
End With
可是打开,它仍然打开第一个sheet,并把值赋上去.
怎样才能打开电子表格后,显示的是我任意选的sheet呢
请各位高手指教

Answer 1

Private Sub Command1_Click()Dim exl As New Excel.Application
Dim Wsheet As Excel.Worksheet
exl.Workbooks.Open "c:\·¾¶.xls"Set Wsheet = exl.Worksheets(1)Wsheet.Cells(1, 2) = "1asdasda31"exl.SaveWorkspace
exl.QuitSet exl = Nothing
Set Wsheet = Nothing
    End Sub不知道对你是否有帮助！

Answer 2

你原来的改成如下所示：dim exl as new Excel.Appliction
dim Wsheet as Excel.Worksheet
exl.Workbooks.open "路径"
set Wsheet = exl.ActiveWorkbooks.WorkSheets(2)With Wsheet 
     .Range("A1").Select
     .ActiveCell.value = "bbb"
End With

Answer 3

是啊
dim Wsheet as Excel.Worksheets
这句话是什么意思啊