VB *** 作EXCEL

Dim xlApp,xlBook,Xlssheet

Dim isXlsOpen

isXlsOpen = False

Set xlApp = GetObject(,"ExcelApplication") '获取EXCEL进程

If TypeName(xlApp) = "Application" Then '检测到有Excel进程已经打开

For Each xlBook In xlAppWorkBooks '循环检查Excel进程打开的Workbooks

'向SHEET1的第一行第一列写入1

xlBookworksheets("sheet1")cells(1,1)value=1

Exit For

End If

Next

End If

MsgBox Isxlsopen

打开Excel的VB编辑器按钮是灰色的无法打开，那么说明没有安装VBA功能，解决方案如下:

如果是Office的话，那么可以选择修复安装，或者卸载原Office后重新安装，安装的时候选择完全安装即可;如果是WPS2019个人版的话，那么需要是会员才可以使用，可以更换为WPS2019教育版的。

修复

以上就是关于VB *** 作EXCEL全部的内容，包括:VB *** 作EXCEL、如何打开EXCEL的VB编辑器、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！