VB如何操作当前已经打开的工作薄?
我知道:Set xlBook = xlApp.Workbooks.Open(App.Path & FileName)是去打开一个工作薄.
现在想作一个示例: 在当前已打开的EXCEL中活动工作表中写一个字符...
代码如下:
Public n As Integer '用来记录第1选择了关键后的数字
Public nj As Integer '用来记录第2选择了加总字段的数字
Public mxz As Integer '用来记录2以后没有被选中字段的数字
Public xlApp As Excel.Application '定义EXCEL类
Public xlBook As Excel.Workbook '定义工件簿类
Public xlsheet, xlsheet2, xlsheet3 As Excel.Worksheet '定义工作表类
Private Sub Command1_Click()
Dim iRow As Integer
Dim I As Integer
Dim shzx
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application") '判断Excel是否打开
If xlApp.xlBook.ActiveWorkbook.Sheets.Count = 0 Then
MsgBox "请打开一个工作簿！", vbInformation, "提示"
Exit Sub
End If
Set xlsheet = xlApp.xlBook.ActiveWorksheets(2) '打开sheet1工作表
xlsheet.Activate
xlsheet.Cells(2, 3) = "操作已打开的工作表"
End Sub
为何总是执行了 "请打开一个工作簿！" 这句就没有退出了..我明明打开了两个EXCEL表呀?
请高手帮忙指点一下.
[解决办法]
xlApp.xlBook错误，xlApp没有xlBook这个属性。
[解决办法]
帮顶关注！！
