C:\Windows\odbcad32.exe - для 64-битных
C:\Windows\SysWOW64\odbcad32.exe - для 32-битных

Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;

SELECT * FROM "'Sheet 1$'"

Sub Test()
   Dim conn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strConnection As String
   Dim sql As String

   ' Create the connection string.
   strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                   & "Data Source='d:\Downloads\_______output.xls';" _
                   & "Extended Properties='Excel 8.0;HDR=NO;IMEX=1';"
   ' Create the Connection and Recordset objects.
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset

   sql = "SELECT * FROM [Лист1$A1:E10]"

   ' Open the connection and execute.
   conn.Open strConnection
   Set rs = conn.Execute(sql)

   ' Check we have data.
   If Not rs.EOF Then
       ' Transfer result.
       ActiveSheet.Range("A1").CopyFromRecordset rs
       ' Close the recordset
       rs.Close
   Else
       MsgBox "Error: No records returned.", vbCritical
   End If

   ' Clean up
   If CBool(conn.State And adStateOpen) Then conn.Close
   Set conn = Nothing
   Set rs = Nothing
End Sub

select * from [Excel 8.0;HDR=YES;IMEX=1;Database=d:/1.xls;]."Лист1$"

Да и odbc-плагин представляет базовую функциональность, в отличии от csvtab

Error: Can't connection to Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=D:/2.xls;ReadOnly=0;
Env Error:
Dbc Error:

00:00:38.000: GetProcAddress(0x00007FFA5FA00000 [c:\program files\common files\microsoft shared\office16\MSO.DLL], 0x0000000000000D98) called from "c:\progra~1\common~1\micros~1\office16\ACEODBC.DLL" at address 0x00007FFA936D7931 and returned 0x00007FFA5FA0F7BC by thread 1.
00:00:38.015: GetProcAddress(0x00007FFA8BA70000 [c:\windows\system32\MSI.DLL], 0x00000000000000CB) called from "c:\program files\common files\microsoft shared\office16\MSO99LWIN32CLIENT.DLL" at address 0x00007FFA62C78A0F and returned 0x00007FFA8BB61740 by thread 1.
00:00:38.015: LoadLibraryExW("C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\1049\ACEODBCI.DLL", 0x0000000000000000, 0x00001000) called from "c:\program files\common files\microsoft shared\office16\MSO30WIN32CLIENT.DLL" at address 0x00007FFA73F92361 by thread 1.
00:00:38.015: Loaded "c:\program files (x86)\common files\microsoft shared\office16\1049\ACEODBCI.DLL" at address 0x0000000068DD0000 by thread 1.  Successfully hooked module.
00:00:38.015: Unloaded "c:\program files (x86)\common files\microsoft shared\office16\1049\ACEODBCI.DLL" at address 0x0000000068DD0000 by thread 1.
00:00:38.031: LoadLibraryExW("C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\1049\ACEODBCI.DLL", 0x0000000000000000, 0x00001000) returned NULL by thread 1. Error: %1    Win32 (193).
00:00:38.281: LoadLibraryExW("ACEODBCI.DLL", 0x0000000000000000, 0x00001000) called from "c:\program files\common files\microsoft shared\office16\MSO30WIN32CLIENT.DLL" at address 0x00007FFA73F92361 by thread 1.
00:00:38.281: LoadLibraryExW("ACEODBCI.DLL", 0x0000000000000000, 0x00001000) returned NULL by thread 1. Error:     (126).

} else if (_tcscmp(fileext, TEXT(".xlsx")) == 0 || _tcscmp(fileext, TEXT(".xlsb")) == 0) { ...

#define UNICODE
#define _UNICODE

#include <windows.h>
#include <tchar.h>
#include <stdio.h>

BOOL APIENTRY DllMain (HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved) {
   return TRUE;
}

void __stdcall ListGetDetectString(char* DetectString, int maxlen) {
   snprintf(DetectString, maxlen, "ext=\"TEST\"");
}

HWND APIENTRY ListLoadW (HWND hListerWnd, TCHAR* fileToLoad, int showFlags) {
   HWND hMainWnd = CreateWindowEx(0, TEXT("STATIC"), TEXT("test-wlx"), WS_CHILD | SS_SUNKEN | WS_VISIBLE,
      0, 0, 100, 100, hListerWnd, (HMENU)1000, GetModuleHandle(0), NULL);

   return hMainWnd;
}

void __stdcall ListCloseWindow(HWND hWnd) {
   DestroyWindow(hWnd);
   return;
}

int main() {
   int len = 10;
   int arr[len];
}

11.03.2024

2024-03-11 00:00:00