vba - Importing table from pdf to excel - Need to uncomment and comment a piece of code for it to run -


i have figured out , works great, except run following errors anytime open workbook , have go through process of uncommenting , commenting section of code.

below code:

private sub activateexcel()  appactivate "microsoft excel"      'import_pdf receives table pdf file.     sheets("importpdf").select      'clear previous data (at moment causes error way)     thisworkbook.sheets("importpdf").cells.clearcontents      range("a1").select     activesheet.paste    'important note__________________________________________________________________  '  'the section requires tinkering: next code below separate pdf  'table excel columns, needs done first time, ,  'just pasting works! doing 2nd time makes error. 2nd run need  'sort a-z new importpdf sheet (put 3.5 after 3 instead of @ end!      application.cutcopymode = false '     selection.texttocolumns destination:=range("a2"), datatype:=xldelimited, _ '       textqualifier:=xldoublequote, consecutivedelimiter:=true, tab:=true, _ '       semicolon:=false, comma:=false, space:=true, other:=false, fieldinfo _ '       :=array(array(1, 1), array(2, 1), array(3, 1), array(4, 1), array(5, 1), array(6, 1), _ '       array(7, 1), array(8, 1), array(9, 1), array(10, 1), array(11, 1), array(12, 1), array(13, 1 _ '       ), array(14, 1)), trailingminusnumbers:=true       activeworkbook.worksheets("importpdf").sort.sortfields.clear     activeworkbook.worksheets("importpdf").sort.sortfields.add key:=range("a3"), _         sorton:=xlsortonvalues, order:=xlascending, dataoption:=xlsortnormal      activeworkbook.worksheets("importpdf").sort         .setrange range("a3:n26")         .header = xlno         .matchcase = false         .orientation = xltoptobottom         .sortmethod = xlpinyin         .apply     end       'copy column import_pdf "dev" volute sheet active on ctrl-b     '     range("b3:b26").select     selection.copy     'activewindow.scrollworkbooktabs position:=xlfirst      'here select target active sheet when ctrl-b started macro:     'whichever sheet open during ctrl-b pdf "dev" col now...     'msgbox activesheet.name & "  activating sheet now..."     sheets(activesheetimport).select     'activewindow.smallscroll down:=24    'need time delay right here!   'msgbox "currently active = " & activesheet.name & "       active on ctrl-b = " & activesheetimport      'and here can paste active cell when ctrl-b started macro:     'the range active cell! that's dev col pastes next line:     activesheet.paste       range("a1").select 'range("a1").activate 'sendkeys ("^v")  'shell "pskill " & startadobe 'call shell("taskkill /f /pid " & cstr(vpid), vbhide) end sub

so when first run macro import data "importpdf" worksheet data looks ths:[error 1][1]

so solve this: section of code written: 

application.cutcopymode = false      selection.texttocolumns destination:=range("a2"), datatype:=xldelimited, _        textqualifier:=xldoublequote, consecutivedelimiter:=true, tab:=true, _        semicolon:=false, comma:=false, space:=true, other:=false, fieldinfo _        :=array(array(1, 1), array(2, 1), array(3, 1), array(4, 1), array(5, 1), array(6, 1), _        array(7, 1), array(8, 1), array(9, 1), array(10, 1), array(11, 1), array(12, 1), array(13, 1 _        ), array(14, 1)), trailingminusnumbers:=true

so uncomment line of code , re run macro. have run macro twice. second time run macro error: error 2

once error, if comment code again, , run macro. data transfer perfect , works charm. if close workbook, have redo entire process. know why is? or how can fix issue?

error3

once you've run texttocolumns once, excel "remembers" settings , automatically applies subsequent paste operation.

one way around might check selection.columns.count after pasting, run text columns if count 1

application.cutcopymode = false selection     if .columns.count = 1         'edited         .texttocolumns destination:= .cells(1).offset(0,1), datatype:=xldelimited, _            textqualifier:=xldoublequote, consecutivedelimiter:=true, tab:=true, _            semicolon:=false, comma:=false, space:=true, other:=false, _             fieldinfo :=array(array(1, 1), array(2, 1), array(3, 1), array(4, 1), _             array(5, 1), array(6, 1), array(7, 1), array(8, 1), array(9, 1), array(10, 1), _             array(11, 1), array(12, 1), array(13, 1), array(14, 1)), trailingminusnumbers:=true     end if end

Comments

Post a Comment

Popular posts from this blog

What is happening when Matlab is starting a "parallel pool"? -

running parallel cpu processes in matlab starts command parpool() according documentation , function: [creates] special job on pool of workers, , [connects] matlab client parallel pool. this function takes bit of time execute, on order of 30 seconds. in other multi-cpu paradigms openmp, parallel execution seems totally transparent -- i've never noticed behavior analogous matlab (granted i'm not experienced parallel programming). so, happening between time parpool() called , when finishes executing? takes long? parallel computing toolbox enables run matlab code in parallel using several different paradigms (e.g. jobs , tasks, parfor , spmd , parfeval , batch processing), , run either locally (parallelised across cores in local machine) or remotely (parallelised across machines in cluster - either 1 own, or 1 in cloud). in of these cases, code run on matlab workers , copies of matlab without interactive desktop. if you're intending run on remo...
Read more

angular - DownloadURL return null in below code -

when change file updated in firebase storage when try downloadurl show null. filechange(event: any) { const imagefolder: string = this.employee.id; const filelist: filelist = event.target.files; const file: file = filelist[0]; const storageref = firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file); console.log(storageref.snapshot.downloadurl); } the put() asynchronous. if want url after file uploaded have this: firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file).then((snapshot) => { storageref = snapshot.downloadurl: console.log(snapshot.downloadurl); });
Read more

php - Cannot override Laravel Spark authentication with own implementation -

during login process of laravel spark need request token of remote api. api stores exact same users , passwords laravel spark application. therefore need username , non hashed password of user during authentication process. i thought overriding authenticated method solution problem. in routes/web.php override post /login endpoint , pointing endpoint own logincontroller: <?php namespace app\http\controllers\auth; use illuminate\support\facades\log; use illuminate\http\request; use laravel\spark\http\controllers\auth\logincontroller sparklogincontroller; class logincontroller extends sparklogincontroller { /** * create new login controller instance. * * @return void */ public function __construct() { parent::__construct(); } /** * handle successful authentication attempt. * * @param request $request * @param \illuminate\contracts\auth\authenticatable $user * @return response */ public fu...
Read more