Brtdku

Function GetSheetsNames(WBName As String) As Collection

    'add reference

    Dim objConn As ADODB.Connection ' Microsoft ActiveX Data Objects n.n Library

    Dim objCat As ADOX.Catalog ' Microsoft ADO Ext. 2.8 for DDL and Security.

    Dim tbl As ADOX.Table

    Dim sConnString As String

    Dim sSheet As String

    Dim Col As New Collection



    sConnString = "Provider=Microsoft.ace.OLEDB.12.0;" & _

    "Data Source=" & WBName & ";" & _

    "Extended Properties=Excel 12.0 Xml;"



    Set objConn = New ADODB.Connection

    objConn.Open sConnString

    Set objCat = New ADOX.Catalog

    Set objCat.ActiveConnection = objConn



        For Each tbl In objCat.Tables

            sSheet = tbl.Name

                Set arr2 = tbl.Columns ' here  changes to ()

        Next tbl

        Set GetSheetsNames = Col

endd:



    objConn.Close

    Set objCat = Nothing

    Set objConn = Nothing

End Function

Function GetSheetsNames(WBName As String) As Collection

    'add reference

    Dim objConn As ADODB.Connection ' Microsoft ActiveX Data Objects n.n Library

    Dim objCat As ADOX.Catalog ' Microsoft ADO Ext. 2.8 for DDL and Security.

    Dim tbl As ADOX.Table

    Dim sConnString As String

    Dim sSheet As String

    Dim Col As New Collection



    sConnString = "Provider=Microsoft.ace.OLEDB.12.0;" & _

    "Data Source=" & WBName & ";" & _

    "Extended Properties=Excel 12.0 Xml;"



    Set objConn = New ADODB.Connection

    objConn.Open sConnString

    Set objCat = New ADOX.Catalog

    Set objCat.ActiveConnection = objConn



        For Each tbl In objCat.Tables

            sSheet = tbl.Name

                Set arr2 = tbl.Columns ' here  changes to ()

        Next tbl

        Set GetSheetsNames = Col

endd:



    objConn.Close

    Set objCat = Nothing

    Set objConn = Nothing

End Function

Function GetSheetsNames(WBName As String) As Collection

    'add reference

    Dim objConn As ADODB.Connection ' Microsoft ActiveX Data Objects n.n Library

    Dim objCat As ADOX.Catalog ' Microsoft ADO Ext. 2.8 for DDL and Security.

    Dim tbl As ADOX.Table

    Dim sConnString As String

    Dim sSheet As String

    Dim Col As New Collection



    sConnString = "Provider=Microsoft.ace.OLEDB.12.0;" & _

    "Data Source=" & WBName & ";" & _

    "Extended Properties=Excel 12.0 Xml;"



    Set objConn = New ADODB.Connection

    objConn.Open sConnString

    Set objCat = New ADOX.Catalog

    Set objCat.ActiveConnection = objConn



        For Each tbl In objCat.Tables

            sSheet = tbl.Name

                Set arr2 = tbl.Columns ' here  changes to ()

        Next tbl

        Set GetSheetsNames = Col

endd:



    objConn.Close

    Set objCat = Nothing

    Set objConn = Nothing

End Function

Function GetSheetsNames(WBName As String) As Collection

    'add reference

    Dim objConn As ADODB.Connection ' Microsoft ActiveX Data Objects n.n Library

    Dim objCat As ADOX.Catalog ' Microsoft ADO Ext. 2.8 for DDL and Security.

    Dim tbl As ADOX.Table

    Dim sConnString As String

    Dim sSheet As String

    Dim Col As New Collection



    sConnString = "Provider=Microsoft.ace.OLEDB.12.0;" & _

    "Data Source=" & WBName & ";" & _

    "Extended Properties=Excel 12.0 Xml;"



    Set objConn = New ADODB.Connection

    objConn.Open sConnString

    Set objCat = New ADOX.Catalog

    Set objCat.ActiveConnection = objConn



        For Each tbl In objCat.Tables

            sSheet = tbl.Name

                Set arr2 = tbl.Columns ' here  changes to ()

        Next tbl

        Set GetSheetsNames = Col

endd:



    objConn.Close

    Set objCat = Nothing

    Set objConn = Nothing

End Function

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});