excel vba - Move VBA code to standalone VBS file -

-

i have macro in excel vba runs shell execute simple pdf editor command line, exports list of page names , numbers, searches keyword find page want, gets page num, , extracts page pdf file.

i've realised macro serve better standalone entity, , wondering required take code out of excel, , run .vbs file.

i tried direct copy , paste , didnt letter "a" in word "as" in first line.

sub pdf_getufplan()  dim wsh object set wsh = vba.createobject("wscript.shell") dim waitonreturn boolean: waitonreturn = true dim windowstyle integer: windowstyle = 1 dim errorcode integer  wsh.run "c:\users\johnmcs\desktop\pdftk.exe c:\users\johnmcs\desktop\full.pdf burst output c:\users\johnmcs\desktop\output.txt", windowstyle, waitonreturn  dim hf integer: hf = freefile dim lines() string, long  open "c:\users\johnmcs\desktop\doc_data.txt" input #hf     lines = split(input$(lof(hf), #hf), vbnewline)  close #hf  = 0 ubound(lines)  if instrrev(lines(i), "upper floor plan") > 0  x = ubound(lines)     if instrrev(lines(x), "bookmarkpagenumber: ") > 0      dim ufpagenum integer, pagenumposi integer     pagenumposi = instrrev(lines(x), " ")       pagenumposi = len(lines(x)) - pagenumposi      ufpagenum = right(lines(x), pagenumposi)      goto extractpage      end if  next   end if debug.print "line"; i; "="; lines(i) next    extractpage:  wsh.run "c:\users\johnmcs\desktop\pdftk.exe c:\users\johnmcs\desktop\full.pdf cat " & ufpagenum & " output c:\users\johnmcs\desktop\page" & ufpagenum & ".pdf", windowstyle, waitonreturn    end sub 

sub pdf_getufplan()  dim wsh  set wsh = createobject("wscript.shell") ' nb have wscript.createobject dim waitonreturn  waitonreturn = true dim windowstyle  windowstyle = 1 dim errorcode

so here, beginning fixed. cannot dim anything. variant. must late bound sets must done createobject - no set x = new thing set x = createobject("thing.application").

remember vb6/vba supports vbs feature set. vbs compatable (a design goal) vb6/vba.


Comments

Post a Comment

Popular posts from this blog

database - VFP Grid + SQL server 2008 - grid not showing correctly -

-
i having problem, have grid called "gridbasica" , this: thisform.gridbase.recordsource = "sgviemp" sgviemp cursor made executing select sqlserver command sqlexec. when want modify registry, go form , the update there. so, when come form grid, grid isnt grid anymore, big white rectangle. reading around said: delete recordsource , asingt again. thisform.gridbase.recordsource = "" *--i sqlexe here thisform.gridbase.recordsource = "sgviemp" i , works, but, when click button modify again cursos updated modify form doesnt load fields did first time. could me out that? thanks in advance. --------------- edit ------------------ i have been doing recommended: lnselect = select(0) n = sqlexec(thisform.conexion,"select emp_ccodigo codigo, emp_cnombre 'nombre o razon social', emp_cnumrif 'r.i.f' sgviempr","sgviemp1") set echo on suspend select sgviemp zap in sgviemp *-- browse *--zaps correct
Read more

jquery - Set jPicker field to empty value -

-
im using jpicker color selector in form. have clear value set window/icon 'no color selected' state. i've tried following: $(':input[name="color"]').val(''); //access value directly. (does not affect jpicker) 2: $.jpicker.list[0].color.active.val('hex', '', this); //set color black , input value 000000, instead of empty string 3: $.jpicker.list[0].color.active.val(null, '', this); //does nothing none of 3 methods seems behave properly. in advance. this works me :) $.jpicker.list[0].color.active.val('v', null); here example: http://jsfiddle.net/3up7n/
Read more

.htaccess - htaccess convert request to clean url and add slash at the end of the url -

-
ok , searched more 4 days , more 20 posts here in stach or in websites without kind of success first here htaccess file rewriteengine on rewriterule ^([a-za-z0-9_]+)/?$ index.php?page=$1 [nc] rewriterule ^([a-za-z0-9_]+)\/([a-za-z0-9_]+)\/?$ index.php?page=$1&action=$2 [nc] i tried many codes 1 worked me can call request , works me www.example.com/pagename => www.example.com/index.php?page=pagename here questions , please provide me information "in detail" understand code well 1- how convert request automatically www.example.com/index.php?page=pagename www.example.com/pagename 2- if tried add slash @ end shows me page without images or styling mean www.example.com/pagename => works www.example.com/pagename/ => doesn't work that's :) for first part need 301 rule this: rewritecond %{the_request} /index\.php\?page=([^\s&]+) [nc] rewriterule ^ /%1? [r=301,l] for second part use absolute path in css, js, images files r
Read more