level 1
Sub Main()
Dim wb, sht, rng, xlsApp
On Error Resume Next
Set xlsApp = GetObject(, "Excel.Application")
If xlsApp Is Nothing Then
Set xlsApp =CreateObject("Excel.Application")
End If
Set wb = MsgBox(wb.Name, 64, "xx")
End Sub
2024年03月21日 09点03分
1
level 1
Win10可以获得当前已经打开的表格名称Win11没作用
2024年03月21日 09点03分
2
level 1
倒三行set wb=xlsapp·发布的时候自自动不可见activeworkbook
2024年03月22日 02点03分
3
level 1
发一段数字试试
516041515844
516349514150
514143516250
514744514142
2024年08月31日 02点08分
4