Skip to content

Instantly share code, notes, and snippets.

View cristianbuse's full-sized avatar

Cristian Buse cristianbuse

  • CBRE
  • London
  • 09:30 (UTC)
View GitHub Profile
@cristianbuse
cristianbuse / GetLocalOneDrivePath.bas.vb
Last active October 1, 2024 12:23 — forked from guwidoe/GetLocalOneDrivePath.bas.vb
VBA Function to get the local path of a OneDrive/SharePoint synchronized Microsoft Office file
'Attribute VB_Name = "GetLocalOneDrivePath"
'
' Cross-platform VBA Function to get the local path of OneDrive/SharePoint
' synchronized Microsoft Office files (Works on Windows and on macOS)
'
' Author: Guido Witt-Dörring
' Created: 2022/07/01
' Updated: 2024/10/01
' License: MIT
'
@cristianbuse
cristianbuse / Win32API_PtrSafe.txt
Created June 20, 2024 15:05
Declare statements for functions in the Microsoft Windows API for use with Visual Basic on 32-bit (x86) and 64-bit (x64) platforms
' -------------------------------------------------------------------------
'
' Win32API_PtrSafe.TXT -- Declare statements for
' Visual Basic for Applications and Microsoft Office 2010
'
' Copyright (C) 2010 Microsoft Corporation.
' All rights reserved.
'
'
' This file contains Declare statements for many functions in the
We can't make this file beautiful and searchable because it's too large.
CLSID,ClassName
{0000031A-0000-0000-C000-000000000046},CLSID
{0000002F-0000-0000-C000-000000000046},CLSID CLSID_RecordInfo
{00000100-0000-0010-8000-00AA006D2EA4},CLSID DAO.DBEngine.36
{00000101-0000-0010-8000-00AA006D2EA4},CLSID DAO.PrivateDBEngine.36
{00000103-0000-0010-8000-00AA006D2EA4},CLSID DAO.TableDef.36
{00000104-0000-0010-8000-00AA006D2EA4},CLSID DAO.Field.36
{00000105-0000-0010-8000-00AA006D2EA4},CLSID DAO.Index.36
{00000106-0000-0010-8000-00AA006D2EA4},CLSID DAO.Group.36
{00000107-0000-0010-8000-00AA006D2EA4},CLSID DAO.User.36
@cristianbuse
cristianbuse / SleepAPI.bas
Last active May 15, 2023 21:20
Sleep API Mac compatible
Option Explicit
#If Mac Then
#If VBA7 Then
Public Declare PtrSafe Sub USleep Lib "/usr/lib/libc.dylib" Alias "usleep" (ByVal dwMicroseconds As Long)
#Else
Public Declare Sub USleep Lib "/usr/lib/libc.dylib" Alias "usleep" (ByVal dwMicroseconds As Long)
#End If
#Else 'Windows
#If VBA7 Then