Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
32bit版及び64bit版のExcelで使用できるSQLite3のDLL(sqlite3.dll)をオープンするためのExcel VBAの関数。
Function SQLite3Init(Optional ByVal libDir As String) As Long
#If Win64 Then
SQLite3Init = SQLite3Initialize(ThisWorkbook.Path + "\x64")
SQLite3Init = SQLite3Initialize(libDir)
#End If
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.