excel - Convert code for 32 bit to 64 bit -


i have lot of images need download on folder , renamed. have tried macro below not working on 32bit excel please me work on 64 bit.

option explicit  private declare function urldownloadtofile lib "urlmon" _     alias "urldownloadtofilea" (byval pcaller long, _     byval szurl string, byval szfilename string, _     byval dwreserved long, byval lpfncb long) long  dim ret long  '~~> images saved. change applicable const foldername string = "c:\temp\"  sub sample()     dim ws worksheet     dim lastrow long, long     dim strpath string      '~~> name of sheet has list     set ws = sheets("sheet1")      lastrow = ws.range("a" & rows.count).end(xlup).row      = 2 lastrow '<~~ 2 because row 1 has headers         strpath = foldername & ws.range("a" & i).value & ".jpg"          ret = urldownloadtofile(0, ws.range("b" & i).value, strpath, 0, 0)          if ret = 0             ws.range("c" & i).value = "file downloaded"         else             ws.range("c" & i).value = "unable download file"         end if     next end sub

if want imported function works both 32-bit , 64-bit, need use compiler directives in declaration.

option explicit  #if vba7 , win64     private declare ptrsafe function urldownloadtofile lib "urlmon" _       alias "urldownloadtofilea" ( _         byval pcaller longptr, _         byval szurl string, _         byval szfilename string, _         byval dwreserved longptr, _         byval lpfncb longptr _       ) long     private declare ptrsafe function deleteurlcacheentry lib "wininet.dll" _       alias "deleteurlcacheentrya" ( _         byval lpszurlname string _       ) long #else     private declare function urldownloadtofile lib "urlmon" _       alias "urldownloadtofilea" ( _         byval pcaller long, _         byval szurl string, _         byval szfilename string, _         byval dwreserved long, _         byval lpfncb long _       ) long     private declare function deleteurlcacheentry lib "wininet.dll" _       alias "deleteurlcacheentrya" ( _         byval lpszurlname string _       ) long #end if  public const error_success long = 0 public const bindf_getnewestversion long = &h10 public const internet_flag_reload long = &h80000000 public const foldername string = "c:\temp\"  sub downloadimages()     dim long, ret long, swan string, slan string      worksheets("sheet1")         = 2 .cells(rows.count, "a").end(xlup).row             slan = foldername & .cells(i, 1).value & ".jpg"             swan = .cells(i, 2).value             ret = urldownloadtofile(0&, swan, slan, bindf_getnewestversion, 0&)              if ret = 0                 .cells(i, 3) = "file downloaded"             else                 .cells(i, 3) = "unable download file"             end if         next     end  end sub

the #if vba7 , win64 then tells vba how compile imported function(s). 64-bit versions use ptrsafe. above tested on both 32-bit , 64-bit.


Comments

Post a Comment

Popular posts from this blog

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more