vba - How to get the version number of an Excel workbook? -

-

i have excel book that's versioned in sharepoint document library, can go file tab , see versions like:

19.0: 11/10/2014 1:15 pm xyz\tkl2 17.0: 10/12/2014 3:54 pm xyz\tkl2 14.0: 10/11/2014 2:23 pm xyz\92jf

i want retrieve recent version number, in case 19.0. i've tried using following code:

sub getversions()  dim docversions documentlibraryversions dim dversion documentlibraryversion  set docversions = thisworkbook.documentlibraryversions  each dversion in docversions     debug.print dversion.index     debug.print dversion.comments     debug.print dversion.creator     debug.print dversion.modified     debug.print dversion.modifiedby     debug.print dversion.application next  end sub

this every property seems possible regarding particular document version. none of these properties retrieve actual version number; e.g., .index retrieve 1, 2, , 3 these versions. there way actual version number?

you can information opening historical version of file, , filename filename.xlsx, versionxx.yy:modified date, xx.yy version number in major.minor format.

i've put code used below. puts version name in column h of sheet opens. it's got little error checking in, not enough use straight off. importantly, assumes spreadsheet it's pasted in spreadsheet open. you'll want have file want version numbers of closes, too.

function fcheckversions(stfilename string) boolean ' ' stfilename full url document in document library. ' dim wb excel.workbook dim versionworksheet excel.worksheet dim dlvversions office.documentlibraryversions dim dlvversion office.documentlibraryversion dim oldversion excel.workbook dim stextension string dim iposext long  virow = 3 thisworkbook.worksheets("index").cells(virow, 1) = stfilename  if workbooks.cancheckout(stfilename) = true     set wb = workbooks.open(stfilename, , true)     set dlvversions = wb.documentlibraryversions     if dlvversions.isversioningenabled = true         thisworkbook.windows(1).visible = false         thisworkbook.worksheets("index").cells(virow, 3) = "num"         versions = " & dlvversions.count"         on error goto versionfailed:         each dlvversion in dlvversions             thisworkbook.worksheets("index").cells(virow, 4) = "version: " & dlvversion.index             thisworkbook.worksheets("index").cells(virow, 5) = "modified date: " & dlvversion.modified             thisworkbook.worksheets("index").cells(virow, 6) = "modified by: " & dlvversion.modifiedby             thisworkbook.worksheets("index").cells(virow, 7) = "comments: " & dlvversion.comments                 set oldversion = dlvversion.open()                 thisworkbook.worksheets("index").cells(virow, 8) = "filename: " & oldversion.name                 if workbooks.count > 2                     workbooks(3).close savechanges:=false                 end if             virow = virow + 1         goto nextversion: versionfailed:         thisworkbook.windows(1).visible = true         msgbox "fail" nextversion:         next dlvversion     end if     wb.close false end if set wb = nothing doevents end function

Comments

Post a Comment

Popular posts from this blog

python - mat is not a numerical tuple : openCV error -

-
i have write down code showing error ma not getting it: please help: showing mat not numerical tuple: import cv import cv2 capture = cv2.videocapture("j.3gp") while(1): _, frame1 = capture.read() grayimage1 = cv2.cvtcolor(frame1, cv2.color_bgr2gray) _, frame2 = capture.read() grayimage2 = cv2.cvtcolor(frame2, cv2.color_bgr2gray) differenceimage = cv2.absdiff(grayimage1,grayimage2) thresholdimage = cv2.threshold(differenceimage,25,255,cv2.thresh_binary) cv2.imshow("difference image", differenceimage) cv2.imshow("threshold image", thresholdimage) cv2.imshow("image", frame1) k = cv2.waitkey(30) & 0xff error arising : ----------------------------------------------------------------------------------------- traceback (most recent call last): file "desk.py", line 15, in <module> cv2.imshow("threshold image", thresholdimage) typeerror: mat not numerical tuple ...
Read more

c# - MSAA finds controls UI Automation doesn't -

-
i'm working on automating windows application. i'm using teststack white framework. i've hit problem. program has 'window' object cannot see inside of. white shows no controls inside of it. inspect.exe shows no controls inside of either when running in ui automation mode. if switch inspect msaa see controls inside fine. there anyway me use msaa c# handle on these controls? if can identify msaa functions need, can use p/invoke call them c#. here's example article doing msaa: http://www.codeproject.com/articles/38906/ui-automation-using-microsoft-active-accessibility also, pinvoke.net can used identify iaccessible (msaa) functions: http://www.pinvoke.net/search.aspx?search=iaccessible&namespace=[all] here's answer along lines: msaa com-based? finally, alternative p/invoke, might able use tlbimp.exe create wrapper assembly oleacc.dll, , access msaa functions through it. i'm not sure if works msaa, it's worth try. as e...
Read more

wordpress - .htaccess: RewriteRule: bad flag delimiters -

-
pulling hair out on one. have following .htaccess file custom redirects in addition wordpress's default settings. when tested on local wamp server worked fine after moving production i'm not getting rewriterule: bad flag delimiters error in server log , after while site goes down internal server error any appreciated. in advance! <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^rockford_weddings___welcome\.html$ /wedding/ [r=301,l] rewriterule ^blog/?$ /journal/ [r=301,l] rewriterule ^blog/(.*)$ /$1 [r=301,l] rewriterule ^portraitinvestment/?$ /portraitinvestment\.pdf [r=301,l] rewriterule ^weddinginvestment/?$ /weddinginvestment\.pdf [r=301,l] rewriterule ^holidaycards2014/?$ /holidaycards2014\.pdf [r=301,l] </ifmodule> # begin wordpress <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^index\.php$ - [l] rewritecond %{request_filename} !-f rewritecond %{request_filename} !-d rewriterule . /index.php [l] </...
Read more