excel - Subscript out of range error in VBA -

-

i trying import fdf files(can multiple) vba. when run code got subscript out of range error.

i know error suggests worksheet looking not exist don't believe code below defines worksheet name cause of problem?

can have assistance in where, , what, code insert address error? code tried:

sub fdfimport()      dim outsh worksheet     dim fname variant, f integer     fname = application.getopenfilename("fdf file,*.fdf", 1, "select 1 or more files open", , true)      f = 1 ubound(fname)        open fname(f) input #1        while not eof(1)           line input #1, myvar          arr = split(myvar, chr(10))          arr2 = split(arr(4), "/v")           if instr(1, myvar, "(contact)") > 0              set outsh = sheets("contact")             outrow = outsh.cells(rows.count, 1).end(xlup).offset(1, 0).row              = 1 8                 placer = instr(1, arr2(i), ")")                outsh.cells(outrow, i).value = left(arr2(i), placer - 1)              next           else              set outsh = sheets("nocontact")             outrow = outsh.cells(rows.count, 1).end(xlup).offset(1, 0).row              = 1 12                 placer = instr(1, arr2(i), ")")                outsh.cells(outrow, i).value = left(arr2(i), placer - 1)              next           end if        loop        close #1        sheets("contact").cells.replace what:="(", replacement:=""        sheets("nocontact").cells.replace what:="(", replacement:=""     next f  end sub

this guess based on have posted give try

sub fdfimport()      dim outsh worksheet       dim fname variant, f integer     dim myvar, arr, arr2, outrow, i, placer      fname = application.getopenfilename("fdf file,*.fdf", 1, "select 1 or more files open", , true)      if vartype(fname) = vbboolean         exit sub     end if      f = lbound(fname) ubound(fname)        open fname(f) input #1        while not eof(1)           line input #1, myvar           arr = split(myvar, chr(10))           arr2 = split(arr(4), "/v")           if instr(1, myvar, "(contact)") > 0              set outsh = sheets("contact")             outrow = outsh.cells(rows.count, 1).end(xlup).offset(1, 0).row              = 0 7                 placer = instr(1, arr2(i), ")")                outsh.cells(outrow, i).value = left(arr2(i), placer - 1)              next           else              set outsh = sheets("nocontact")             outrow = outsh.cells(rows.count, 1).end(xlup).offset(1, 0).row              = 0 11                 placer = instr(1, arr2(i), ")")                outsh.cells(outrow, i).value = left(arr2(i), placer - 1)              next           end if        loop        close #1        sheets("contact").cells.replace what:="(", replacement:=""        sheets("nocontact").cells.replace what:="(", replacement:=""     next f  end sub

when split array 0 based. meaning need loop through array 0 x. when looping arr2 have for = 1 8 guess should for = 0 7 doing same arr have changed answer.


Comments

Post a Comment

Popular posts from this blog

javascript - Karma not able to start PhantomJS on Windows - Error: spawn UNKNOWN -

-
i lost "unknown" error: karma.conf.js: frameworks: ['mocha', 'should'], plugins: ['karma-mocha', 'karma-should', 'karma-phantomjs-launcher'], ... browsers: ['phantomjs'], error: 23 07 2015 14:35:37.691:warn [karma]: no captured browser, open http://localhost:9876/ 23 07 2015 14:35:37.701:info [karma]: karma v0.13.3 server started @ http://localhost:9876/ 23 07 2015 14:35:37.707:info [launcher]: starting browser phantomjs 23 07 2015 14:35:37.738:error [karma]: { [error: spawn unknown] code: 'unknown', errno: 'unknown', syscall: 'spawn' } error: spawn unknown @ exports._errnoexception (util.js:749:11) @ childprocess.spawn (child_process.js:1093:11) @ exports.spawn (child_process.js:933:9) @ object._execcommand (c:\users\jinga4x\git\mdl-sample-project\node_modules\karma\lib\launchers\process.js:63:21) @ object._start (c:\users\jinga4x\git\md...
Read more

Nuget pack csproj using nuspec -

-
i want create nuget package contains specified in nuspec file, still version csproj. in order use token have pack like: nuget pack myproj.csproj but when adds dependencies , creates unwanted folder in nuget package. nuspec file is: <?xml version="1.0" encoding="utf-8"?> <package xmlns="http://schemas.microsoft.com/packaging/2011/08/nuspec.xsd"> <metadata> <id>test</id> <version>$version$</version> <title>test</title> <authors>test</authors> <owners>test</owners> <requirelicenseacceptance>false</requirelicenseacceptance> <description>test</description> <summary>test</summary> <releasenotes>test</releasenotes> <copyright>test</copyright> </metadata> <files> <file src="bin\debug\*.dll" target="lib\net45" /> <file s...
Read more

c# - Display ASPX Popup control in RowDeleteing Event (ASPX Gridview) -

-
i have aspxgridview includes new , delete button. delete button includs gv_rowdeleting event. want show aspxpopupcontrol (id="pupconfirm"). want user have confirm password delete item. tried: protected void gv_rowdeleting(object sender, devexpress.web.data.aspxdatadeletingeventargs e) { pupconfirm.showonpageload = true; } but nothing happened. please me. !!! you can create template column javascript prompt confirmation. <itemtemplate> <asp:linkbutton id="btndelete" runat="server" text="delete" commandname="delete" onclientclick="javascript:if(!confirm('are sure want delete record?')){return false;}"> </asp:linkbutton> </itemtemplate>
Read more