Retrive data and paste using Excel VBA -


vba code here 

'this function ur comnad button  private sub cmdgetdata() call getdata end sub

here module 1 getting data configuration file.

'module 1 public sub getdata() dim oexcelconn adodb.connection '===== dim oconn adodb.connection '* connection string dim orst adodb.recordset '* record set dim squery string '* query string dim sconnstr string dim wb workbook, wbcurr workbook  sconnstr = getexcelconnstr(thisworkbook.path & "\data\exceldata.xlsx")  set oconn = new adodb.connection   oconn.open sconnstr set wb = workbooks.open thisworkbook.path & "\template\mytemplate.xltx" ictr = 1 sheet2.range("name_std").rows.count squery = "select * [config$a:r] column = " &                           sheet2.range("name_std").cells(ictr,1) set orst = new adodb.recordset orst.open squery, oconn set wbcurr =  wb.worksheets("sheet1").copy after:=worksheets("sheet1") wbcurr.range("a2").cpoyfromrecordset orst next end sub

here module 1 getting data configuration file. here module 1 getting data configuration file. here module 1 getting data configuration file. here module 1 getting data configuration file. here module 1 getting data configuration file. here module 1 getting data configuration file.

public function getexcelconnstr(spath string) string  dim sconnstr string  sconnstr = "provider=microsoft.ace.oledb.12.0;data source=" & spath & ";extended properties=""excel 12.0 xml;hdr=yes"";"  getexcelconnstr = sconnstr  end function 

set wks = activeworkbook.worksheets("template")  ' wks.range("b2").cells(1, 17).value   dim integer dim startindex string dim endindex string dim wsname string wsname = "temp"  dim str string = 1 17    str = wks.range("b2").cells(i, 1).value    if str = "grand total"       endindex = wks.range("b2").cells(i, 1).address       exit    end if next   startindex = wks.range("b2").cells(1, 1).address  endindex = wks.range("b2").cells(i - 1, 17).address  wks.range(startindex & ":" & endindex).copy  thisworkbook.worksheets(wsname).select  activesheet.range("b2").select activesheet.paste

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 - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
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