RevitTricks

Process: Export a Revit library file - maintains the same name as the family (This is critical) Create an EXCEL file same-name XLSM macro enabled Create a Worksheet "EXPORT" Create other tabs to build data sheets Create a sheet and use DATA LINK to bring in the exported library Copy the important 1st row IDs for the Variable names and types over. All of them are not necessary - only the ones with data Library export ONLY exports parameters that have data in them somewhere Order doesn't matter. Paste the code below into a module Run it to export the "EXPORT" tab Excel saves-as the [excel filename.TXT] Excel saves as the [excel filename.XMSM] Refresh the data source for updates SAVE OFTEN! Version 2.0- The Textfile in VBA has issues - keeps trying to write in Unicode and Kanji instead of basic ASCII. Also Revit format for families is noting in cell 1,1 and all Line Feeds (Not CRLFS or CRs ) at the end of lines. Attribute VB_Nam...

Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim wscript As New objWSCRIPT_emulator Sub ViewInternetHeader ()     Dim olItem As Outlook.MailItem , olMsg As Outlook.MailItem     Dim strheader As String    InitIE "Starting View Header" , objIe     For Each olItem In Application.ActiveExplorer.Selection         strheader = GetInetHeaders ( olItem )          MsgIE strheader , objIe         'Set olMsg = Application.CreateItem(olMailItem)  ...

Outlook archive won't move over files that are flagged for follow up... this routine moves them over- flag intact. (Alpha - use at your own risk)  There are issues with special folders like syncissues but this seems to work for the most part. There is a loop that waits 5 minutes and repeats [  Do   While   ( Date   +  Time )   <  startup  +   30   /   60   /   24   And  GblIntRerun  >   0  ] This is for office 365 as files tend to trickle down from the server when doing large moves. Outlook subroutine to move over all files over x number of days old (Set to 0 by default) Set objSourceFolder = GetFolderPath ( "\\ [userid] @fieldstoneae.com\" ) Set objDestFolder = GetFolderPath ( "\\ [archivename-archive] \" ) Watch for Wraps! Option Explicit Const Version = "2014-01-12.00" Dim GBLlngMovedItems As Long Dim GblIntRerun As Integer D...