07/06/30 13:45:08
>>6
Sub Hyou3Active
Dim oDocument As Object
Dim oSheet As Object
Dim oCController As Object
oDocument = ThisComponent
oSheet = oDocument.Sheets
oCController = oDocument.CurrentController
oCController.ActiveSheet = oSheet.getByName("表3")
End Sub