OLEDBConnection.SaveAsODC (Excel)
Salva a conexão OLE DB como um arquivo de conexão de dados do Microsoft Office.
SaveAsODC (ODCFileName, Description, Keywords)
Dim strODCFileName As String: strODCFileName =
ActiveWorkbook.Connections(1).OLEDBConnection.SaveAsODC ODCFileName:=strODCFileName
Arguments
O seguinte argumento é necessário
ODCFileName (String) - Local onde salvar o arquivo.
Optional arguments
Os seguintes argumentos são opcionais
Description (String) - Descrição que será salva no arquivo.
Keywords (String) - Palavras-chave separadas por espaço que podem ser usadas para pesquisar o arquivo.