excel - Create UDF in VBA Generated Workbook -

-

i'm building application in vba parse machine generated file. part of project need convert machine format integers since fixed width columns don't accommodate negative numbers. used macro recorder parse text file:

workbooks.opentext filename:= _     *file name here*, origin:= _     437, startrow:=1, datatype:=xlfixedwidth, fieldinfo:=array(array(0, 2), _     array(6, 2), array(10, 2), array(14, 2), array(19, 2), array(25, 2), array(27, 2), array(34 _     , 2), array(39, 2), array(43, 2), array(44, 2), array(52, 2)), trailingminusnumbers:= _     true

but creates new workbook since it's opening new file. problem need run udf on final column converts fixed width value integer. example, suppose final column 0000000e , know e means last digit 5 , number negative. udf converts accordingly:

public function convertcodetointeger(inputstring string) long   if inputstring <> vbnullstring     select case right(inputstring, 1)         case "e" 'negative 5             convertcodetointeger = -1 * (left(inputstring, len(inputstring) - 1) & 5)          case else 'error case'             msgbox ("an error has occurred.")             end     end select else     convertcodetointeger = vbnullstring end if  end function  private sub testconvertcodetointeger()  debug.print convertcodetointeger("000001e")  end sub

but since file open in new workbook can't access udf. there easy way use vba make udf available new workbook? either directly copying function code new workbook's module using vba somehow or accessing original code? or there way open text file in current workbook instead?

this needs portable using personal workbook isn't option.

record macro , import text file using data->from text instead. import in current workbook.


Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di
Read more

c - Unrecognised emulation mode: elf_i386 on MinGW32 -

-
i'm trying make kernel, , cannot link c output assembly. ld . i'm getting error: unrecognized emulation mode: elf_i386 i'm using windows 10 professional mingw32 , msys. code using: link.ld /* * link.ld */ output_format(elf32-i386) entry(start) sections { . = 0x100000; .text : { *(.text) } .data : { *(.data) } .bss : { *(.bss) } } kernel.c /* * kernel.c */ void kmain(void) { const char *str = "my first kernel"; char *vidptr = (char*)0xb8000; //video mem begins here. unsigned int = 0; unsigned int j = 0; /* loops clears screen * there 25 lines each of 80 columns; each element takes 2 bytes */ while(j < 80 * 25 * 2) { /* blank character */ vidptr[j] = ' '; /* attribute-byte - light grey on black screen */ vidptr[j+1] = 0x07; j = j + 2; } j = 0; /* loop writes string video memory */ while(str[j] != '\0') { /
Read more