Run time error 462 Access VBA using Excel -


i run time error when trying open/manipulate excel files using access vba. error

"run-time error '462': remote server machine not exist or unavailable

what frustrating error occurs files , not others , in different instances. here code, error occurs @ workbooks.open(spath) line:

    docmd.setwarnings false  dim oexcel new excel.application dim owb workbook dim ows worksheet  set oexcel = excel.application set owb = oexcel.workbooks.open(spath) set ows = owb.sheets(1)  oexcel.visible = false      if fgetfilename(spath) = "file_name1.xlsx"         'oexcel.visible = false         ows.range("aw1").value = "text1"         ows.range("ax1").value = "text2"         ows.range("ay1").value = "text3"     end if  owb.save debug.print "amended " & spath  owb.close false set owb = nothing  oexcel.quit set oexcel = nothing  docmd.setwarnings true

after bit of research online, i've found document gives overview of error: https://anictteacher.files.wordpress.com/2011/11/vba-error-462-explained-and-resolved.pdf

using logic document, error that:

object has not been qualified reference office object in every case

however, amended row error occurs reference excel object (set owb = oexcel.workbooks.open(spath)). have tried declaring dimensions objects , put reference oexcel in every mention of workbook/sheet. ideas? spath need better qualified?

you declare oexcel new excel.application:

dim oexcel new excel.application

that means later in code, set oexcel = excel.application not useful ... because oexcel reference excel.application. add in msgbox demonstrate oexcel @ point ...

msgbox "typename(oexcel): " & typename(oexcel) 'set oexcel = excel.application

consider different approach excel object variable. test stripped down procedure (the purpose see whether eliminates current error):

dim oexcel excel.application dim owb excel.workbook  docmd.setwarnings true  msgbox "typename(oexcel): " & typename(oexcel) set oexcel = new excel.application msgbox "typename(oexcel): " & typename(oexcel) set owb = oexcel.workbooks.open(spath) owb.close false set owb = nothing oexcel.quit set oexcel = nothing

Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more

Website Login Issue developed in magento -

i have website developed using magento . able login. right now, login failed. infact operations interacts user table failing. need know issue. how figure out? first clear try clear log file second make sure have not upgraded magento and 3rd make sure db accessible in magento -harry p
Read more