\u6a21\u5757 BindExcel \u540e\u671f\u7ed1\u5b9a Microsoft Excel \u5bf9\u8c61\uff0c\u8c03\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n\n\n\n
Dim sProg As String
sProg = “Excel”
Dim oExcel As Object
Call BindExcel(True)<\/p>\n\n\n\n
Public Sub BindExcel(ByVal bVisible As Boolean)
If Not oExcel Is Nothing Then Exit Sub
On Error Resume Next
Set oExcel = GetObject(, sProg & “.Application”)
If Err.Number <> 0 Then ‘\u6ca1\u6709\u6253\u5f00
Err.Clear
Set oExcel = CreateObject(sProg & “.application”)
If Err.Number <> 0 Then ‘\u6ca1\u6709\u6b63\u786e\u5b89\u88c5
Err.Clear
Exit Sub
End If
oExcel.Visible = bVisible
End If
On Error GoTo 0
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"